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前 


曾几何时 ， 网 络 走 入 了 平常 百姓 的 生活 。 在 工作 中 ， 人 们 通过 电子 邮箱 发 送 商业 信 
PRs 在 休闲 时 ， 通 过 QQ 或 其 他 各 种 聊天 软件 跟 亲 朋 好 友 谈天 说 地 。 

计算 机 、 网 络 给 生活 带 来 的 改变 ， 标 志 着 人 类 已 经 进入 到 信息 时 代 。 各 种 网 络 应 用 软 
件 ， 如 即时 通信 工具 、 下 载 工具 、Web 应 用 等 层出不穷 。 展 望 未 来 ， 互 联网 将 成 为 整个 IT 
产业 的 中 心 ， 网 络 编程 已 成 为 当代 软件 开发 的 主流 。 


1. 本 书 内 容 


本 书 由 浅 入 深 地 讲解 使 用 Visual C++ 进行 网 络 开发 的 基本 知识 ， 并 通过 具体 的 实例 来 
讲解 其 具体 的 实现 流程 。 本 书 的 章节 安排 如 下 。 


第 1 章 最 基本 的 应 用 内 容 ， 为 进入 本 书后 面 的 学 习 打 下 基础 。 
使 用 TCP 和 UDP 协 议 传输 信息 的 方法 。 
第 3 章 使 用 Visual C++ 开发 远程 文件 处 理 系统 的 具体 过 程 。 


使 用 Visual C++ 开发 网 页 浏览 器 的 具体 过 程 。 


使 用 Visual C++ 开发 邮件 系统 的 具体 过 程 。 


| ed fel is 
| | | 


a 
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Visual C++ 在 串口 通信 和 领域 的 应 用 知识 。 


使 用 Visual C++ 开发 网 络 层 应 用 的 基本 知识 。 


s 
à 


使 用 Visual C++ 开发 视频 播放 器 的 基本 知识 。 


并 


介绍 开发 一 个 网 络 防火 墙 系统 的 实现 过 程 。 
PAM 并 简要 前 析 BT 和 电驴 软件 的 源 


一 个 仿 QQ 聊天 系统 的 实现 过 程 。 

采用 Visual C++ 6.0 作 为 开发 工具 ， 完 成 远程 控制 中 所 需要 
到 的 主要 功能 。 

使 用 Visual C++ 技术 开发 网 络 电话 系统 的 具体 实现 流程 。 


BT 系统 的 基本 知识 ， 并 简要 剖析 BT 软件 的 源 代 码 。 


分 别 讲解 SMTP 协 议和 POP3 协 议 ， 通 过 一 个 邮件 发 送 系统 
实例 介绍 Foxmail 转 发 系统 的 开发 过 程 。 


2. 本 书 的 特点 和 优势 


本 书 由 具有 多 年 C++ 语言 开发 经 验 的 程序 员 执笔 撰写 ， 作 者 在 C++ 语言 软件 开发 领域 
具有 深厚 的 开发 和 研究 经 验 ， 并 且 具 有 多 年 的 培训 讲解 经 验 ， 以 娴熟 的 笔法 和 渊博 的 理论 
知识 ， 将 Visual C++ 网 络 开发 技术 展现 得 淋 沉 尽 致 ， 使 读者 能 够 很 快 地 进入 实际 开发 角色 。 

本 书 具 有 下 列 特色 。 

(1) 科学 的 知识 划分 

在 具体 内 容 编排 上 ， 作 者 根据 Visual C++ 网 络 开发 中 不 同 领域 知识 点 的 难 易 程度 ， 为 
读者 规划 出 最 佳 的 学 习 模块 。 读 者 只 要 按照 章节 顺序 来 学 习 ， 就 能 够 轻松 地 掌握 这 门 技 
术 ， 并 且 获 得 最 佳 的 学 习 效 果 和 最 优 的 学 习 效 率 。 

Q) 知识 点 的 通俗 性 和 全 面 性 

书 中 讲解 了 Visual C++ 网 络 开发 的 各 个 知识 点 ， 遵 循 循 序 渐进 、 由 浅 入 深 的 原则 ， 便 
于 读者 对 内 容 的 理解 。 在 内 容 讲解 上 ， 书 中 用 最 通俗 的 语言 对 Visual C++ 网 络 开发 的 知识 
点 进行 了 讲解 。 不 但 涉及 了 此 项 技术 的 常用 领域 ， 而 且 对 高 难度 的 应 用 进行 了 详细 的 介 
绍 ， 并 相应 地 提出 了 问题 的 解决 方案 。 

(3) 典型 的 实例 ， 深 入 性 的 实例 讲解 

本 书 在 讲解 基础 知识 的 过 程 中 穿插 讲解 了 对 应 的 实例 ， 并 且 针 对 每 个 重要 的 知识 点 ， 
始终 以 对 应 实例 的 讲解 来 加 深 对 知识 的 理解 。 针 对 重要 知识 点 或 实例 ， 给 读者 提出 了 注意 
事项 、 上 忠告 建 议和 使 用 技巧 ， 使 读者 的 知识 得 到 升华 。 

(4) 启迪 读者 的 开发 思维 

通过 一 系列 实例 揭示 一 个 个 典型 网 络 应 用 的 本 质 ， 以 启发 读者 的 好 奇 心 、 探 索 欲 和 创 
新 意识 。 从 普通 人 对 信息 时 代 生 活 的 主观 体验 和 感性 认识 出 发 ， 从 身边 应 用 讲 起 ， 从 现象 
到 本 质 ， 由 表 及 里 深入 浅 出 地 讲解 网 络 编程 。 

(5) 以 实践 为 导向 增强 实用 性 

本 书 以 经 验 为 后 盾 ， 以 实践 为 导向 ， 以 实用 为 目标 ， 深 入 浅 出 地 讲解 了 在 开发 过 程 中 
的 种 种 问题 。 特 别 是 ， 在 讲解 时 注重 理论 与 实践 的 结合 。 本 书 的 所 有 源 代 码 都 已 调试 通 
过 ， 并 且 放 在 本 书 所 附带 的 光盘 中 ， 读 者 拿 来 即 可 使 用 。 

(6) 案例 讲解 全 面 

本 书 内 容 全 面 ， 从 基本 的 语法 入 手 ， 以 恰当 的 实例 为 导向 ， 由 浅 入 深 地 讲解 各 门 技术 
的 基本 理论 知识 ， 所 讲解 的 内 容 几 乎 囊括 了 此 技术 的 所 有 知识 点 。 

(7) 强调 实践 的 同时 介绍 了 相关 的 基础 知识 

重视 软件 程序 与 网 络 如 鱼 和 水 密 不 可 分 的 关系 ， 本 书 不 仅 介绍 编程 技巧 ， 还 适当 地 介 
绍 相 关 网 络 知识 并 详细 给 出 网 络 环境 配置 、 搭 建 步骤 ， 使 读者 能 很 方便 地 运行 书 中 的 
实例 。 

3. 本 书 读者 对 象 

如 果 您 是 以 下 类 型 的 学 习 者 ， 此 书 会 带领 您 迅速 进入 VC++ 语 言 开发 领域 : 

a ”高 等 院 校 相关 专业 的 学 生 ， 或 需要 编写 论文 的 学 生 。 

Q 有 一 定 Visual C++ 开发 经 验 ， 从 事 Visual C++ 开发 的 工作 人 员 。 


oB 前 


Tj 


口 ” 企 业 和 公司 在 职 人 员 、 因 工作 需要 想 继续 学 习 和 提高 的 程序 员 。 
口 ” 从 事 网 络 开 发 、 多 媒体 开发 等 相关 工作 的 技术 人 员 。 
4. 致谢 


本 书 由 朱 桂 英 编 写 。 参 加 本 书 编写 的 还 有 张 元 亮 、 李 天 祥 、 周 锐 、 周 秀 、 扶 松柏 、 邓 
才 兵 、 钟 世 礼 、 谭 贞 军 、 罗 红 仙 、 张 加 春 、 王 东 华 。 在 编写 过 程 中 得 到 了 清华 社 编辑 很 大 
的 帮助 ， 在 此 对 他 们 表示 衷心 的 感谢 。 

于 作者 水 平 有 限 ， 书 中 难免 存在 一 些 不 足 和 错误 之 处 ， 如 果 读 者 使 用 本 书 时 遇 到 问 
题 ， 可 以 发 送 邮件 到 729017304@qq.com， 我 们 会 及 时 回复 。 
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1.1 获取 网 卡 的 类 型 和 MAC 地 址 


网 卡 的 类 型 可 以 从 注册 表 中 获得 。MAC 是 Media Access Control 的 缩写 ，MAC 地 址 
也 称 为 硬件 地 址 ， 用 来 定义 网 络 设备 的 位 置 。 在 OSI 模型 中 ， 第 三 层 (网 络 层 ) 负 责 IP 地 
址 ， 第 二 层 (数据 链 路 层 ) 则 负责 MAC 地 址 。 因 此 一 个 主机 会 有 一 个 IP 地 址 ， 而 每 个 网 络 
位 置 会 有 一 个 专属 于 它 的 MAC 地 址 。 在 本 节 的 内 容 中 ， 将 讲解 使 用 Visual C++ 技术 开发 
一 个 获取 MAC 地 址 程序 的 方法 。 在 具体 编程 之 前 ， 先 讲解 与 之 相关 的 基础 知识 。 


1.1.1 Visual C++ 网 络 编程 概述 


Visual C++( 后 面 简写 为 VC) 网 络 编程 是 指 用 户 使 用 MFC 类 库 ( 微 软 基础 类 库 ) 在 VC 编 
译 器 中 编写 程序 ， 以 实现 网 络 应 用 。 用 户 通过 VC 编程 实现 的 网 络 软件 可 以 在 网 络 中 不 同 
的 计算 机 之 间 互 传 文件 、 图 像 等 信息 。 本 章 将 向 用 户 介绍 基于 Windows 操作 系统 的 网 络 编 
程 基础 知识 ， 其 开发 环境 是 VC。 在 VC 编译 器 中 ， 使 用 Windows Socket 进行 网 络 程序 开 
发 是 网 络 编程 中 非常 重要 的 一 部 分 。 


1. 网 络 基础 知识 


如 果 用 户 要 进行 VC 网 络 编程 ， 就 必须 首先 了 解 计算 机 网 络 通信 的 基本 框架 和 工作 原 
理 。 在 两 台 或 多 台 计 算 机 之 间 进 行 网 络 通 信 时 ， 通 信 的 双方 还 必须 遵循 相同 的 通信 原则 和 
数据 格式 。 

接 下 来 将 首先 向 读者 介绍 OSI 七 层 网 络 模 型 、TCP/IP 协议 以 及 C/S 编程 模型 。 

(1) OSI 七 层 网 络 模型 

OSI 网 络 模型 是 一 个 开放 式 系统 互联 的 参考 模型 。 通 过 这 个 参考 模型 ， 用 户 可 以 非常 
直观 地 了 解 网 络 通信 的 基本 过 程 和 原理 。OSI 参考 模型 如 图 1-1 所 示 。 


发 送信 息 的 接收 信息 的 
计算 机 计算 机 


Rw MES a Ld 
RSRES SRE 


数据 传输 方向 
图 1-1 OSI 七 层 网 络 参考 模型 
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从 如 图 1-1 所 示 的 OSI 网 络 模型 中 可 以 看 到 网 络 数据 从 发 送 方 到 达 接收 方 的 过 程 中 数 
据 的 流向 以 及 经 过 的 通信 层 和 相应 的 通信 协议 。 

事实 上 ， 在 网 络 通信 的 发 送 端 ， 其 通信 数据 每 到 一 个 通信 层 ， 都 会 被 该 层 协议 在 数据 
中 添加 一 个 包头 数据 。 而 在 接收 方 恰 好 相反 ， 数 据 通过 每 一 层 时 ， 都 会 被 该 层 协议 剥 去 相 


应 的 包头 数据 。 用 户 也 可 以 这 样 理解 一 一 即 网 络 模型 中 的 各 层 都 是 对 等 通信 的 。 在 OSI 七 
层 网 络 模型 中 ， 各 个 网 络 层 都 具有 各 自 的 功能 ， 如 表 1-1 所 示 。 
表 1-1 各 网 络 层 的 功能 
协议 层 名 功能 概述 

物理 硬件 层 表示 计算 机 网 络 中 的 物理 设备 。 常 见 的 有 计算 机 网 卡 等 

数据 链 路 层 将 传输 数据 进行 压缩 与 解压 缩 

网 络 层 将 传输 数据 进行 网 络 传输 

数据 传输 层 进行 信息 的 网 络 传输 

会 话 层 建立 物理 网 络 的 连接 

表示 层 将 传输 数据 以 某 种 格式 进行 表示 

应 用 层 应 用 程序 接口 


(2) TCPAP 协议 


TCP/IP WARRE AR, Mop TRS iL. Diu FTP( 文 件 传输 协议 )、 
SMTP( 邮 件 传输 协议 ) 等 应 用 层 协 议 。TCP/IP 协议 的 网 络 模型 只 有 4 层 ， 包 括 数据 链 路 
层 、 网 络 层 、 数 据 传输 层 和 应 用 层 ， 如 图 1-2 所 示 。 


1-2 TCP/IP 网 络 协议 模型 


在 TCP/IP 网 络 编程 模型 中 ， 各 层 的 功能 如 表 1-2 所 示 。 


表 1-2 TCP/IP 网 络 协议 各 层 的 功能 


协议 层 名 功能 概述 
数据 链 路 层 网 卡 等 网 络 硬件 设备 以 及 驱动 程序 
网 络 层 四 协议 等 互联 协议 
数据 传输 层 为 应 用 程序 提供 通信 方法 ， 通 常 为 TCP、UDP 协议 
应 用 层 负责 处 理应 用 程序 的 实际 应 用 层 协议 
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在 数据 传输 层 中， 包括 了 TCP 和 UDP 协议 。 其 中 ，TCP 协议 是 基于 面向 连接 的 可 靠 
的 通信 协议 ， 它 具有 重 发 机 制 ， 即 当 数 据 被 破坏 或 者 丢失 时 ， 发 送 方 将 重 发 该 数据 。 而 
UDP 协议 是 基于 用 户 数 据 报 协 议 ， 属 于 不 可 靠 连 接 通 信 的 协议 。 例 如 当 使 用 UDP 协议 发 
送 一 条 消息 时 ， 并 不 知道 该 消息 是 否 已 经 到 达 接收 方 ， 或 者 在 传输 过 程 中 数据 是 否 已 经 丢 
失 。 但 是 在 即时 通信 中 ，UDP 协议 在 一 些 对 时 间 要 求 较 高 的 网 络 数据 传输 方面 有 着 重要 的 
作用 。 

G) C/S 编程 模型 

CIS 编程 模型 是 基于 可 靠 连接 的 通信 模型 。 在 通信 的 双方 必须 使 用 各 自 的 TP. 地 址 以 及 
端口 进行 通信 。 和 否则 ， 通 信 过 程 将 无 法 实现 。 通 常情 况 下 ， 当 用 户 使 用 C/S 模型 进行 通信 
时 ， 其 通信 的 任意 一 方 称 为 客户 端 ， 则 另 一 方 称 为 服务 器 端 。 

服务 器 端 等 待 客户 端 连接 请 求 的 到 来 ， 这 个 过 程 称 为 监听 过 程 。 通 常 ， 服 务 器 监听 功 
能 是 在 特定 的 IP 地 址 和 端口 上 进行 。 然 后 ， 客 户 端 向 服务 器 发 出 连接 请 求 ， 服 务 器 响应 该 
请 求 则 连接 成 功 。 否 则 ， 客 户 端的 连接 请 求 失败 。C/S 编程 模型 如 图 1-3 所 示 。 


向 服务 器 发 出 连接 请 求 


服务 器 应 答 客 户 端 请 求 


Ee 
服务 器 客户 请 


ilis ^^ inp 
ji 


( 连接 


1-3 C/S 编程 模型 


由 于 客户 端 连接 服务 器 时 需要 使 用 服务 器 的 IP 地 址 和 监听 端口 号 才能 完成 连接 ， 所 
以 ， 服 务 器 的 TP 地 址 和 端口 必须 是 固定 的 。 在 这 里 ， 向 用 户 介绍 部 分 协议 所 使 用 的 端口 号 
码 。 例 如 ，HTTP 协议 (用 于 网 页 浏览 服务 ) 所 使 用 的 端口 号 为 80，FTP 协议 (用 于 文件 传输 ) 
所 使 用 的 端口 号 是 21。 

2. 网 络 编程 基础 

可 以 使 用 MFC 中 封装 的 套 接 字 类 来 编写 网 络 应 用 程序 ， 也 可 以 使 用 Windows API 函 
数 进行 程序 开发 。 其 中 MEC 网 络 编程 比较 简单 ， 使 用 起 来 也 非常 方便 。 但 是 ， 使 用 MFC 
相关 类 编程 会 使 用 户 对 网 络 通 信 中 的 基本 原理 缺乏 清晰 的 认识 。 而 使 用 Windows API 函数 
则 恰好 相反 ， 可 以 使 用 户 熟悉 网 络 通信 的 基本 原理 。 在 实际 编程 过 程 中 ， 通 信 双 方 的 连接 
以 及 数据 通信 均 是 基于 Socket( 套 接 字 ) 进 行 的 。 
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(1) Sockets 套 接 字 

用 户 在 Windows 中 编写 网 络 通信 程序 时 ， 需 要 使 用 Windows Sockets(Windows 套 接 
字 )。 与 Windows 套 接 字 相关 的 API 函数 称 为 Winsock 函数 。 

在 网 络 通信 的 双方 ， 均 有 各 自 的 套 接 字 ， 并 且 该 套 接 字 与 特定 的 IP 地址 和 端口 号 相关 
联 。 通 常 ， 套 接 字 主 要 有 两 种 类 型 ， 分 别 是 流 式 套 接 字 (SOCK_STREAM) 和 数据 报 套 接 字 
(SOCK_DGRAM)。 其 中 ， 流 式 套 接 字 专门 用 于 使 用 TCP 协议 通信 的 应 用 程序 中 ， 而 数据 
报 套 接 字 则 专门 用 于 使 用 UDP 协议 进行 通信 的 应 用 程序 中 。 

Q) 网 络 字 节 顺序 

网 络 字 节 顺 序 是 指 TCP/IP 协议 中 规定 的 数据 传输 使 用 格式 ， 与 之 相对 的 字 节 顺序 是 
主机 字 节 顺序 。 网 络 字 节 顺 序 表示 首先 将 数据 中 最 重要 的 字 节 进行 存储 。 例 如 ， 当 数据 
0x358457 使 用 网 络 字 节 顺序 进行 存储 时 ， 该 值 在 内 存 中 的 存放 顺序 将 是 0x35、0x84、 
0x57。 因 为 通信 数据 可 能 会 在 不 同 的 机 器 之 间 进 行 传输 ， 所 以 通信 数据 必须 以 相同 的 格式 
进行 整理 。 只 有 经 过 格式 处 理 的 通信 数据 ， 才 能 在 不 同 的 机 器 之 间 进 行 传输 。 

3. 网 络 通信 基本 流程 

要 通过 互联 网 进行 通信 ， 用 户 至 少 需 要 一 对 套 接 字 ， 其 中 一 个 运行 于 客户 机 端 ， 我 们 
称 之 为 ClientSocket， 另 一 个 运行 于 服务 器 端 ， 我 们 称 之 为 ServerSocket。 根 据 网 络 通 信 的 
特点 ， 套 接 字 可 以 分 为 两 类 : 流 式 套 接 字 和 数据 报 套 接 字 。 套 接 字 之 间 的 连接 过 程 可 以 分 
为 三 个 步骤 ， 分 别 是 服务 器 监听 、 客 户 端 请 求 和 连接 确认 。 有 具体 说 明 如 图 1-4 所 示 。 


服务 器 端 套 接 字 并 不 定位 具体 的 客户 端 套 接 字 ， 
而 是 处 于 等 待 连 接 的 状态 ， 实 时 监控 网 络 状态 


tr 


由 客户 端的 套 接 字 提出 连接 请 求 ， 要 连接 的 目标 
是 服务 器 端的 套 接 字 。 客 户 端 的 套 接 字 必须 首先 
它 要 连接 的 服务 器 的 套 接 字 ， 指 出 服务 器 喘 


当 服 务 器 端 套 接 字 监 听 到 或 者 说 接收 到 客户 端 套 
接 字 的 连接 请 求 时 ， 它 就 响应 客户 端 套 接 字 的 请 
求 ， 建 立 一 个 新 的 线程 ， 把 服务 器 端 套 接 字 的 描 
述 发 给 客户 端 ， 一 旦 客户 端 确认 了 此 描述 ， 连 接 


1-4” 套 接 字 之 间 的 连接 过 程 
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4. 搭建 开发 环境 


在 Visual C++ 6.0 环境 下 进行 Winsock 的 API 编程 开发 ， 需 要 在 项 目 中 导入 以 下 三 个 
文件 ， 否 则 会 发 生 编译 错误 。 
口 WINSOCK.h: WINSOCK API 的 头 文件 ， 需 要 包含 在 项 目 中 。 
口 WSOCK32.lib: WINSOCK API 链接 库 文件 ， 使 用 时 一 定 要 把 它 作 为 项 目的 非 默 
认 的 链接 库 包 含 到 项 目 文件 中 去 。 
O WINSOCK.l: WINSOCK 的 动态 链接 库 ， 位 于 Windows 的 安装 目录 下 。 


5. 两 个 常用 的 数据 结构 


套 接 字 是 网 络 通信 过 程 中 端点 的 抽象 表示 ， 在 实现 中 以 句柄 的 形式 创建 ， 包 含 了 进行 
网 络 通信 记 必 有 需 的 5 种 信息 : 连接 使 用 的 协议 、 本 地 主机 的 IP 地 址 、 本 地 进程 的 协议 端 
口 、 远 程 主机 的 IP 地 址 和 远程 进程 的 协议 端口 。 
WinSock 编程 中 常用 的 数据 结构 有 sockaddr in 和 in_addr。 
(1) sockaddr in 结构 
WinSock 通过 sockaddr in 结构 对 有 关 Socket 的 信息 进行 了 封装 : 
struct sockaddr in ( 
short sin family; 
unsigned short sin port; 
IN ADDR sin addr; 
char sin zero[8]; 


上 述 结构 中 各 个 参数 的 具体 说 明 如 下 。 
Q sin family: 指 网 络 中 标识 不 同 设备 时 使 用 的 地 址 类 型 ， 对 于 IP 地 址 ， 它 的 类 型 
是 AF_INET。 
O sin port: 指 Socket 对 应 的 端口 号 。 
O sin_addr: 是 一 个 结构 ， 将 他 进行 了 封装 。 
O sin zero: 一 个 用 来 填充 结构 的 数组 ， 字 符 全 为 0， 这 个 结构 对 于 不 同 地 址 类 型 可 
以 是 相同 的 大 小 。 
(2) in_addr 结构 
in_addr 结构 对 IP 地 址 进行 了 封装 ， 既 可 以 用 4 个 单字 节 数 表示 ， 也 可 以 转换 为 两 个 
双 字 节 数 表示 或 一 个 四 字 节 数 表示 。 这 样 定义 是 为 了 方便 使 用 ， 例 如 在 程序 中 初始 化 IP 
时 ， 可 以 传 入 4 个 单字 节 整 数 ， 而 在 函数 间 传 递 这 个 值 时 ， 可 以 将 其 转换 成 一 个 四 字 节 整 
数 使 用 。in_addr 结构 定义 如 下 : 
struct in addr { 
union { 
struct { u_char s bl, s b2, s b3, s b4; }S un b; 
struct { u short s wl, s w2; ) S un w; 
u long S addr; 


) Sun; 
HN 


Visual C++ 网 络 开发 基本 应 用 


6. Windows Sockets 基础 


在 MFC 类 库 中 ， 几 乎 封装 了 Windows Sockets 的 全 部 功能 。 在 接 下 来 的 内 容 中 ， 将 简 
单 介 绍 两 个 最 常用 的 套 接 字 相 关 类 一 一 CAsyncSocket 类 和 CSocket 类 。 

(1) CAsyncSocket 类 

在 微软 基础 类 库 中 ，CAsyncSocket 类 封装 了 异步 套 接 字 的 基本 功能 。 用 户 使 用 该 类 进 
行 网 络 数据 传输 的 步骤 如 下 。 

© 调用 构造 函数 创建 套 接 字 对 象 。 

@@， 如 果 创 建 服务 器 端 套 接 字 ， 则 调用 函数 Bind0 绑 定 本 地 IP 和 端口 ， 然 后 调用 函数 
Listen0 监 听 客 户 端的 请 求 。 如 果 请 求 到 来 ， 则 调用 函数 Accept0 响 应 该 请 求 。 如 果 创建 客 
户 端 套 接 字 ， 则 直接 调用 函数 Connect0 连 接 服务 器 即 可 。 

© 调用 Send0 等 功能 函数 进行 数据 传输 与 处 理 。 

@ ”关闭 或 销毁 套 接 字 对 象 。 

(2) CSocket 类 

CSocket 类 派生 于 CAsyncSocket 类 。 该 类 不 但 具有 CAsyncSocket 类 的 基本 功能 ， 还 
具有 序列 化 功能 。 用 户 在 实际 编程 中 ， 通 过 将 CSocket 类 与 CSocketFile 类 和 CArchive 类 

-起 使 用 ， 能 够 很 好 地 管理 数据 以 及 发 送 数据 。 用 户 使 用 该 类 进行 网 络 编程 的 步骤 如 下 。 

(D 创建 CSocket 类 对 象 。 

© 如果 创建 服务 器 端 套 接 字 ， 则 调用 函数 Bind0 绑 定 本 地 IP 和 端口 ， 然 后 调用 函数 
Listen0 监 听 客 户 端的 请 求 。 如 果 请 求 到 来 ， 则 调用 函数 Accept0 响 应 该 请 求 。 如 果 创 建 客 
户 端 套 接 字 ， 则 直接 调用 函数 ConnectO 连 接 服务 器 即 可 。 

© ”创建 与 CSocket 类 对 象 相 关联 的 CSocketFile 类 对 象 。 

® ”创建 与 CSocketFile 类 相关 联 的 CArchive 对 象 。 

© ”使 用 CArchive 类 对 象 在 客户 端 和 服务 器 之 问 进行 数据 传输 。 

(6 ”关闭 或 销毁 CSocket 25, CSocketFile 类 和 CArchive 类 的 3 个 对 象 。 


1.1.2. MAC 地 址 的 原理 


MAC 意 为 介质 访问 控制 。MAC 地 址 是 烧 录 在 网 卡 (Network Interface Card, NIC) E fff] 
MAC 地 址 ， 也 叫 硬 件 地 址 ， 是 由 48 比特 长 (6 字 节 ) 十 六 进 制 的 数字 组 成 。 其 中 0-23 位 叫 
做 组 织 唯一 标志 符 (Organizationally Unique Identifier), W5) LAN( 局 域 网 ) 节 点 的 标识 ; 
而 24~47 位 是 由 厂家 自己 分 配 的 。 其 中 第 40 位 是 组 播 地 址 标志 位 。 网 卡 的 物理 地 址 通常 
是 由 网 卡 生 产 厂家 烧 入 网 卡 的 EPROM( 一 种 闪存 芯片 ) 中 ， 它 存储 的 是 传输 数据 时 真正 赖 以 
标识 发 出 数据 的 电脑 和 接收 数据 的 主机 的 地 址 。 

在 网 络 底层 的 物理 传输 过 程 中 ， 通 过 物理 地 址 来 识别 主机 ， 它 一 般 也 是 全 球 唯一 的 。 
例如 以 太 网 卡 的 物理 地 址 是 48bit( 比 特 位 ) 的 整数 ， 如 44-45-53-54-00-00 格式 ， 以 机 器 可 读 
的 方式 存 入 主机 接口 中 。 以 太 网 地 址 管理 机 构 (IEEE， 电 气 和 电子 工程 师 协 会 ) 将 以 太 网 地 
址 (也 就 是 48 比特 的 不 同 组 合 ) 分 为 若干 独立 的 连续 地 址 组 ， 生 产 以 太 网 网 卡 的 厂家 就 购买 
其 中 一 组 ， 在 具体 生产 时 ， 逐 个 将 这 些 唯一 地 址 赋予 以 太 网 卡 。 

由 此 可 见 ，MAC 地 址 就 如 同 我 们 身份 证 上 的 身份 证 号 码 ， 具 有 全 球 唯一 性 。 在 
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Windows 操作 环境 下 ， 依 次 选择 “ 开 
始 ” 一 “运行 ”， 然 后 在 “运行 ”对 话 
框 中 输入 “cmd”， 打 开 命令 行 窗 口 ， 
输入 “ipconfig /all”( 注 意 ipconfig 和 /之 
间 有 一 个 空格 )， 即 可 获取 我 们 机 器 的 
MAC 地 址 ， 如 图 1-5 所 示 。 


1.1.3 NetBIOS 编程 基础 


NetBIOS 是 用 于 网 络 的 基本 输入 / 输 ERROR 
出 系统 ， 是 一 个 应 用 程序 接口 ， 用 于 源 图 1-5 输入 ipconfig /all 获取 MAC 地 址 
与 目的 地 之 间 的 交换 ， 即 能 够 支持 计算 
机 应 用 程序 与 设备 通信 时 要 用 到 的 各 种 具有 明确 而 简单 的 通信 协议 ， 必 须 用 特殊 的 命令 序 
列 来 调用 NetBIOS 。 

在 参考 层次 模型 中 ，NetBIOS 处 于 表示 层 和 会 话 层 之 间 ， 是 参考 模型 的 高 层 。 因 此 其 
接口 程序 的 应 用 在 很 大 程度 上 (并 且 从 本 质 上 ) 与 较 低层 次 的 各 种 活动 隔离 开 。 它 支持 IEEE 
802.2 的 逻辑 链 路 控制 协议 。 现 在 NetBIOS 正 迅速 地 成 为 不 同 操作 系统 环境 下 普遍 使 用 的 
通信 平台 ， 这 些 操作 系统 包括 PC DOS. OS/2. Unix 和 Windows. 

1. 处 理 过 程 

NetBIOS 提供 会 话 服务 的 建立 过 程 如 下 。 

(1) 建立 会 话 

该 过 程 类 似 于 C/S 模式 中 的 连接 建立 过 程 ， 在 此 不 再 讨论 。 需 注意 的 是 ，NetBIOS 的 
Client 方 是 采用 Call 呼叫 对 方 ， 而 不 是 Connect。 

(2) 传送 数据 

因为 NetBIOS 的 会 话 服务 是 以 双 工 流 的 形式 实现 的 ， 因 此 会 话 双方 (或 多 方 ) 均 可 以 同 
时 发 送 或 接收 数据 ， 而 无 须 考虑 对 方 的 状态 。 

NetBIOS 的 命令 发 送 支 持 两 种 模式 ， 一 种 是 send， 其 数据 块 最 大 长 度 为 64KB， 且 位 
于 连续 的 内 存 空间 ， 另 一 种 则 是 chain send 命令 。 顾 名 思 义 ， 它 是 以 多 个 缓冲 区 (两 个 ) 提 供 
发 送 数据 的 ， 因 此 该 命令 一 次 可 最 大 传送 64KBx2 的 数据 。 与 此 对 应 的 NetBIOS 接收 命令 
有 如 下 3 种 。 

口 receive: 它 以 建立 会 话 时 所 获得 的 唯一 标识 对 方 的 会 话 号 为 句柄 接收 数据 。 

口 receive any: 该 命令 可 从 一 个 name 建立 的 多 个 会 话 上 取得 数据 。 

口 receive any-any: 它 可 从 任何 会 话 上 接收 任何 数据 。 

(3) 终止 会 话 

当 会 话 一 方 发 出 hang up 命令 后 ， 即 可 终止 对 话 ， 并 释放 相应 的 资源 。 

2. NetBIOS 命令 

NetBIOS 作为 一 种 接口 ， 拥 有 许多 实现 某 些 功能 的 接口 。 最 为 常用 的 NetBIOS 命令 如 
表 1-3 所 示 。 
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#1-3 NetBIOS 命令 一 览 表 
类 al 命令 功能 说 明 
add name 增加 本 地 唯一 名 
名 字 管理 add group name 增加 本 地 小 组 名 
delete name 删除 本 地 名 字 
send datagram 发 送 数据 报 
send broadcast 发 送 广 播 数据 报 
memmy receive datagram 接收 数据 报 
receive broadcast 接收 广播 数据 报 
call 呼叫 建立 会 话 
listen 侦 听 建立 会 话 
Send 按 会 话 号 发 送 数据 
chain send 按 会 话 号 发 送 双 缓冲 数据 
会 话 服务 Send no-ack 按 会 话 号 发 送 数据 ， 不 应 答 
chain send no-ack 发 送 双 缓冲 数据 ， 不 应 答 
receive 按 会 话 号 接收 数据 
receive any 从 任意 会 话 号 上 接收 数据 
hang up 拆除 当前 会 话 
repeat 初始 化 网 络 适配器 
adapter status 读 取 网 络 适配器 状态 
一 般 命 令 session status 按 名 字 读 取 当 前 会 话 状态 
cancel 撤消 一 个 NetBIOS 命令 
unlink 断 开 远 程 连接 


3. NetBIOS 名 字 解 析 


由 于 NetBIOS 是 一 种 与 TCP/IP 独立 发 展 的 标准 ， 虽 然 它 可 以 使 用 TCP/IP 作为 传输 协 
议 ， 但 是 由 于 概念 上 的 不 同 ， 它 并 没有 利用 TCP/IP 提供 的 全 部 能 力 ， 而 是 使 用 自己 的 方 


式 来 完成 类 似 的 工作 。 其 中 最 大 的 


区 别 在 于 名 字 解 析 方式 上 。NetBIOS 具备 自己 独立 的 名 


字 解 析 概念 和 能 力 ， 因 此 它 使 用 的 名 字 解 析 方 式 就 与 TCP/IP 中 标准 解析 方式 一 一 DNS 不 
同 。 在 必须 经 过 NetBIOS 名 字 解 析 获 得 相应 的 IP 地 址 之 后 ，NetBIOS 会 话 就 可 以 建立 在 
普通 TCP 连接 的 基础 上 了 。 所 以 在 NetBIOS 中 ， 名 字 解 析 是 NetBIOS 会 话 与 普通 TCP 连 


接 最 大 的 不 同 之 处 。 


NetBIOS 名 字 解 析 与 DNS 名 字 解 析 的 最 大 不 同 在 于 NetBIOS 是 动态 的 ， 计 算 机 需要 
首先 注册 自己 的 名 字 ， 然 后 才能 解析 到 该 名 字 。 动 态 解析 虽然 带 来 很 大 的 方便 性 ， 但 却 复 
杂 和 低 效 得 多 ， 因 此 只 能 用 于 小 范围 的 局 域 网 中 。 

每 个 NetBIOS 的 名 字 可 以 多 达 16 个 字符 ， 第 16 个 字符 用 来 标识 输入 名 字 时 使 用 的 程 


p om 


序 类 型 。 
-个 NetBIOS 服务 程序 必须 首先 注册 自己 的 NetBIOS 名 字 ， 而 一 个 应 用 程序 则 需要 


址 。 


当 NetBIOS 的 计算 机 进行 通信 时 ， 它 必须 基于 NetBIOS 名 字 ， 而 不 能 基于 IP 地 


查询 所 需要 的 NetBIOS 名 字 。 例 如 ， 每 台 Windows 计算 机 在 启动 之 后 初始 化 网 络 时 就 使 
用 所 配置 的 计算 机 名 字 来 初始 化 其 使 用 的 NetBIOS 名 字 。 

(1) NetBIOS 名 字 解 析 方 式 

从 NetBIOS 名 字 查 找 相应 的 节点 地 址 (TCP/IP 协议 中 为 IP 地 址 ) 有 如 下 几 种 不 同 的 查 


找 方式 。 


口 


本 地 广播 : 在 本 地 网 络 上 发 送 广播 ， 通 过 广播 某 设 备 的 NetBIOS 名 字 ， 查 找 其 对 
应 的 IP 地 址 。 广 播 方式 也 能 用 于 注册 自己 的 NetBIOS 名 字 ， 例 如 ， 一 台 计 算 机 
可 以 通过 广播 本 机 的 名 字 ， 向 其 他 计算 机 宣告 自己 使 用 了 这 个 NetBIOS 名 字 。 
缓冲 : 每 个 支持 NetBIOS 的 计算 机 中 ， 维 护 一 个 NetBIOS 名 字 和 相应 IP 地 址 的 
列表 ， 这 些 对 应 的 名 字 都 有 一 定 的 生存 期 ， 以 便 能 及 时 更 新 。 

NetBIOS 名 字 服 务 器 : 使 用 一 个 名 字 服 务 器 来 提供 名 字 与 人 P 之 间 的 解析 任务 ， 这 
个 NetBIOS 名 字 服 务 器 被 称 为 NBNS(NetBIOS Name Server)，Microsoft 实现 的 
NBNS 名 字 服 务 器 为 WINS(Windows Internet Name Service). NetBIOS 计算 机 首 
先 要 向 NBNS 登记 自己 的 NetBIOS 名 字 ， 完 成 名 字 的 注册 过 程 。 

预定 义 文件 Imhosts: Microsoft Windows 能 通过 查找 存放 在 本 地 文件 Imhosts 中 的 
数据 ， 来 识别 网 络 上 NetBIOS 名 字 和 IP 的 关系 ， 这 个 方式 不 是 NetBIOS 名 字 识 
别 的 标准 ， 但 它 是 Microsoft 的 实现 方式 ， 因 此 是 一 种 事实 标准 。 

通过 DNS 和 hosts 文件 解析 : DNS 服务 器 和 本 地 hosts 文件 中 存放 的 数据 是 用 于 
标准 TCP/IP 协议 中 名 字 和 IP 之 间 转 换 使 用 的 方式 ， 但 使 用 其 他 方式 查找 不 出 对 
应 的 节点 地 址 时 ，Microsoft Windows 中 通常 也 能 通过 标准 的 TCP/IP 名 字 解 析 方 
式 ， 进 行 名 字 和 IP 的 转换 。 同 样 这 也 不 是 NetBIOS 的 标准 ， 而 是 Microsoft 的 
扩展 。 


从 上 述 5 种 NetBIOS 识别 方式 ， 以 及 其 中 的 不 同 的 名 字 注 册 方 式 出 发 ， 可 以 实现 不 同 
的 组 合 方式 ， 从 而 构成 了 不 同 的 名 字 识 别 策 略 。 在 NetBIOS 标准 中 ， 将 使 用 不 同名 字 识 别 
策略 的 模式 称 为 不 同 的 NetBIOS 节点 类 型 。 


口 


B-node: 通过 广播 方式 来 进行 注册 和 识别 NetBIOS 名 字 。 对 于 IP 协议 上 的 Net 
BIOS， 就 需要 基于 UDP 进行 广播 ， 在 小 网 络 上 这 种 方式 工作 得 很 好 ， 但 当 网 络 
增 大 时 ， 就 会 被 使 用 路 由 器 将 大 网 络 分 割 为 几 个 小 网 。 在 一 般 情 况 下 路 由 器 不 转 
发 广播 数据 ， 广 播 包 仅 发 送 到 本 地 网 络 。 虽 然 可 以 配置 路 由 器 进行 b-node 广播 转 
发 ， 但 是 这 将 使 UDP 广播 产生 大 量 的 无 用 网 络 数据 ， 且 名 字 注 册 和 解析 的 难度 
也 增加 了 。 因 此 对 于 较 大 的 网 络 ， 这 种 方式 不 可 取 。 

P-node(peer-to-peer): 对 等 方式 能 为 识别 名 字 提 供 非常 有 效 的 方法 ， 它 使 用 
NetBIOS 名 字 服 务 器 进行 名 字 的 注册 登记 和 名 字 识 别 。 因 此 对 于 每 个 NetBIOS 计 
算 机 ， 必 须 指定 同样 的 NBNS 服务 器 的 IP 地 址 。 这 样 在 NBNS 服务 器 停机 或 更 
改 了 设置 (如 IP 地 址 等 ) 的 情况 下 ， 名 字 解 析 不 能 完成 ， 就 不 能 进行 NetBIOS ii 
信 。 当 然 NetBIOS 计算 机 可 以 配置 为 使 用 多 个 NBNS 服务 器 ， 以 便 在 其 中 一 个 
出 现 问 题 时 使 用 备份 的 服务 器 。 
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O M-node(Mixed): 为 了 正确 解析 NetBIOS 名 字 ， 最 好 综合 使 用 广播 和 名 字 服 务 器 
的 方式 ， 这 样 的 名 字 识 别 是 一 个 复合 的 过 程 。M-node 首先 通过 B-node 广播 方式 
进行 名 字 识 别 过程 ， 当 广播 方式 失败 之 后 ， 再 使 用 P-node 方式 进行 查询 。 

O H-Node(Hybrid): H-node 模式 也 是 一 种 复合 模式 ， 它 与 M-node 不 同 的 地 方 是 查 
找 的 顺序 不 同 。H-node 先 查 找 NBNS 名 字 服 务 器 ， 然 后 再 使 用 广播 方式 进行 
查询 。 

O Windows 中 实际 使 用 的 名 字 识 别 方式 是 对 标准 H-node 方式 的 扩展 ，Windows 系 
列 的 计算 机 将 首先 检查 缓存 中 的 内 容 ， 然 后 再 查看 WINS 服务 器 ， 之 后 进行 广 
播 ， 然 后 将 查找 Imhosts 文件 ， 以 及 通过 hosts 和 DNS 进行 查找 。 实 际 进行 
NetBIOS 识别 是 一 个 复杂 的 过 程 ， 主 要 就 是 由 于 NetBIOS 是 一 个 动态 的 名 字 解 析 
方式 ， 每 一 台 计 算 机 都 必须 注册 自身 。 

(2) NetBIOS 名 字 识 别 的 过 程 

与 DNS 不 同 ，NetBIOS 名 字 使 用 动态 方式 进行 管理 。DNS 数据 是 静态 的 ， 增 加 和 删 
BR DNS 名 字 需 要 管理 员 手 工 更 改 配置 文件 。 但 NetBIOS 要 求 计算 机 在 网 络 上 自动 注册 其 
名 字 ， 计 算 机 停机 之 后 占用 的 名 字 会 被 释放 ， 这 个 过 程 不 需要 管理 员 和 干预。 因为 它 需要 额 
外 的 网 络 数据 以 完成 名 字 登 记 等 过 程 ， 使 得 它 不 适合 像 Internet 这 样 的 大 型 网 络 。 

NetBIOS 名 字 识 别 需要 经 过 如 下 3 个 步骤 。 

(D 名字 注 册 : 在 NetBIOS 启动 时 ， 计 算 机 向 整个 网 络 声明 占用 了 一 个 NetBIOS 名 
字 ， 如 果 已 经 有 其 他 计算 机 占用 了 这 个 名 字 ， 这 台 计 算 机 就 会 收 到 错误 信息 。 注 册 是 通过 
向 网 络 广 播 声明 信息 或 向 NetBIOS 名 字 服 务 器 登记 的 方式 来 实现 的 。 

Q 名字 解析 : 通过 广播 或 查询 NetBIOS 名 字 服 务 器 来 解析 一 个 NetBIOS 名 字 。 此 
外 还 可 以 通过 Imhosts 文件 和 DNS 辅助 解析 名 字 。 

G ”名字 删除 ;系统 关机 或 提供 的 工作 站 服务 结束 时 ， 会 删除 其 占用 的 NetBIOS 名 。 

通过 NetBIOS 名 字 和 共享 的 目录 名 ， 就 能 够 定位 Windows 计算 机 上 的 资源 。 
Microsoft 使 用 UNC 的 形式 来 确定 一 个 网 络 资源 的 位 置 ， 一 个 UNC 以 双 反 斜 线 开始 ， 接 下 
来 是 提供 资源 计算 机 的 NetBIOS 名 字 ， 然 后 是 该 台 计 算 机 上 提供 资源 的 共享 名 ， 接 下 来 就 
是 下 面 的 目录 和 文件 名 。 如 \ntserver\share\files。 

因此 使 用 一 个 资源 的 命令 格式 如 下 所 示 : 

C:\> net use f: \\ntserver\share 

[o3 v2 ES 

F:\> 

Q) 名 字 服 务 器 的 工作 原理 

由 于 B-node 广播 会 在 网 络 上 产生 大 量 的 信息 流 ， 尤 其 是 在 网 络 是 由 多 个 子 网 构成 的 
时 候 ， 而 使 用 路 由 器 本 来 就 是 要 隔离 广播 信息 ， 可 是 为 了 进行 名 字 解 析 ， 就 不 得 不 转发 B- 
node 广播 信息 包 ， 这 就 达 不 到 缩减 无 用 网 络 流量 的 目的 。 

使 用 名 字 服 务 器 进行 解析 就 能 避免 这 个 问题 ， 客 户 通 过 对 名 字 服 务 器 进行 查询 而 非 广 
播 ， 信 息 流 就 不 必 传 播 到 各 个 子 网 上 ， 就 能 减少 广播 数据 ， 减 轻 网 络 的 负担 ， 节 省 带宽 ， 
并 且 能 有 效 地 提高 名 字 解 析 的 速度 及 准确 性 。 

实际 存在 的 Windows 网 络 甚至 很 少 利用 名 字 服 务 器 进行 名 字 解 析 ， 这 就 使 得 这 些 网 络 
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名 字 解 析 存在 很 大 问题 ， 常 常会 出 现 不 同 计算 机 的 网 络 邻居 列表 不 同 ， 根 本 原因 就 是 广播 
方式 是 没有 保证 的 ， 必 须 转向 名 字 服 务 器 方式 才能 解决 名 字 解 析 问 题 。 
当 普通 NetBIOS 计算 机 和 NBNS 服务 器 进行 通信 时 ， 有 如 下 4 个 不 同 的 通信 过 程 。 
口 “ 名 字 注 册 : 每 台 NetBIOS 计算 机 启动 时 ， 都 在 名 字 服 务 器 上 注册 。 这 样 就 保持 了 
数据 库 的 自动 更 新 ， 并 具备 动态 更 新 的 特性 。 名 字 服 务 器 将 返回 确认 信息 ， 以 及 
这 个 名 字 的 生存 期 TTL。 如 果 客 户 要 求 的 名 字 已 经 被 占用 了 ， 服 务 器 就 查询 占用 
这 个 名 字 的 客户 是 否 还 在 网 络 上 ， 以 判断 这 个 名 字 是 否 可 以 再 次 被 使 用 。 这 种 情 
况 主要 发 生 在 Windows 计算 机 死机 后 重新 登记 的 过 程 中 ， 因 为 此 时 在 计算 机 死机 
之 前 ， 它 在 名 字 服 务 器 中 登记 的 名 字 还 存在 ， 如 果 名 字 服 务 器 简单 地 拒绝 提供 
名 字 ， 那 么 这 个 计算 机 就 无 法 再 次 获得 自己 的 名 字 。 只 有 在 真正 发 生 冲突 的 情况 
下 ， 客 户 的 名 字 注 册 才 会 失败 。 
Oo AFER: 由 于 每 个 名 字 都 存在 一 个 生存 期 TTL， 那 么 当 经 历 了 这 个 TTL 一 半 
的 时 候 ， 客 户 会 向 服务 器 进行 更 新 请 求 ， 刷 新 服务 器 上 的 TTL 设置 。 
OQ AES 客户 停机 时 会 与 服务 器 通信 释放 其 占用 的 NetBIOS 名 字 ， 其 名 字 TTL 
超时 也 会 使 得 服务 器 释放 这 个 名 字 。 
口 “ 名 字 识 别 : 客户 可 以 向 NBNS 服务 器 发 送 查 询 名 字 的 请 求 ， 进 行 名字 解 析 。 
在 某 些 情况 下 ， 客 户 没 有 设置 支持 名 字 服 务 器 ， 或 者 使 用 的 客户 软件 还 不 支持 名 字 服 
务 器 进行 解析 ， 可 以 通过 设置 一 个 WINS 代理 ， 由 它 来 在 广播 数据 和 查询 名 字 服 务 器 之 间 
进行 转换 ， 它 可 以 帮助 客户 注册 并 回应 客户 的 广播 查询 。 
4. 何谓 NetBEUI 


NetBEUI 是 网 络 操作 系统 使 用 的 NetBIOS 协议 的 加 强 版 本 。 它 规范 了 在 NetBIOS 中 
未 标准 化 的 传输 帧 ， 还 加 了 额外 的 功能 。 传 输 层 驱动 器 经 常 被 Microsoft LAN Manager( 微 
软 局 域 网 管理 器 ) 使 用 。 

NetBEUI 执行 OSI LLC2 协议 。NetBEUI 是 原始 的 PC 网 络 协议 和 IBM 为 
LanManager( 局 域 网 管理 器 ) 服 务 器 设计 的 接口 。 本 协议 稍 后 被 微软 采用 ， 作 为 它们 的 网 络 
产品 的 标准 。 它 规定 了 高 层 软 件 通过 NetBIOS 帧 协议 发 送 、 接 收 信息 的 方法 。 本 协议 运行 
在 标准 802.2 数据 链 协议 层 上 。 

5. NetBIOS 范围 


NetBIOS 范围 ID 为 建立 在 TCP/IP( 叫 做 NBT) 模 块 上 的 NetBIOS 提供 额外 的 命名 服 
Jo NetBIOS WA ID 的 主要 目的 是 隔离 单个 网 络 上 的 NetBIOS 通信 和 那些 有 相同 
NetBIOS 范围 ID 的 节点 。NetBIOS 范围 ID 是 附加 在 NetBIOS 名 称 上 的 字符 串 。 两 个 主机 
上 的 NetBIOS 范围 ID 必须 匹配 ， 否 则 两 主机 无 法 通信 。NetBIOS 范围 ID 允许 计算 机 使 
用 相同 的 计算 机 名 ， 不 同 的 范围 也。 范围 ID 是 NetBIOS 名 称 的 一 部 分 ， 使 名 称 唯一 。 

6. NetBIOS 控制 块 


NetBIOS 控制 块 NCB) 是 所 有 NetBIOS 应 用 程序 访问 NetBIOS 服务 时 都 要 用 到 的 一 个 
程序 设计 结构 ， 并 且 是 唯一 的 一 个 。 设 备 驱 动 程序 也 使 用 类 似 的 结构 。NetBIOS 控制 块 的 
定义 结构 如 下 : 
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typedef struct _NCB ( 
BYTE ncb command; 
BYTE ncb retcode; 
BYTE ncb lsn; 
BYTE ncb num; 
DWORD ncb buffer; 
WORD ncb length; 
BYTE ncb callName[16]; 
BYTE ncb name[16]; 
BYTE ncb rto; 
BYTE ncb sto; 
BYTE ncb post; 
BYTE ncb lana num; 
BYTE ncb cmd cplt; 
BYTE ncb reserved[14]; 
} NCB, *PNCB; 


有 关上 述 结构 中 各 个 参数 的 具体 说 明 ， 请 读者 朋友 们 参考 相关 资料 ， 本 书 在 此 将 不 再 
详细 讲解 。 
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光 向 \yuanma\l\FTP 

本 实例 的 目的 是 ， 使 用 Visual C++ 6.0 开发 一 个 获取 当前 机 器 MAC 地 址 的 程序 。 

1. 选择 开发 工具 

Visual C++ 是 一 个 功能 强大 的 可 视 化 软件 开发 工具 。 自 1993 年 Microsoft 公司 推出 
Visual C++ 1.0 以 来 ， 不 断 有 其 新 版 本 问世 ， 随 后 微软 又 推出 了 .NET 系列 ， 添 加 了 很 多 网 
络 功能 ， 但 是 它 的 应 用 有 一 定 的 局 限 性 。Visual C++ 已 成 为 专业 程序 员 进 行 软件 开发 的 首 
选 工 具 ， 其 中 ，Visual C++ 6.0 是 其 中 比较 成 熟 的 一 个 版 本 ， 也 是 最 常用 的 一 个 版 本 。 

2. 设计 MFC 窗 体 


使 用 Visual C++ 6.0 创建 一 个 MFC 项 目 后 ， 根 据 本 实例 的 需要 ， 我 们 设计 3 个 窗 体 ， 
它们 分 别 是 IDD ABOUTBOX( 见 图 1-6)、IDD_GETNETSETTING_DIALOG( 见 图 1-7) 和 
IDD_CARDINFO( 见 图 1-8)。 
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1-6 IDD ABOUTBOX &i f 1-7 IDD GETNETSETTING DIALOG 窗 体 


启用 DNS 服务 器 ，swte 
AIP. Static 


DNS 服务 系列 ， 


默认 网 关 ， 


1-8 IDD_CARDINFO 窗 体 


3. 具体 编码 
设计 好 窗 体 之 后 ， 接 下 来 开始 讲解 具体 的 编码 过 程 。 


(1) 在 文件 ClassNetSetting.h 中 ， 定 义 类 ClassNetSetting， 根 据 不 同 的 操作 系统 获取 存 


储 网 卡 的 MAC 地 址 的 结构 。 具 体 代 码 如 下 : 


// 操 作 系 统 类 型 
enum Win32Type { 


Unknow, 

Win32s, 
Windows9X, 
WinNT3, 
WinNT4orHigher 


typedef struct tagASTAT 


{ 


ADAPTER STATUS adapt; 
NAME BUFFER NameBuff [30]; 


] ASTAT, *LPASTAT; 


// 存 储 网 卡 的 MAC 地 址 的 结构 
typedef struct tagMAC ADDRESS 


{ 


BYTE bl,b2,b3,b4,b5,b6; 


} MAC ADDRESS, *LPMAC ADDRESS; 


// 网 卡 信息 的 数据 结构 ， 包 括 记录 网 卡 的 
//DNS 序列 ， 子 网 掩 码 和 物理 地 址 
typedef struct tagNET CARD 


{ 


TCHAR szDescription[256]; 
BYTE szMacAddr [6]; 

TCHAR szGateWay [128]; 
TCHAR szIpAddress [128]; 
TCHAR szIpMask[128]; 

TCHAR szDNSNameServer [128]; 


厂商 及 型 号 ， 与 之 绑 定 的 IP 地 址 ， 网 关 ， 
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) NET CARD, *LPNET CARD; 


class ClassNetSetting 


t 


public: 


void ProcessMultiString(LPTSTR lpszString, DWORD dwSize); 
UCHAR GetAddressByIndex(int lana num, ASTAT &Adapter); 
BOOL GetSettingOfWinNT(); 

int GetMacAddress (LPMAC ADDRESS pMacAddr); 

BOOL GetSetting(); 

ClassNetSetting(); 

virtual ~ClassNetSetting(); 


public: 


BOOL GetSettingOfWin9X(); 
Win32Type GetSystemType(); 


int m TotalNetCards; // 系 统 的 网 卡 数 

TCHAR m szDomain[16]; // 域 名 

TCHAR m szHostName[16]; // 主 机 名 

int m IPEnableRouter; // 是 否 允 许 IP 路 由 : 0- 不 允许 ，1- 人 允许 ，2- 未 知 
int m EnableDNS; // 是 否 允 许 DNS 解析 : 0- 不 允许 ，1- 人 允许，2- 未 知 


NET_CARD m Cards[MAX CARD]; // 默 认 的 最 大 网 卡 数 是 10 
Win32Type m SystemType; // 操 作 系统 类 型 
MAC ADDRESS m MacAddr[MAX CARD]; // 人 允许 10 个 网 卡 


(2) 编写 文件 ClassNetSetting.cpp， 用 于 向 网 卡 发 送信 息 ， 以 获取 当前 计算 机 的 网 卡 数 
目 和 名 称 。 具 体 代 码 如 下 : 


ClassNetSetting: :ClassNetSetting() 


{ 


} 


m TotalNetCards = 0; 

 tcscpy(m szDomain, T("")); 
 tcscpy(m szHostName, T("")); 
m IPEnableRouter - 2; 

m EnableDNS - 2; 

m SystemType = Unknow; 


ClassNetSetting::-ClassNetSetting() 


{ 
} 


BOOL ClassNetSetting: :GetSetting() 


{ 


m SystemType = GetSystemType () + 

if (m SystemType == Windows9X) 
return GetSettingOfWin9X(); 

else if(m SystemType == WinNT4orHigher) 
return GetSettingOfWinNT(); 

else // 不 支持 老 旧 的 操作 系统 
return FALSE; 


Win32Type ClassNetSetting: :GetSystemType () 


t 


j 


Win32Type SystemType; 
DWORD winVer; 
OSVERSIONINFO *osvi; 
winVer = GetVersion(); 
if(winVer « 0x80000000) 
t 
ENTIS 
SystemType = WinNT3; 
osvi = (OSVERSIONINFO*)malloc (sizeof (OSVERSIONINFO)) ; 
if (osvi !- NULL) 
{ 
memset (osvi, 0, sizeof (OSVERSIONINFO) ) ; 
osvi-»dwOSVersionInfoSize = sizeof (OSVERSIONINFO) ; 
GetVersionEx (osvi) ; 
if (osvi->dwMajorVersion >= 4L) 
SystemType = WinNT4orHigher; // 它 是 NT4 或 更 高 版 本 ! 
free (osvi); 


H 
else if (LOBYTE(LOWORD(winVer)) < 4) 
SystemType = Win32s; /*Win32s*/ 
else 
SystemType = Windows9X; /*Windows9X*/ 
return SystemType; 


BOOL ClassNetSetting: :GetSettingOfWin9x () 


{ 


LONG 1Ret; 
HKEY hMainKey; 
TCHAR szNameServer [256]; 


// 得 到 域名 ， 网 关 和 DNS 的 设置 
lRet = ::RegOpenKeyEx(HKEY LOCAL MACHINE, 
_T("System\\CurrentControlset\\Services\\VxD\\MSTCP") , 
0, KEY READ, &hMainKey); 
if(lRet == ERROR SUCCESS) 
t 
DWORD dwType, dwDataSize-256; 
::RegQueryValueEx (hMainKey,  T("Domain"), NULL, &dwType, 
(LPBYTE)m szDomain, &dwDataSize); 
dwDataSize — 256; 
::RegQueryValueEx(hMainKey,  T("Hostname"), NULL, &dwType, 
(LPBYTE)m szHostName, &dwDataSize); 
dwDataSize — 256; 
::RegQueryValueEx(hMainKey,  T("EnableDNS"), NULL, &dwType, 
(LPBYTE)&m EnableDNS, &dwDataSize); 
dwDataSize = 256; 
::RegQueryValueEx (hMainKey,  T("NameServer"), NULL, &dwType, 
(LPBYTE)szNameServer, &dwDataSize); 
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} 
: :RegCloseKey (hMainKey); 


HKEY hNetCard = NULL; 
// 调 用 crcpcfg 类 的 静态 函数 得 到 网 卡 的 数目 和 相应 的 MAC 地 址 
m TotalNetCards = GetMacAddress (m MacAddr); 
lRet = ::RegOpenKeyEx (HKEY LOCAL MACHINE, 
T("System\\CurrentControlSet\\Services\\Class\\Net") , 
0, KEY READ, &hNetCard) ; 
if(lRet != ERROR SUCCESS) // 此 处 失败 就 返回 
t 
if(hNetCard != NULL) 
: :RegCloseKey (hNetCard) ; 
return FALSE; 
H 
DWORD dwSubKeyNum = 0,dwSubKeyLen = 256; 
// 得 到 子 键 的 个 数 ， 通 常 与 网 卡 个 数 相等 
lRet = ::RegQueryInfoKey (hNetCard, NULL, NULL, NULL, 
&dwSubKeyNum, &dwSubKeyLen, NULL, NULL, NULL, NULL, NULL, NULL); 
if (1Ret ERROR_SUCCESS) 
{ 


//m TotalNetCards = dwSubKeyNum; // 网 卡 个 数 以 此 为 主 
LPTSTR lpszKeyName = new TCHAR[dwSubKeyLen + 1]; 
DWORD dwSize; 
for(int i=0; i«(int)m TotalNetCards; i++) 
{ 
TCHAR szNewKey [256]; 
HKEY hNewKey; 
DWORD dwType-REG SZ, dwDataSize-256; 
dwSize = dwSubKeyLen + 1; 
lRet = ::RegEnumKeyEx(hNetCard, i, lpszKeyName, 
&dwSize, NULL, NULL, NULL, NULL); 
if (1Ret == ERROR SUCCESS) 
{ 
lRet = ::RegOpenKeyEx (hNetCard, 
lpszKeyName, 0, KEY READ, &hNewKey); 
if(lRet == ERROR SUCCESS) 
::RegQueryValueEx (hNewKey,  T("DriverDesc"), NULL, 
&dwType, (LPBYTE)m Cards[i].szDescription, &dwDataSize); 
: :RegCloseKey (hNewKey) ; 
wsprintf (szNewKey, 
T ("System\\CurrentControlSet\\Services\\Class\\NetTrans\\%s"), 
lpszKeyName); 
lRet = ::RegOpenKeyEx (HKEY LOCAL MACHINE, 
szNewKey, 0, KEY READ, &hNewKey); 
if (1Ret == ERROR SUCCESS) 
{ 
dwDataSize = 256; 
::RegQueryValueEx(hNewKey, T("DefaultGateway"), NULL, 
&dwType, (LPBYTE)m Cards[i].szGateWay, &dwDataSize) ; 
ProcessMultiString(m_Cards[i].szGateWay, dwDataSize) ; 
dwDataSize = 256; 


} 
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: :RegQueryValueEx (hNewKey, T("IPAddress"), NULL, 
&dwType, (LPBYTE)m Cards[i].szIpAddress, &dwDataSize); 
ProcessMultiString (m Cards[i].szlIpAddress, dwDataSize) ; 
dwDataSize — 256; 
::RegQueryValueEx(hNewKey,  T("IPMask"), NULL, &dwType, 
(LPBYTE)m Cards[i].szIpMask, &dwDataSize) ; 
ProcessMultiString (m Cards[i].szlIpMask, dwDataSize); 
// 找 贝 前 面 得 到 的 DNS 主机 名 
tcscpy (m Cards[i].szDNSNameServer, szNameServer); 
: :RegCloseKey (hNewKey) ; 
} 
m Cards[i].szMacAddr[0] = m MacAddr[i] .bl; 
m Cards[i].szMacAddr[1] = m MacAddr[i] .b2; 
m Cards[i] .szMacAddr[2] = m MacAddr[i] .b3; 
m Cards[i] .szMacAddr[3] = m MacAddr[i] .b4; 
m Cards[i].szMacAddr[4] = m MacAddr[i].b5; 
m Cards[i].szMacAddr[5] = m MacAddr[i].b6; 


) 


} 
: :RegCloseKey (hNetCard) ; 
return lRet == ERROR_SUCCESS ? TRUE : FALSE; 


int ClassNetSetting::GetMacAddress (LPMAC ADDRESS pMacAddr) 


{ 


NCB ncb; 
UCHAR uRetCode; 
int num = 0; 
LANA_ENUM lana_enum; 
memset (&ncb, 0, sizeof (ncb)); 
ncb.ncb command = NCBENUM; 
ncb.ncb buffer = (unsigned char *)&lana enum; 
ncb.ncb length = sizeof(lana enum); 
// 向 网 卡 发 送 NCBENUM 命令 ， 以 获取 当前 机 器 的 网 卡 信息 ， 如 有 多 少 个 网 卡 ， 
// 每 张 网 卡 的 编号 等 
uRetCode = Netbios (&ncb) ; 
if (uRetCode == 0) 
t 
num = lana enum.length; 
// 对 每 一 张 网 卡 ， 以 其 网 卡 编号 为 输入 编号 ， 获 取 其 MAC 地 址 
for (int i=0; i<num; i++) 
{ 
ASTAT Adapter; 
if (GetAddressByIndex (lana_enum.lana[i],Adapter) == 0) 
{ 
pMacAddr [i] .b1 
pMacAddr [i] .b2 
pMacAddr [i] .b3 
pMacAddr [i] .b4 
pMacAddr[i] .b5 
pMacAddr [i] .b6 


Adapter.adapt.adapter address[0]; 
Adapter.adapt.adapter address[1]; 
Adapter.adapt.adapter address[2]; 
Adapter.adapt.adapter address[3]; 
Adapter.adapt.adapter address [4]; 
Adapter.adapt.adapter address [5]; 


LI 


LI 


} 
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H 


return num; 


BOOL ClassNetSetting: :GetSettingOfWinNT () 


t 


LONG lRtn; 
HKEY hMainKey; 
TCHAR szParameters [256]; 
// 获 得 域名 ， 主 机 名 和 是 否 使 用 IP 路 由 
_tcscpy(szParameters, 
_T("SYSTEM\\ControlSet001\\Services\\Tcpip\\Parameters") ) 7 
lRtn = ::RegOpenKeyEx (HKEY LOCAL MACHINE, 
szParameters, 0, KEY READ, &hMainKey); 
if (1Rtn == ERROR SUCCESS) 
{ 
DWORD dwType, dwDataSize = 256; 
::RegQueryValueEx(hMainKey, _T("Domain"), NULL, &dwType, 
(LPBYTE)m szDomain, &dwDataSize) ; 
dwDataSize = 256; 
::RegQueryValueEx(hMainKey, T("Hostname"), NULL, &dwType, 
(LPBYTE)m szHostName, &dwDataSize) ; 
dwDataSize = 256; 
::RegQueryValueEx(hMainKey, _T("IPEnableRouter"), NULL, &dwType, 
(LPBYTE)&m IPEnableRouter, &dwDataSize) ; 
H 
: :RegCloseKey (hMainKey) ; 


// 获 得 IP 地 址 和 DNS 解析 等 其 他 设置 
HKEY hNetCard = NULL; 
m TotalNetCards = GetMacAddress (m MacAddr); 
lRtn = ::RegOpenKeyEx(HKEY LOCAL MACHINE, 
_T("SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\NetworkCards") , 
0, KEY READ, &hNetCard); 
if(lRtn != ERROR SUCCESS) // 此 处 失败 就 返回 
t 
if(hNetCard !- NULL) 
::RegCloseKey (hNetCard) ; 
return FALSE; 
H 
DWORD dwSubKeyNum-0, dwSubKeyLen-256; 
// 得 到 子 键 的 个 数 ， 通 常 与 网 卡 个 数 相等 
lRtn = ::RegQueryInfoKey (hNetCard, NULL, NULL, NULL, 
&dwSubKeyNum, &dwSubKeyLen, NULL, NULL, NULL, NULL, NULL, NULL); 
if (1Rtn == ERROR SUCCESS) 
{ 
m TotalNetCards = dwSubKeyNum; // 网 卡 个 数 以 此 为 主 
LPTSTR lpszKeyName = new TCHAR[dwSubKeyLen + 1]; 
DWORD dwSize; 
for(int i-0; i«(int)dwSubKeyNum; i++) 
{ 
TCHAR szServiceName [256]; 
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HKEY hNewKey; 
DWORD dwType — REG SZ,dwDataSize — 256; 
dwSize = dwSubKeyLen + 1; 
::RegEnumKeyEx (hNetCard, i, lpszKeyName, 
&dwSize, NULL, NULL, NULL, NULL); 
lRtn = ::RegOpenKeyEx (hNetCard, lpszKeyName,0,KEY READ, &hNewKey) ; 
if (1Rtn == ERROR SUCCESS) 
{ 
1Rtn = ::RegQueryValueEx(hNewKey, _T("Description"), NULL, 
&dwType, (LPBYTE)m Cards[i].szDescription, &dwDataSize) ; 
dwDataSize = 256; 
lRtn = ::RegQueryValueEx(hNewKey, T("ServiceName"), NULL, 
&dwType, (LPBYTE)szServiceName, &dwDataSize); 
if (1Rtn == ERROR SUCCESS) 
{ 
TCHAR szNewKey[256]; 
wsprintf(szNewKey, 1T("%s\\Interfaces\\%s"), 
szParameters, szServiceName) ; 
HKEY hTcpKey; 
lRtn = ::RegOpenKeyEx (HKEY LOCAL MACHINE, szNewKey, 0, 
KEY READ, &hTcpKey) 7 
if (1Rtn == ERROR SUCCESS) 
{ 
dwDataSize = 256; 
: :RegQueryValueEx (hTcpKey, _T("DefaultGateway"), NULL, 
&dwType, (LPBYTE)m Cards[i].szGateWay, &dwDataSize) ; 
ProcessMultiString (m Cards[i].szGateWay, dwDataSize); 
dwDataSize = 256; 
::RegQueryValueEx(hTcpKey,  T("IPAddress"), NULL, 
&dwType, (LPBYTE)m Cards[i].szIpAddress, &dwDataSize); 
ProcessMultiString (m Cards[i].szIpAddress,dwDataSize); 
dwDataSize = 256; 
::RegQueryValueEx(hTcpKey,  T("SubnetMask"), NULL, 
&dwType, (LPBYTE)m Cards[i].szIpMask, &dwDataSize); 
ProcessMultiString (m Cards[i].szIpMask, dwDataSize); 
dwDataSize = 256; 
:i:RegQueryValueEx(hTcpKey, _T ("NameServer"), NULL, 
&dwType, (LPBYTE)m Cards[i].szDNSNameServer, 
&dwDataSize); 
} 
: :RegCloseKey (hTcpKey) ; 
} 
} 
: :RegCloseKey (hNewKey) ; 
m Cards[i].szMacAddr[0] = m MacAddr[i].bl; 
m Cards[i].szMacAddr[1] - m MacAddr[i].b2; 
m Cards[i].szMacAddr[2] - m MacAddr[i].b3; 
m Cards[i].szMacAddr[3] - m MacAddr[i].b4; 
m Cards[i].szMacAddr[4] - m MacAddr[i].b5; 
m Cards[i].szMacAddr[5] - m MacAddr[i].b6; 


} 
delete []lpszKeyName; 
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: :RegCloseKey (hNetCard); 
return lRtn — ERROR SUCCESS ? TRUE : FALSE; 
$ 
UCHAR ClassNetSetting::GetAddressByIndex(int lana num, ASTAT &Adapter) 
$ 
NCB ncb; 
UCHAR uRetCode; 
memset (&ncb, 0, sizeof (ncb) ); 
ncb.ncb command = NCBRESET; 
ncb.ncb lana num - lana num; 
// 指 定 网 卡号 ， 首 先 对 选 定 的 网 卡 发 送 一 个 NCBRESET 命令 ， 以 便 进行 初始 化 
uRetCode = Netbios (&ncb); 
memset(&ncb, 0, sizeof (ncb)); 
ncb.ncb command = NCBASTAT; 
ncb.ncb lana num = lana num;  // 指 定 网 卡号 


strcpy((char*)ncb.ncb callname, "* "); 
ncb.ncb buffer = (unsigned char *)&Adapter; 
// 指 定 返回 信息 存放 的 变量 


ncb.ncb length = sizeof (Adapter); 
// 接 着 ， 可 以 发 送 NCBASTAT 命令 以 获取 网 卡 的 信息 
uRetCode = Netbios (&ncb); 
return uRetCode; 
} 


void ClassNetSetting: :ProcessMultiString(LPTSTR lpszString, DWORD dwSize) 
t 
for(int i-0; i<int(dwSize-2); i++) 
{ 
if (lpszString[i] == _T('\0')) 
lpszString[i] = 7(',"'); 


) 


到 此 为 止 ， 本 实例 的 主要 代码 讲解 完毕 。 执 行 后 将 首先 显示 网 卡 的 类 型 ， 如 图 1-9 所 
示 。 单 击 “确定 ”按钮 ， 在 弹出 的 窗 体 中 可 以 查看 此 网 卡 的 MAC 地 址 ， 如 图 1-10 所 示 。 
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图 1-9 获取 网 卡 的 类 型 图 1-10 网 卡 详情 
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1.2 获取 网 络 中 计算 机 的 IP 地 址 和 计算 机 名 


在 开发 网 络 应 用 的 过 程 中 ， 经 常 需要 获取 网 络 中 某 台 计算 机 的 IP 地 址 和 计算 机 名 称 。 
在 本 节 的 内 容 中 ， 将 介绍 如 何 使 用 Visual C++ 6.0 开发 一 个 实现 上 述 功能 的 应 用 程序 。 


1.2.1 流 式 套 接 字 编程 


网 络 数据 的 传输 是 通过 套 接 字 实 现 的 。 套 接 字 有 3 种 类 型 : 流 式 套 接 字 (SOCK_ 
STREAM)， 数 据 报 套 接 字 (SOCK_DGRAM) 及 原始 套 接 字 (RAW)。 在 本 小 节 的 内 容 中 ， 将 
首先 讲解 流 式 套 接 字 编程 的 基本 知识 。 

流 式 套 接 字 是 面向 连接 的 ， 提 供 双 向 、 有 序 、 无 重复 且 无 记录 边界 的 数据 流 服 务 ， 适 
用 于 处 理 大 量 数 据 ， 可 靠 性 高 ， 但 开销 也 大 ， 编 程 模型 如 图 1-11 所 示 。 


调用 WSAStartup 函数 加 
载 Winsock dll 


调用 WSAStartup 函数 加 
载 Winsock dll 


调用 socket 函数 创建 用 于 
绑 定 的 Socket 变量 


调用 socket 函数 创建 用 于 
建立 连接 的 Socket 变量 


调用 bind 函数 将 Socket 
与 地 址 绑 定 


调用 listen 函数 打开 监听 
调用 accept 函数 进行 监听 
调用 recv、send 函数 收发 消息 调用 recv、send 函数 收发 消息 


服务 器 程序 客户 机 程序 


调用 connect 函数 将 Socket 与 指 
定 的 服务 器 地 址 进行 连接 


图 1-11 流 式 套 接 字 编程 模型 
1. 服务 器 端 编程 步骤 
(1) 在 初始 化 阶段 调用 函数 WSAStartup) 
此 函数 在 应 用 程序 中 初始 化 Windows Sockets DLL， 只 有 此 函数 调用 成 功 后 ， 应 用 程 
序 才 可 以 再 调用 其 他 Windows Sockets DLL 中 的 API 函数 。 
在 程序 中 该 函数 的 调用 形式 如 下 : 


int WSAStartup( 
WORD wVersionRequested, // 所 使 用 WinSocket 版 本 
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LPWSADATA lpWSAData // 存 储 系统 返回 的 winsocket 信息 
n 
(2) 建立 Socket 
初始 化 WinSock 的 动态 链接 库 后 ， 需 要 在 服务 器 端 建立 一 个 监听 Socket， 为 此 可 以 调 
用 socket0 函 数 来 建立 这 个 监听 的 Socket， 并 定义 此 Socket 所 使 用 的 通信 协议 : 


SOCKET socket( 


int af, // 目 前 只 提供 PF_INET (AF_INET) 
int type, //Socket 的 类 型 (SOCK_STREAM、SOCK_DGRAM) 
int protocol // 通 讯 协议 (如 果 使 用 者 不 指定 则 设 为 0) 


) 


调用 成 功 返回 Socket 对 象 ， 失 败 则 返回 INVALID_SOCKET( 调 用 WSAGetLastError() 
可 得 知 原因 ， 所 有 WinSocket 的 函数 都 可 以 使 用 这 个 函数 来 获取 失败 的 原因 )。 

如 果 要 建立 的 是 遵从 TCP/IP 协议 的 Socket， 第 二 个 参数 type 应 为 SOCK. STREAM, 
如 为 UDP( 用 户 数据 报 协议 ) 的 Socket, type 应 为 SOCK DGRAM. 

GB) 绑 定 端口 

接 下 来 要 为 服务 器 端 定义 的 监听 Socket 指定 一 个 地 址 及 端口 (Port)， 这 样 客户 端 才 知 
道 待 会 儿 要 连接 哪 一 个 地 址 的 哪个 端口 ， 为 此 我 们 要 调用 bind0 函 数 ， 该 函数 调用 成 功 返 
回 0， 和 否则 返回 SOCKET ERROR: 


int bind( 
SOCKET s, / [Socket 对 象 名 
const struct sockaddr FAR *name, //Socket 的 地 址 值 ， 即 所 在 机 器 的 IP 地 址 
int namelen //name 的 长 度 
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如 果 使 用 者 不 在 意 地 址 或 端口 的 值 ， 那 么 可 以 设 定 地 址 为 INADDR_ANY， 及 Port 为 
0，Windows Sockets 会 自动 将 其 设 定 为 适当 的 地 址 及 Port(1024 到 5000 之 间 的 值 )。 此 后 可 
以 调用 getsockname0 〇 函数 来 获知 其 被 设 定 的 值 。 
(4) 监听 
当 服 务 器 端的 Socket 对 象 绑 定 完成 之 后 ， 必 须 建立 一 个 监听 的 队列 来 接收 客户 端的 连 
接 请 求 。listen0 函 数 使 服务 器 端的 Socket 进入 监听 状态 ， 并 设 定 可 以 建立 的 最 大 连接 数 ( 目 
前 最 大 值 限制 为 5， 最 小 值 为 )， 该 函数 调用 成 功 返 回 0， 否 则 返回 SOCKET ERROR: 
int listen( 
SOCKET s, // 需 要 建立 监听 的 Socket. 
int backlog // 最 大 连接 个 数 
) 
服务 器 端的 Socket 调用 完 listen0 后 ， 如 果 此 时 客户 端 调用 connectO 函 数 提出 连接 申请 
的 话 ， 服 务 器 端 必须 再 调用 accept0 函 数 ， 这 样 服务 器 端 和 客户 端 才 算 正式 完成 通信 程序 
的 连接 动作 。 
为 了 知道 什么 时 候 客 户 端 提出 连接 要 求 ， 从 而 服务 器 端的 Socket 在 恰当 的 时 候 调用 
acceptO 函 数 完成 连接 的 建立 ， 我 们 就 要 使 用 WSAAsyncSelect0 函 数 ， 让 系统 主动 来 通知 我 
们 有 客户 端 提出 连接 请 求 了 ， 该 函数 调用 成 功 返 回 0， 否 则 返回 SOCKET ERROR: 
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int WSAAsyncSelect ( 


SOCKET s, //Socket 对 象 

HWND hWnd, // 接 收 消息 的 窗口 句柄 
unsigned int wMsg, // 传 给 窗口 的 消息 
long lEvent // 被 注册 的 网 络 事件 


ye 


被 注册 的 网 络 事件 IEvent 就 是 应 用 程序 向 窗口 发 送 消息 的 网 路 事件 ， 该 值 为 下 列 值 
FD READ, FD WRITE. FD OOB FD ACCEPT. FD CONNECT. FD CLOSE 的 组 
合 ， 各 个 值 的 具体 含义 如 下 。 

Q FD READ: 希望 在 套 接 字 s 收 到 数据 时 收 到 消息 。 
FD WRITE: 希望 在 套 接 字 s 上 可 以 发 送 数据 时 收 到 消息 。 
FD ACCEPT: 希望 在 套 接 字 s 上 收 到 连接 请 求 时 收 到 消息 。 
FD CONNECT: 希望 在 套 接 字 s 上 连接 成 功 时 收 到 消息 。 
FD CLOSE: 希望 在 套 接 字 s 上 连接 关闭 时 收 到 消息 。 

O FD_OOB: 希望 在 套 接 字 s 上 收 到 OOB 数据 时 收 到 消息 。 

具体 应 用 时 ，wMsg 是 在 应 用 程序 中 定义 的 消息 名 称 ， 而 消息 结构 中 的 IParam 则 为 以 
上 各 种 网 络 事件 名 称 。 所 以 ， 可 以 在 窗口 处 理 自 定义 消息 函数 中 使 用 以 下 结构 来 响应 
Socket 的 不 同事 件 : 


switch(lParam) { 
case FD READ: 


oooo 


break; 
case FD WRITE: 
RESTR 
} 
(5) 服务 器 端 接受 客户 端的 连接 请 求 
当 Client 提出 连接 请 求 时 ，Server 端的 hwnd 窗口 会 收 到 Winsock Stack 送 来 的 我 们 自 
定义 的 一 个 消息 ， 这 时 ， 我 们 可 以 分 析 IlParam， 然 后 调用 相关 的 函数 来 处 理 此 事件 。 为 了 
使 服务 器 端 接 受 客户 端的 连接 请 求 ， 就 要 使 用 accept0 函 数 ， 该 函数 新 建 一 个 Socket 与 客 
户 端的 Socket 相通 ， 原 先 监听 的 Socket 继续 进入 监听 状态 ， 等 待 其 他 客户 端的 连接 要 
求 ， 该 函数 调用 成 功 返 回 一 个 新 产生 的 Socket 对 象 ， 否 则 返回 INVALID SOCKET: 


SOCKET accept( 


SOCKET s, //Socket 的 识别 码 
struct sockaddr FAR *addr, // 存 放 连 接 的 客户 端 地 址 
int FAR *addrlen A/ 


); 

(6) 结束 Socket 连接 

结束 服务 器 和 客户 端的 通信 连接 是 很 简单 的 ， 这 一 过 程 可 以 由 服务 器 或 客户 机 的 任 一 
端 启动 ， 只 要 调用 closesocket0 就 可 以 了 ， 而 要 关闭 Server 端 监听 状态 的 Socket， 同 样 也 
是 利用 此 函数 。 另 外 ， 与 程序 启动 时 调用 WSAStartup0 函 数 相 对 应 ， 程 序 结束 前 ， 需 要 调 
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用 WSACleanup0 来 通知 Winsock Stack 释放 Socket 所 占用 的 资源 。 这 两 个 函数 都 是 调用 成 
功 返 回 0， 否 则 返回 SOCKET ERROR. 。closesocketO 函 数 的 原型 如 下 : 
int closesocket ( 
SOCKET s; //Socket 的 识别 码 
) 
(7) 最 后 调用 WSACleanup 
代码 如 下 : 


int WSACleanup (void); 


2. 客户 端 编程 步骤 


(1) 建立 客户 端的 Socket 
客户 端 应 用 程序 首先 也 是 调用 WSAStartup0 函 数 来 与 Winsock 的 动态 链接 库 建立 关 
系 ， 然 后 同样 调用 socket0 来 建立 一 个 TCP 或 UDP Socket( 相 同 协定 的 Sockets 才能 相通 ， 
TCP 对 TCP，UDP 对 UDP)。 与 服务 器 端的 Socket 不 同 的 是 ， 客 户 端的 Socket 可 以 调用 
bind0 函 数 ， 由 自己 来 指定 IP 地 址 及 port 号 码 ; 但 是 也 可 以 不 调用 bind0， 而 由 Winsock 
来 自动 设 定 IP 地 址 及 port 号 码 。 
Q) 提出 连接 请 求 
客户 端的 Socket 使 用 connect0 函 数 来 提出 与 服务 器 端的 Socket 建立 连接 的 申请 ， 函 
数 调用 成 功 返 回 0， 否 则 返回 SOCKET ERROR: 
int connect ( 
SOCKET s, // 服 务 器 端 Socket 的 识别 码 
const struct sockaddr FAR *name, //Socket 想 要 连接 的 对 方 地 址 
int namelen // 地 址 长 度 
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作为 客户 端的 监控 程序 ， 其 实现 过 程 要 比 服 务 器 简单 许多 。 由 于 需要 接收 数据 ， 因 此 
在 异步 选择 函数 中 需要 设 定 待 监测 的 网 络 事件 为 FD CLOSE 和 FD_READ。 在 消息 响应 函 
数 中 可 以 通过 对 消息 参数 的 低位 字 节 进行 判断 而 区 分 出 具体 发 生 的 是 何 种 网 络 事件 ， 并 对 
其 做 出 相应 的 反应 。 

3. 数据 的 传送 

基于 TCP/IP 连接 协议 ( 流 式 套 接 字 ) 的 服务 是 设计 客户 机 /服务 器 应 用 程序 时 的 主流 标 
准 ， 但 有 些 服 务 是 可 以 通过 无 连接 协议 (数据 报 套 接 字 ) 提 供 的 。 一 般 情况 下 TCP Socket 的 
数据 发 送 和 接收 是 调用 send) € recvO 这 两 个 函数 来 达成 ， 而 UDP Socket 则 是 用 sendto() & 
recvfrom() 这 两 个 函数 ， 这 两 个 函数 调用 成 功 返 回 发 送 或 接收 的 资料 的 长 度 ， 否 则 返回 
SOCKET_ERROR。send0 函 数 的 原型 如 下 : 


int send( 
SOCKET s, //Socket 的 识别 码 
const char FAR *buf, // 存 放 要 传送 的 资料 的 暂 存 区 
int len, / /bu£ 的 长 度 


int flags // 此 函数 被 调用 的 方式 
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对 于 Datagram Socket 而 言 ， 若 是 Datagram 的 大 小 超过 限制 ， 则 将 不 会 送出 任何 资 
料 ， 并 会 传 回 错误 值 。 对 Stream Socket 而 言 ， 在 Blocking 模式 下 ， 若 是 传送 系统 内 的 存 
储 空间 不 够 存放 这 些 要 传送 的 资料 ，send0 将 会 被 block 住 ， 直 到 资料 送 完 为 止 ， 如 果 该 
Socket 被 设 定 为 Non-Blocking 模式 ， 那 么 将 视 目前 的 output buffer 空间 有 多 少 ， 就 送出 多 
少 资料 ， 并 不 会 被 block 住 。 

flags 的 值 可 设 为 0 或 MSG DONTROUTE 及 MSG OOB 的 组 合 。 

recv0 函 数 的 原型 如 下 : 


int recv( 
SOCKET s, // Socket 的 识别 码 
char FAR *buf, // 存放 接收 到 资料 的 暂 存 区 
int len, // buf 的 长 度 
int flags; // 此 函数 被 调用 的 方式 


Ys 


1.2.2 开发 准备 
在 具体 实现 本 实例 之 前 ， 需 要 掌握 一 些 与 本 实例 有 关 的 基础 知识 。 
1. 1P 基础 


所 谓 IP 地 址 ， 就 是 给 每 个 连接 在 Intemet 上 的 主机 分 配 的 一 个 32bit 的 地 址 。 按 照 
TCP/IP 协议 规定 ，IP 地 址 用 二 进 制 来 表示 ， 每 个 IP 地 址 长 32bit， 比 特 换算 成 字 节 ， 就 是 
4 个 字 节 。 

例如 一 个 采用 二 进 制 形式 的 IP 地 址 是 “00001010000000000000000000000001”， 这 么 
长 的 地 址 ， 人 们 处 理 起 来 也 太 费 劲 了 。 为 了 方便 人 们 的 使 用 ，IP 地 址 经 常 被 写成 十 进 制 的 
形式 ， 中 间 使 用 句点 符号 “.” 分 开 不 同 的 字 节 。 于 是 ， 上 面 的 IP 地 址 可 以 表示 为 

*10.0.0.1" . IP 地 址 的 这 种 表示 法 叫做 “点 分 十 进 制 表示 法 ”， 这 显然 比 1 和 0 容易 记忆 
得 多 。 

Internet. 上 的 每 台 主机 (Hosb 都 有 一 个 唯一 的 IP 地 址 。JP 协议 就 是 使 用 这 个 地 址 在 主 
机 之 间 传递 信息 ， 这 是 Internet 能 够 运行 的 基础 。IP 地 址 的 长 度 为 32 位 ， 分 为 4 段 ， 每 段 
8 位 ， 用 十 进 制 数字 表示 ， 每 段 数字 范围 为 0-2355， 段 与 段 之 间 用 句点 隔 开 ， 例 如 
159.226.1.1。 

IP 地址 由 两 部 分 组 成 ， 一 部 分 为 网 络 地 址 ， 另 一 部 分 为 主机 地 址 。Internet 委员 会 定 
义 了 5 种 IP 地 址 类 型 以 适合 不 同 容量 的 网 络 ， 即 A-E 类 。 其 中 A、B、C 类 ( 见 表 1-4) 由 
Internet NIC 在 全 球 范围 内 统一 分 配 ，D、E 类 为 特殊 地 址 。 


表 1-4 常用 的 A、B、C 2E IP 地址 


最 后 一 个 可 用 的 网 络 号 | 每 个 网 络 中 的 最 大 主机 数 
A | 126 126 16777214 
16382 191.254 65534 


2097150 223.255.254 254 
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2. Winsock 数据 库 查 询 函 数 


通过 使 用 Winsock 数据 库 查询 函数 ， 可 以 非常 方便 地 获取 某 计 算 机 的 地 址 、 名 字 和 端 
口号 。 本 实例 是 基于 Winsock 数据 库 查 询 函 数 实现 的 ， 接 下 来 将 简单 介绍 Winsock 中 数据 
库 查 询 函 数 的 基本 知识 。 

Windows Sockets 规范 定义 了 如 下 数据 库 例 程 。 

O  gethostbyaddr): 从 网 络 地 址 得 到 对 应 的 名 字 ( 可 能 有 多 个 ) 和 地 址 ， 在 某 些 情况 下 


可 能 会 阻塞 。 
O ”gethostbyname0: 从 主机 名 得 到 对 应 的 名 字 ( 可 能 有 多 个 ) 和 地 址 ， 在 某 些 情况 下 
可 能 会 阻塞 。 


O gethostnameQ: 得 到 本 地 主机 名 ， 在 某 些 情况 下 可 能 会 阻塞 。 
O getprotbynameQ: 从 协议 名 得 到 对 应 的 协议 名 和 数值 ， 在 某 些 情况 下 可 能 会 


阻塞 。 

OQ  getservbyname: 从 一 个 服务 的 名 字 得 到 对 应 的 服务 名 以 及 端口 号 ， 在 某 些 情况 
下 可 能 会 阻塞 。 

OQ  getservbyport: 从 一 个 端口 号 得 到 对 应 的 服务 名 以 及 端口 号 ， 在 某 些 情况 下 可 能 
会 阻塞 。 


正如 我 们 先前 提出 的 ，Windows Sockets 提供 者 有 可 能 不 采用 依赖 于 本 地 数据 库 的 方 
式 来 实现 这 些 函 数 。 某 些 数据 库 例 程 返回 的 指针 (例如 gethostbyname0) 指 向 的 区 域 是 由 
Windows Sockets 函数 库 分 配 的 。 这 些 指针 指向 的 数据 是 易 失 的 。 它 们 只 在 该 线程 的 下 一 
个 Windows Sockets API 调用 前 有 效 。 此 外 ， 应 用 程序 不 应 试图 修改 这 个 结构 ， 或 者 释放 
其 中 的 任何 一 部 分 。 在 一 个 线程 中 ， 这 个 结构 只 有 一 份 找 贝 。 因 此 ， 应 用 程序 应 该 在 发 出 
下 一 个 Windows Sockets API 调用 以 前 把 所 需 的 信息 拷贝 下 来 。 

3. Winsock 库 函 数 

在 本 实例 中 ， 还 需要 使 用 Winsock 库 函 数 实现 注册 、 注 销 以 及 错误 处 理 。 接 下 来 将 简 
单 讲解 两 个 最 为 常用 的 Winsock 库 函 数 的 基本 知识 。 

(1) WSAStartup 

在 使 用 Winsock 库 函 数 之 前 ， 必 须 先 调用 函数 WSAStartup， 该 函数 负责 初始 化 动态 链 
接 库 Ws2_32.dll。 

函数 WSAStartup 的 定义 格式 如 下 : 

int WSAStartup(WORD wVersionRequested, LPWSADATA lpWSAData); 


OQ wVersionRequested: 是 一 个 WORD( 双 字 节 ) 数 值 ， 它 指定 了 应 用 程序 需要 使 用 的 
Winsock 版 本 ， 主 版 本 号 在 低 字 节 ， 次 版 本 号 在 高 字 节 。 
O IpWSAData: 指向 WSADATA 数据 结构 的 指针 ， 该 结构 用 于 返回 本 机 的 Winsock 
系统 实现 的 信息 。 该 结构 中 WhighVersion 和 wVersion 两 个 域 ， 前 者 是 系统 支持 
的 最 高 版 本 ， 后 者 是 系统 希望 调用 者 使 用 的 版 本 。 
如 果 函 数 执行 成 功 则 返回 0， 否 则 返回 错误 码 。 如 果 ws2_32.dll 尚未 初始 化 ， 则 无 法 
调用 WSAGetLastError。 
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(2) WSAGetLastError 
函数 WSAGetLastError 的 定义 格式 如 下 。 


int WSAGetLastError (void); 


本 函数 返回 上 次 发 生 的 网 络 错误 。 当 一 特定 的 Windows Sockets API 函数 指出 一 个 错 
误 已 经 发 生 时 ， 本 函数 就 应 被 调用 来 获得 对 应 的 错误 代码 。 

在 一 个 非 占 先 的 Windows 环境 下 ，WSAGetLastError0 只 用 来 获得 Windows Sockets 
API 错误 。 在 占 先 环境 下 ，WSAGetLastError0 将 调用 GetLastError0) 来 获得 所 有 在 每 线程 基 
础 上 的 Win32 API 函数 的 错误 状态 。 为 了 提高 可 移植 性 ， 应 用 程序 应 在 调用 失败 后 应 立即 
使 用 WSAGetLastError(). 


1.2.3 ”小 试 牛刀 一 一 编程 实现 获取 计算 机 的 IP 地 址 和 计算 机 名 
| ituan | 


源码 路 径 光盘 \yuanmaNlVIP 
本 实例 的 目的 是 ， 使 用 Visual C++ 6.0 开发 一 个 获取 当前 机 器 的 IP 地 址 和 计算 机 名 的 
应 用 程序 。 


1. 设计 MFC 窗 体 
使 用 Visual C++ 6.0 创建 一 个 MFC 项 目 后 ， 根 据 本 实例 的 需要 设计 两 个 窗 体 ， 分 别 是 
IDD ABOUTBOX 窗 体 ( 见 图 1-12) 和 IDD IPADDRESS DIALOG 窗 体 ( 见 图 1-13). 
i xi 


1-12 IDD_ABOUTBOX 窗 体 1-13 IDD_IPADDRESS_DIALOG 窗 体 


2. 具体 编码 


设计 好 窗 体 之 后 ， 接 下 来 开始 讲解 具体 编码 过 程 。 
(1) 在 文件 IPAddressDlg.cpp 中 实现 初始 化 对 话 框 ， 使 用 对 话 框 形式 显示 获取 的 IP 地 
址 和 计算 机 名 。 具 体 代码 如 下 : 


BOOL CIPAddressDlg::OnInitDialog () 
{ 
CDialog::OnInitDialog(); 
ASSERT((IDM ABOUTBOX & OxFFF0) == IDM ABOUTBOX); 
ASSERT(IDM ABOUTBOX « OxF000); 
CMenu *pSysMenu = GetSystemMenu (FALSE) ; 
if (pSysMenu !- NULL) 
{ 
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CString strAboutMenu; 
strAboutMenu.LoadString(IDS ABOUTBOX); 
if (!strAboutMenu. IsEmpty ()) 
{ 
pSysMenu->AppendMenu (MF SEPARATOR) ; 
pSysMenu->AppendMenu (MF STRING, IDM ABOUTBOX, strAboutMenu) ; 
$ 
} 


// 设置 对 话 框图 标 
SetIcon(m_hIcon, TRUE); // 设置 大 图 标 
SetIcon(m_hIcon, FALSE); // 设置 小 图 标 


int nRetCode; 


nRetCode - StartUp(); 

TRACEl("StartUp RetCode: %d\n", nRetCode); 
nRetCode = GetLocalHostName (m sHostName); 
TRACEl("GetLocalHostName RetCode: %d\n", nRetCode); 
nRetCode = GetlIPAddress (m sHostName, m sIPAddress); 
TRACEl("GetIPAddress RetCode: %d\n", nRetCode); 
nRetCode - CleanUp(); 

TRACE1 ("CleanUp RetCode: %d\n", nRetCode) ; 
UpdateData (FALSE) ; 

return TRUE; 


void CIPAddressDlg: :OnSysCommand(UINT nID, LPARAM lParam) 
{ 
if ((nID & OxFFF0) == IDM ABOUTBOX) 
{ 
CAboutDlg dlgAbout; 
dlgAbout.DoModal () ; 
} 
else 


{ 
CDialog: :OnSysCommand(nID, lParam); 


void CIPAddressD1g: :OnPaint () 
{ 
if (IsIconic()) 
{ 
CPaintDC dc(this); // device context for painting 


SendMessage (WM ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0); 
int cxIcon = GetSystemMetrics (SM_CXICON) ; 

int cyIcon = GetSystemMetrics (SM CYICON); 

CRect rect; 

GetClientRect (&rect) ; 

int x = (rect.Width() - cxIcon + 1) / 2; 

int y = (rect.Height() - cyIcon + 1) / 2; 
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dc.DrawIcon(x, y, m hIcon); 


H 


else 


t 


CDialog: :OnPaint (); 
} 


(2) 在 文件 IPAddressDlg.cpp 中 编写 函数 GetLocalHostName0 获 取 机 器 名 ， 调 用 函数 
GetIPAddress0 获 取 机 器 的 他 地址 。 具 体 代码 如 下 : 


int CIPAddressDlg::GetLocalHostName (CString &sHostName) 
t 
char szHostName [256]; 
int nRetCode; 
nRetCode = gethostname (szHostName, sizeof (szHostName)); 
if (nRetCode != 0) { 
sHostName = T("Not available") ;; 
return WSAGetLastError (); 
} 
sHostName = szHostName; 
return 0; 


n 


int CIPAddressDlg::GetlIPAddress (const CString &sHostName, 
CString &sIPAddress) 
t 
struct hostent FAR *lpHostEnt = gethostbyname (sHostName) ; 
if (lpHostEnt == NULL) { 
sIPAddress = T(""); 
return WSAGetLastError(); 


H 
LPSTR lpAddr = lpHostEnt-»h addr list[0]; 
if (lpAddr) { 

struct in addr inAddr; 

memmove (&inAddr, lpAddr, 4); 

sIPAddress = inet ntoa (inAddr); 

if (sIPAddress.IsEmpty()) 

sIPAddress = T("Not available"); 

H 
return 0; 


) 


(3) 在 文件 IPAddressDlg.cpp 中 载 入 Winsock 库 并 释放 控件 ， 具 体 代码 如 下 : 


int CIPAddressDlg::StartUp() 
t 
WORD wVersionRequested; 
WSADATA wsaData; 
int erf; 


wVersionRequested = MAKEWORD (2, 0); 
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err = WSAStartup(wVersionRequested, &wsaData) ; 
if (err != 0) { 
return err; 
} 
if (LOBYTE(wsaData.wVersion) != 2 
|| HIBYTE(wsaData.wVersion) != 0) { 
WSACleanup(); 
return WSAVERNOTSUPPORTED; 
) 
return 0; 


H 
至 此 整个 实例 的 主要 模块 介绍 完毕 ， 执 行 后 将 获取 机 器 名 和 下 地 址 ， 如 图 1-14 所 示 。 


ee [x] 
机 器 名 XIJTRG 
IP 地 址 182.180.0.2 
a 


1-14 “执行 效果 
13 ”实现 超 链接 


在 网 络 应 用 过 程 中 ， 特 别 是 在 Web 程序 中 ， 超 级 链接 用 得 非常 普遍 。 其 实 使 用 VC 技 
术 ， 也 可 以 实现 超级 链接 功能 。 在 本 节 的 内 容 中 ， 将 介绍 使 用 Visual C++ 6.0 开发 一 个 实 
现 超级 链接 功能 的 应 用 程序 。 在 开始 之 前 ， 首 先 简单 介绍 与 之 相关 的 基础 知识 。 


1.3.1 数据 报 套 接 字 编 程 


流 式 套 接 字 主要 用 于 TCP 协议 ， 接 下 来 将 要 学 的 数据 报 套 接 字 主要 用 于 UDP 协议 。 数 
据 报 套 接 字 (Datagram Socket) 提 供 双 向 的 通信 ， 但 没有 可 靠 /有 序 /不 重复 的 保证 ， 所 以 UDP 
传送 数据 可 能 会 收 到 无 次 序 、 重 复 的 信息 ， 甚 至 信息 在 传输 过 程 中 出 现 遗 漏 ， 但 是 传输 效 
率 较 高 ， 在 网 络 上 仍然 有 很 多 应 用 。 
数据 报 套 接 字 的 编程 模型 如 图 1-15 所 示 。 
与 流 式 套 接 字 编程 的 主要 区 别 在 于 ， 在 数据 传输 过 程 中 使 用 的 是 sendto0 及 recvfrom() 
这 两 个 函数 。 其 中 sendto0 函 数 的 结构 如 下 : 
int sendto( 
SOCKET s, 
const char FAR *buf, 
int len, 
int flags, 
const struct sockaddr FAR *to, 
int tolen 
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调用 WSAStartup 函数 加 
载 Winsock dll 


调用 WSAStartup 函数 加 
载 Winsock dll 


调用 socket 函数 创建 用 于 
绑 定 的 Socket 变量 


调用 socket 函数 创建 用 于 
建立 连接 的 Socket 变量 


调用 bind 函数 绑 定 Socket 


调用 sendto 函数 向 服务 器 
端 发 送 数据 


服务 应 答 


调用 sendto 函数 发 送 应 答 调用 recvfrom 函数 接收 


调用 close 函数 关闭 调用 close 函数 关闭 


服务 器 程序 客户 机 程序 


1-15 ”数据 报 套 接 字 编 程 模型 
recvfrom() 函 数 的 结构 如 下 : 


int recvfrom( 
SOCKET s, 
char FAR *buf, 
int len, 
int flags, 
struct sockaddr FAR *from, 
int FAR *fromlen 
Jè 


1.32 ”开发 准备 
在 具体 实现 本 实例 之 前 ， 需 要 掌握 一 些 与 本 实例 有 关 的 基础 知识 。 
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1. 超 链接 

超 链接 在 本 质 上 属于 一 个 网 页 的 一 部 分 ， 它 是 一 种 允许 我 们 同 其 他 网 页 或 站 点 之 间 进 
行 连接 的 元 素 。 各 个 网 页 链接 在 一 起 后 ， 才 能 真正 构成 一 个 网 站 。 所 谓 的 超 链接 是 指 从 一 
个 网 页 指向 一 个 目标 的 连接 关系 ， 这 个 目标 可 以 是 另 一 个 网 页 ， 也 可 以 是 相同 网 页 上 的 不 
同位 置 ， 还 可 以 是 一 个 图 片 ， 一 个 电子 邮件 地 址 ， 一 个 文件 ， 甚 至 是 一 个 应 用 程序 。 而 在 
-个 网 页 中 用 来 超 链接 的 对 象 ， 可 以 是 一 段 文 本 或 者 是 一 个 图 片 。 当 浏览 者 单 击 已 经 链接 
的 文字 或 图 片 后 ， 链 接 目标 将 显示 在 浏览 器 上 ， 并 且 根 据 目 标的 类 型 来 打开 或 运行 。 

2. CStatic 类 


CStatic 类 是 一 个 静态 文本 框 类 ， 此 类 提供 了 一 个 Windows 静态 控件 的 性 能 。 一 个 静 
态 控件 用 来 显示 一 个 文本 字符 串 、 框 、 和 矩形 、 图 标 、 光 标 、 位 图 ， 或 增强 的 图 元 文件 。 它 
可 以 被 用 来 作为 标签 、 框 ， 或 用 来 分 隔 其 他 的 控件 。 创 建 一 个 静态 控件 分 两 步 。 首 先 ， 调 
用 构造 函数 来 构造 此 CStatic 对 象 ， 然 后 调用 Create 成 员 函 数 来 创建 此 静态 控件 并 将 它 与 
该 CStatic 对 象 连接 。 如 果 你 是 在 一 个 对 话 框 中 创建 了 一 个 静态 控件 (通过 一 个 对 话 框 资 
源 )， 则 当 用 户 关 闭 这 个 对 话 框 时 ， 此 CStatic 对 象 被 自动 销毁 。 如 果 你 是 在 一 个 窗口 中 创 
建 了 一 个 CStatic 对 象 ， 则 必须 由 你 来 销毁 它 。 在 一 个 窗口 的 堆栈 中 创建 的 CStatic 对 象 将 
自动 被 销毁 。 如 果 你 是 使 用 new 函数 在 堆 中 创建 CStatic 对 象 ， 则 当 你 使 用 完 后 ， 必 须 调 
用 delete 来 销毁 这 个 CStatic 对 象 。 

在 CStatic 类 中 ， 最 常用 的 成 员 函 数 是 Create， 其 定义 格式 如 下 : 

BOOL Create(LPCTSTR lpszText, DWORD dwStyle, const RECT &rect, 

CWnd *pParentWnd, UINT nID - Oxffff); 
IpszText: 指定 要 放置 在 控件 中 的 文本 。 若 为 NULL， 则 表示 没有 文本 是 可 见 的 。 
dwStyle: 指定 静态 控件 的 窗口 风格 。 任 何 静 态 控件 风格 的 组 合 都 可 用 于 该 控件 。 
rect: 指定 静态 控件 的 位 置 和 大 小 。 可 以 是 一 个 RECT 结构 或 一 个 CRect 对 象 。 
pParentWnd: 指定 CStatic 父 窗口 ， 通 常 是 一 个 CDialog 对 象 ， 不 能 是 NULL. 
nID: 指定 静态 控件 的 控件 人 D。 

CStatic 类 中 其 他 成 员 函 数 的 具体 说 明 如 表 1-5 所 示 。 


ooooo 


#1-5 CStatic 类 成 员 函 数 


指定 要 在 此 静态 控件 中 显示 的 位 图 


GetBitmap 获取 先前 用 SetBitmap 设置 的 位 图 的 句柄 
SetIcon 指定 一 个 要 在 此 静态 控件 中 显示 的 图 标 
GetIcon 获取 先前 用 SetIcon 设置 的 图 标的 句柄 
SetCursor 指定 要 显示 在 此 静态 控件 中 的 光标 图 像 
GetCursor 获取 先前 用 SetCursor 设置 的 光标 图 像 的 句柄 
SetEnhMetaFile 指定 要 显示 在 此 静态 控件 中 的 增强 的 图 元 文件 


获取 先前 用 SetEnhMetaFile 设置 的 增强 图 元 文件 的 句柄 


GetEnhMetaFile 
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Ne p) : 


1.3.3 小 试 牛 刀 一 一 编程 实现 写 邮 件 超级 链接 
实例 功能 编程 实现 写 邮件 超级 链接 | 
源码 路 径 JE fibyuanma Link | 
本 实例 的 目的 是 ， 使 用 Visual C++ 6.0 开发 一 个 实现 写 邮 件 超级 链接 的 应 用 程序 。 
1. 设计 MFC 窗 体 
使 用 Visual C++ 6.0 创建 一 个 MFC 项 目 后 ， 根 
据 本 实例 的 需要 设计 一 个 窗 体 ， 命 名 为 IDD_ 
HLSAMPLE_DIALOG， 如 图 1-16 所 示 。 
2. 具体 编码 
设计 好 窗 体 之 后 ， 接 下 来 开始 讲解 具体 的 编码 


过 程 


1-16 创建 的 窗 体 


(1) 在 文件 HyperLink.h 中 定义 继承 于 类 CStatic 
的 类 CHyperLink， 并 设置 与 超 链接 相关 的 样式 变量 ， 例 如 鼠标 形状 、 是 否 访问 过 等 。 具 体 
代码 如 下 : 
class CHyperLink : public CStatic 
t 
public: 
CHyperLink(); 
virtual ~CHyperLink(); 
// 属性 
public: 


public: 

// 设 定 URL 

void SetURL(CString strURL); 

CString GetURL() const; 

// 设 定 颜色 

void SetColours (COLORREF crLinkColour, COLORREF crVisitedColour, 
COLORREF crHoverColour--1); 

// 获 得 连接 颜色 

COLORREF GetLinkColour() const; 

// 获 得 被 访问 后 的 颜色 

COLORREF GetVisitedColour() const; 

// 获 得 鼠标 移动 上 以 后 的 颜色 

COLORREF GetHoverColour() const; 


// 设 定 是 否 被 访问 过 

void SetVisited(BOOL bVisited-TRUE); 
// 获 得 是 否 被 访问 过 

BOOL GetVisited() const; 


// 设 定 鼠 标 形状 
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void SetLinkCursor (HCURSOR hCursor); 

// 获 得 鼠标 形状 

HCURSOR GetLinkCursor() const; 

// 设 定 是 否 有 下 划 线 

void SetUnderline (BOOL bUnderline=TRUE) ; 
// 获 得 是 否 有 下 划 线 

BOOL GetUnderline() const; 

// 设 定 是 否 是 自动 改变 大 小 

void SetAutoSize (BOOL bAutoSize-TRUE); 
BOOL GetAutoSize() const; 


public: 

virtual BOOL PreTranslateMessage (MSG *pMsg); 
protected: 

virtual void PreSubclassWindow(); 

//) )JAFX VIRTUAL 


protected: 
// 连 接 到 URL 
HINSTANCE GotoURL(LPCTSTR url, int showcmd) ; 
// 打 印 错误 
void ReportError(int nError); 
// 获 得 注册 表 信息 
LONG GetRegKey (HKEY key, LPCTSTR subkey, LPTSTR retdata); 
// 调 整 位 置 
void PositionWindow(); 
// 设 定 默认 的 鼠标 形状 
void SetDefaultCursor(); 
// 变量 
protected: 
COLORREF m crLinkColour, m crVisitedColour; // 超级 链接 颜色 
COLORREF m crHoverColour; // 鼠标 停留 颜色 
BOOL m bOverControl; // 是 否 鼠标 移 到 控件 上 
BOOL m bVisited; // 是 否 被 访问 
BOOL m bUnderline; // 是 否 有 下 划 线 
BOOL m bAdjustToFit; // 是 否 自动 调整 控件 大 小 
CString m strURL; // URL 
CFont m Font; // 设 定 字体 
HCURSOR m hLinkCursor; // 光标 
CToolTipCtrl m ToolTip; // 提示 文字 
protected: 


afx msg HBRUSH CtlColor(CDC *pDC, UINT nCtlColor); 

afx msg BOOL OnSetCursor(CWnd *pWnd, UINT nHitTest, UINT message); 
afx msg void OnMouseMove(UINT nFlags, CPoint point); 

//))AFX MSG 

afx msg void OnClicked(); 

DECLARE MESSAGE MAP() 


(2) 在 文件 HyperLink.cpp 中 定义 类 成 员 函 数 的 具体 实现 ， 接 下 来 开始 讲解 此 文件 的 
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中 ”定义 函数 OnMouseMove 和 OnSetCursor 实现 鼠标 移动 事件 ， 有 具体 代码 如 下 : 
// 鼠 标 移动 事件 


void CHyperLink: :OnMouseMove (UINT nFlags, CPoint point) 
{ 
CStatic: :OnMouseMove (nFlags, point); 
// 判 断 鼠 标 是 否 在 控件 上 方 
if (m boverControl) 
t 
CRect rect; 
GetClientRect (rect) ; 


if (!rect.PtInRect (point)) 
t 
m bOverControl = FALSE; 
ReleaseCapture(); 
RedrawWindow(); 
return; 
} 
H 
else // 鼠标 移 过 控件 
t 
m bOverControl = TRUE; 
RedrawWindow(); 
SetCapture(); 
H 
5 
BOOL CHyperLink: :OnSetCursor ( 
CWnd* /*pWnd*/, 
UINT /*nHitTest*/, 
UINT /*message*/) 


if (m hLinkCursor) 

t 
::SetCursor (m hLinkCursor); 
return TRUE; 


H 
return FALSE; 


) 
© 定义 函数 PreSubclassWindowO 实 现 鼠 标 移动 事件 ， 具 体 代码 如 下 : 


void CHyperLink: :PreSubclassWindow() 
t 
// 获得 鼠标 单 击 事件 
DWORD dwStyle = GetStyle(); 
::SetWindowLong (GetSafeHwnd(), GWL STYLE, dwStyle | SS NOTIFY); 


// 如 果 URL 为 空 ， 设 定 为 窗 体 名 称 
if (m strURL.IsEmpty()) 
GetWindowText (m strURL); 


// 同时 检查 窗 体 标题 是 否 为 空 ， 如 果 为 空 则 设 定 为 URL 
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CString strWndText; 

GetWindowText (strWndText) ; 

if (strWndText.IsEmpty()) { 
ASSERT (!m_strURL. IsEmpty ()) 7 
SetWindowText (m strURL) ; 

} 


// 创建 字体 

LOGFONT 1f; 

GetFont () ->GetLogFont (&1f) ; 
lf.lfUnderline - m bUnderline; 
m Font.CreateFontIndirect (&1f) ; 
SetFont(&m Font); 


PositionWindow(); // 调整 窗 体 大 小 
SetDefaultCursor () ; // 设 定 默认 鼠标 形状 
// 创 建 提示 信息 


CRect rect; 

GetClientRect (rect); 

m ToolTip.Create (this); 

m ToolTip.AddTool(this, m strURL, rect, TOOLTIP ID); 


CStatic::PreSubclassWindow(); 
) 


© 定义 函数 SetURLO 和 GetURLO， 分 别 设置 链接 的 URL 地 址 并 获取 URL。 具 体 代 
码 如 下 : 


// 设 定 URL 
void CHyperLink::SetURL(CString strURL) 
t 
m StrURL = strURL; 
if (::IsWindow(GetSafeHwnd())) { 
PositionWindow(); 
m ToolTip.UpdateTipText (strURL, this, TOOLTIP ID); 
H 
5 
CString CHyperLink::GetURL() const 
{ 
return m strURL; 


} 


@ 定义 SetColours() . GetLinkColour(). GetVisitedColour() 和 GetHoverColour() 函 
数 ， 用 于 设置 链接 的 不 同 访问 状态 下 的 颜色 ， 具 体 代 码 如 下 : 


// 设 定 颜色 
void CHyperLink::SetColours (COLORREF crLinkColour, COLORREF crVisitedColour, 
COLORREF crHoverColour /* = -1 */) 
{ 
m crLinkColour = crLinkColour; 
m crVisitedColour = crVisitedColour; 
if (crHoverColour == -1) 
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m crHoverColour = ::GetSysColor(COLOR HIGHLIGHT); 
else 
m crHoverColour = crHoverColour; 
if (::IsWindow(m hWnd)) 
Invalidate(); 
) 


COLORREF CHyperLink::GetLinkColour() const 
t 


return m crLinkColour; 


} 


COLORREF CHyperLink::GetVisitedColour() const 
t 


return m crVisitedColour; 


} 


COLORREF CHyperLink::GetHoverColour() const 
{ 


return m_crHoverColour; 


} 
© 定义 函数 SetVisited0 和 GetVisited0， 用 于 设置 是 否 被 访问 过 ， 有 具体 代码 如 下 : 


void CHyperLink::SetVisited(BOOL bVisited /* = TRUE */) 


{ 
m bVisited = bVisited; 


if (::IsWindow (GetSafeHwnd())) 
Invalidate(); 
) 


BOOL CHyperLink::GetVisited() const 
{ 


return m bVisited; 


l 


定义 函数 SetLinkCursor0 和 GetLinkCursor0， 用 于 分 别 设 定 鼠 标的 形状 和 获取 鼠 
标的 形状 ， 具体 代码 如 下 : 


void CHyperLink::SetLinkCursor(HCURSOR hCursor) 
t 
m hLinkCursor - hCursor; 
if (m hLinkCursor == NULL) 
SetDefaultCursor(); 
l 


HCURSOR CHyperLink::GetLinkCursor() const 
{ 


return m hLinkCursor; 


i 


@ 定义 函数 SetUnderline0 和 GetUnderline0， 分 别 用 于 设置 是 否 有 下 划 线 和 获取 是 
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否 具有 下 划 线 ， 具 体 代码 如 下 : 


// 设 置 下 划 线 
void CHyperLink::SetUnderline (BOOL bUnderline /* — TRUE */) 


{ 
m bUnderline = bUnderline; 


if (::IsWindow (GetSafeHwnd|())) 

t 
LOGFONT 1f; 
GetFont () -»GetLogFont (&1f) ; 
lf.lfUnderline = m bUnderline; 
m Font.DeleteObject(); 
m Font.CreateFontIndirect (&1lf); 
SetFont (&m Font); 
Invalidate(); 


} 


BOOL CHyperLink: :GetUnderline() const 
{ 


return m_bUnderline; 


i 


图 定义 函数 SetAutoSize Al GetAutoSize0， 分 别 用 于 设置 和 获取 是 否 是 自动 改变 大 
小 ， 具 体 代码 如 下 : 
void CHyperLink: :SetAutoSize(BOOL bAutoSize /* = TRUE */) 
t 
m bAdjustToFit = bAutoSize; 
if (::IsWindow (GetSafeHwnd())) 
PositionWindow(); 


} 


BOOL CHyperLink::GetAutoSize() const 


{ 
return m bAdjustToFit; 


I 


9 函数 PositionWindowO， 用 于 调整 窗 体 的 大 小 ， 具 体 代码 如 下 : 
void CHyperLink: : PositionWindow () 
{ 
if (!::IsWindow(GetSafeHwnd()) || !m bAdjustToFit) 
return; 


CRect rect; 

GetWindowRect (rect); 

CWnd *pParent = GetParent (); 

if (pParent) 
pParent-»ScreenToClient (rect); 

CString strWndText; 

GetWindowText (strWndText) ; 

CDC *pDC = GetDC(); 
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CFont *pOldFont = pDC-»SelectObject (gm Font); 
CSize Extent = pDC->GetTextExtent (strWndText); 
pDC->SelectObject (pOldFont) ; 
ReleaseDC (pDC) ; 
DWORD dwStyle = GetStyle(); 
if (dwStyle & SS CENTERIMAGE) 
rect.DeflateRect(0, (rect.Height() - Extent.cy)/2); 
else 
rect.bottom = rect.top + Extent.cy; 
if (dwStyle & SS CENTER) 
rect .DeflateRect ((rect.Width() - Extent.cx)/2, 0); 
else if (dwStyle & SS RIGHT) 
rect.left = rect.right - Extent.cx; 
else 
rect.right = rect.left + Extent.cx; 
SetWindowPos (NULL, rect.left, rect.top, 
rect.Width(), rect.Height(), SWP NOZORDER); 


) 


定义 函数 SetDefaultCursor0， 用 于 设 定 默认 的 鼠标 形状 ， 具 体 代码 如 下 : 


void CHyperLink: :SetDefaultCursor () 
t 
if (m hLinkCursor == NULL) // No cursor handle - load our own 
t 
// Get the windows directory 
CString strWndDir; 
GetWindowsDirectory (strWndDir.GetBuffer(MAX PATH), MAX PATH); 
strWndDir.ReleaseBuffer(); 


strWndDir += T1T("\\winhlp32.exe") ; 
// This retrieves cursor #106 from winhlp32.exe, 
// which is a hand pointer 
HMODULE hModule = LoadLibrary (strWndDir) ; 
if (hModule) { 
HCURSOR hHandCursor = ::LoadCursor (hModule, MAKEINTRESOURCE (106)); 
if (hHandCursor) 
m hLinkCursor = CopyCursor (hHandCursor); 
} 
FreeLibrary (hModule) ; 


} 
D 定义 函数 GetRegKey0， 用 于 获得 注册 表 信 息 ， 具 体 代 码 如 下 : 


LONG CHyperLink::GetRegKey(HKEY key, LPCTSTR subkey, LPTSTR retdata) 
{ 
HKEY hkey; 
LONG retval = RegOpenKeyEx (key, subkey, 0, KEY QUERY VALUE, &hkey); 
if (retval == ERROR SUCCESS) { 
long datasize — MAX PATH; 
TCHAR data[MAX PATH]; 
RegQueryValue(hkey, NULL, data, &datasize); 
lstrcpy(retdata, data); 


Visual C++ 网 络 开发 基本 应 用 


RegCloseKey (hkey) ; 
} 
return retval; 


} 
@ 定义 函数 ReportError0， 用 于 输出 打印 错误 ， 具 体 代码 如 下 : 


void CHyperLink::ReportError(int nError) 
t 
CString str; 
switch (nError) ( 
case 0: 
str = "The operating system is out\nof memory or resources."; 
break; 
case SE ERR PNF: 
str = "The specified path was not found."; 
break; 
case SE ERR ENF: 
str = "The specified file was not found."; 
break; 
case ERROR BAD FORMAT: 
str = "The .EXE file is invalid\n(non-Win32 .EXE " 
+ CString("") + "or error in .EXE image) ."; 
break; 
case SE ERR ACCESSDENIED: 
str="The operating system denied\naccess to the specified file."; 
break; 
case SE ERR ASSOCINCOMPLETE: 
str = "The filename association is\nincomplete or invalid."; 
break; 
case SE ERR DDEBUSY: 
str = "The DDE transaction could not\nbe completed because " 
+ CString("")+"other DDE transactions\nwere being processed."; 
break; 
case SE ERR DDEFAIL: 
str = "The DDE transaction failed."; 
break; 
case SE ERR DDETIMEOUT: 
str = "The DDE transaction could not\nbe completed because " 
+ CString("") + "the request timed out."; 
break; 
case SE ERR DLLNOTFOUND: 
str = "The specified dynamic-link library was not found."; 
break; 
case SE ERR NOASSOC: 
str = "There is no application associated\nwith the " 
+ CString("") + "given filename extension."; 
break; 
case SE ERR OOM: 
str = "There was not enough memory to complete the operation."; 
break; 
case SE ERR SHARE: 
str = "A sharing violation occurred. "; 
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default: 


str.Format("Unknown Error ($d) occurred.", nError); 


break; 


} 


str = "Unable to open hyperlink:\n\n" + str; 


AfxMessageBox (str, MB ICONEXCLAMATION | MB OK); 


i 


49 定义 函数 GotoURLO， 用 于 链接 到 指定 的 目标 地 址 ， 具 体 代 码 如 下 : 


// 链 接 到 目标 地 址 


HINSTANCE CHyperLink::GotoURL(LPCTSTR url, int showcmd) 


t 
TCHAR key[MAX PATH + MAX PATH]; 


// 调用 函数 ShellExecute() 
HINSTANCE result = 


ShellExecute (NULL,  T("open"), url, NULL, NULL, showcmd) ; 


// 如 果 错 误 ， 则 检查 注册 表 获 得 .htm 文件 的 注册 键 值 
if ((UINT)result «- HINSTANCE ERROR) ( 


if (GetRegKey(HKEY CLASSES ROOT, T(".htm"),key) == ERROR SUCCESS) 


lstrcat (key, T("NshellWopenN command") ) ; 


if (GetRegKey(HKEY CLASSES ROOT,key,key) == ERROR SUCCESS) { 
TCHAR *pos; 
pos = tcsstr(key, T("\"%1\"")); 
if (pos == NULL) { // 没有 发 现 
pos = strstr(key, T("$1")); // 检查 s1 
if (pos 一 NULL) // 没有 参数 
pos = key+lstrlen(key)-1; 
else 
*pos = 'N0'; // 删除 参数 
) 
else 
*pos = '\0'; // 删除 参数 


disErCcat (pos, Pl wd: 


lstrcat(pos, url); 


result = (HINSTANCE)WinExec (key, showcmd) ; 


) 


return result; 
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1 


至 此 ， 整 个 实例 的 主要 模块 介绍 完毕 。 该 程序 执行 后 ， 将 在 窗 体内 显示 一 个 超级 链 


接 ， 如 图 1-17 所 示 。 单 击 “ 写 邮件 ”后 ， 将 激活 链接 ， 开 始 写 邮件 ， 如 图 1-18 所 示 。 
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1-17 ”显示 一 个 超级 链接 图 1-18 开始 写 邮件 


14 ”小 试 牛刀 一 一 开发 一 个 Sniff 嗅 探 器 


实例 功能 使 用 Visual C++ 开发 一 个 Sniff 嗅 探 器 
源码 路 径 


1.4.1 设计 界面 


本 实例 的 目的 是 ， 使 用 Visual C++ 6.0 开发 一 个 Sniff 嗅 探 器 。 

(1) 打开 Visual C++ 6.0， 创 建 一 个 名 为 “NBTSTAT” 的 MFC 程序 。 

(2) 创建 一 个 ID 名 为 “IDD_ABOUTBOX” 的 窗 体 ， 如 图 1-19 所 示 ， 再 创建 一 个 ID 
名 为 “IDD_IPMON_DIALOG” 的 窗 体 ， 如 图 1-20 所 示 。 


图 1-19 IDD_ABOUTBOX 窗 体 1-20 IDD IPMON DIALOG 窗 体 


1.4.2 具体 编码 


设计 界面 完毕 后 ， 开 始 步 入 正式 编码 阶段 。 
(1) 定义 协议 名 称 结构 PROTN2T， 具 体 代 码 如 下 : 
typedef struct PROTN2T 

int proto; 

char *pprototext; 


i 
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} PROTN2T; 
(2) 定义 外 头 结构 IPHEADER， 具 体 代 码 如 下 : 


typedef struct IPHEADER { 
unsigned char header len:4; 
unsigned char version:4; 
unsigned char tos; 
unsigned short total len; 
unsigned short ident; 
unsigned short flags; 
unsigned char ttl; 
unsigned char proto; 
unsigned short checksum; 
unsigned int  sourceIP; 
unsigned int  destIP; 

} IPHEADER; 


G) 定义 TCP 包头 结构 TCPPacketHead， 具 体 代码 如 下 : 


struct TCPPacketHead { 

WORD SourPort; 
WORD DestPort; 
DWORD SeqNo; 

DWORD AckNo; 

BYTE HLen; 

BYTE Flag; 

WORD WndSize; 

WORD ChkSum; 

WORD UrgPtr; 


hi 
(4) 定义 ICMP 包头 结构 ICMPPacketHead， 具 体 代 码 如 下 : 


struct ICMPPacketHead { 
BYTE Type; 
BYTE Code; 
WORD ChkSum; 

Me 


(5) 定义 UDP 包头 结构 UDPPacketHead， 有 具体 代码 如 下 : 


struct UDPPacketHead { 
WORD SourPort; 
WORD DestPort; 
WORD Len; 
WORD ChkSum; 

NH 


(6) 定义 一 个 得 到 协议 名 称 的 数组 a0fProto， 具 体 代码 如 下 : 


PROTN2T aOfProto[PROTO NUM + 1] = 
ü 

4 TPEROTO IP; FIPE P, 

{ IPPROTO ICMP, "ICMP" }, 


; 
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IPPROTO IGMP, "IGMP" ), 
IPPROTO GGP, "GGP" }, 
IPPROTO TCP, "TCP" }, 
IPPROTO PUP, "PUP" }, 
IPPROTO UDP, "UDP" }, 
IPPROTO IDP, "IDP" }, 
IPPROTO ND, "NP" }, 
IPPROTO RAW, "RAW" }, 
IPPROTO MAX, "MAX" }, 
NULL, "" } 


char* get proto name (unsigned char proto) 


{ 


i 


BOOL bFound = FALSE; 
for(int i=0; i<PROTO NUM; i++) 
{ 
if(aOfProto[i].proto 
t 


proto) 


bFound - TRUE; 
break; 
) 
H 
if (bFound) 
return aOfProto[i].pprototext; 
return aOfProto[PROTO NUM].pprototext; 


C) 编写 对 话 框 初始 化 函数 OnInitDialog0， 具 体 代码 如 下 : 


BOOL CIpmonDlg: :OnInitDialog() 


{ 


CDialog::OnInitDialog(); 


// IDM ABOUTBOX must be in the system command range. 


ASSERT((IDM ABOUTBOX & OxFFFO0) == IDM ABOUTBOX); 
ASSERT(IDM ABOUTBOX « OxF000); 
CMenu *pSysMenu - GetSystemMenu (FALSE) ; 
if (pSysMenu !- NULL) 
t 
CString strAboutMenu; 
strAboutMenu.LoadString(IDS ABOUTBOX) ; 
if (!strAboutMenu. IsEmpty () ) 
{ 
pSysMenu->AppendMenu (MF_SEPARATOR) ; 
pSysMenu-»AppendMenu(MF STRING, IDM ABOUTBOX, 
} 
H 
SetIcon(m hlIcon, TRUE); 
SetIcon(m hlIcon, FALSE); 
CHAR szHostName[128] = (0); 
HOSTENT *pHost = NULL; 
CHAR *psziIp = 
int iNum = 0; 


strAboutMenu) ; 
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if (AfxSocketInit (NULL) —FALSE) 
t 

AfxMessageBox("Sorry, socket load error!"); 

return FALSE; 
} 
if (gethostname (szHostName, 128)==0) 
t 

pHost = gethostbyname (szHostName); 

if(pHost != NULL) 

t 

pszIp = inet ntoa(*(in addr*)pHost->h addr list[iNum]); 
m ipsource = inet addr(pszIp); 

} 

else AfxMessageBox ("pHost = NULL!"); 
5 
else AfxMessageBox("can't find host name!"); 
DWORD dwStyle = GetWindowLong (m ctrList.GetSafeHwnd(), GWL STYLE); 
dwStyle &- ~LVS TYPEMASK; 
dwStyle |- LVS REPORT; 
SetWindowLong (m ctrList.GetSafeHwnd(), GWL STYLE, dwStyle); 
m ctrList.InsertColumn(0, "数据 "， LVCEMT LEFT, 525); 
m ctrList.InsertColumn(0, "大 小 "，LVCEMT LEFT, 80); 
m ctrList.InsertColumn(0, "3A", LVCEMT LEFT, 40); 
m ctrList.InsertColumn(0, "HífjM&AE", LVCFMT LEFT, 100); 
m ctrList.InsertColumn(0, "Sw", LVCEMT LEFT, 40); 
m ctrList.InsertColumn(0, "Wih", LVCFMT LEFT, 100); 
m ctrList.InsertColumn(0, "HNX", LVCEMT LEFT, 50); 


::SendMessage (m ctrList.m hWnd, LVM SETEXTENDEDLISTVIEWSTYLE, 
LVS EX FULLROWSELECT, LVS EX FULLROWSELECT) ; 
DWORD dwSize = 0; 
GetIpAddrTable (NULL, &dwSize, FALSE); 
PMIB IPADDRTABLE pIpAddrTable = (PMIB IPADDRTABLE)new BYTE [dwSize]; 
if (pIpAddrTable) 
t 


if (Get IpAddrTable ( 
(PMIB IPADDRTABLE)pIpAddrTable, // Ip 表 缓 冲 区 
&dwSize, // 缓冲 区 大 小 
FALSE // 根据 IP 地 址 排序 


) — NO ERROR) 
{ 
if(pIpAddrTable-»dwNumEntries > 2) 
// Second is MS TCP loopback IP (127.0.0.1) 
{ 
m_Multihomed = TRUE ; 
char szIP[16]; 
for(int i=0; i<(int)pIpAddrTable->dwNumEntries; i++) 
{ 
in addr ina; 
ina.S un.S addr = pIpAddrTable->table[i] .dwAddr; 
char *pIP = inet_ntoa(ina); 
strcpy (szIP, pIP); 
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Af(stricmp(szIP, "127.0-0-1")) 
m IPArr.Add (pIpAddrTable-^table[i].dwAddr); 


! 
delete []pIpAddrTable; 
} 
return TRUE; 
} 


(8) 定义 “查看 ”按钮 的 消息 处 理 函数 ， 具 体 代码 如 下 : 


void CIpmonD1g: :OnLookUp () 
t 
char szErr[50], szHostName [MAX PATH]; 
DWORD dwErr; 
SOCKADDR IN sa; 
gethostname (szHostName, sizeof (szHostName)); 
m iphostsource - m ipsource; 
m ipcheckedhost - ntohl(m iphost); 
if(0 == m threadID) 
t 
SetDlgItemText(IDC LOOKUP, "停止 查看 !") ; 
} 
else 
t 
if(m threadID) 
t 
PostThreadMessage (m threadID, WM CLOSE, 0, 0); 
SetDlgItemText(IDC LOOKUP, "开始 查 看 !") ; 
m start.EnableWindow (FALSE); 
} 
return; 
H 
DWORD dwBufferLen[10]; 
DWORD dwBufferInLen - 1; 
DWORD dwBytesReturned - 0; 
m S = socket(AF INET, SOCK RAW, IPPROTO IP); 
if(INVALID SOCKET — m s) 
t 
dwErr = WSAGetLastError(); 
sprintf(szErr, " Error socket() - $1d ", dwErr); 
AfxMessageBox (szErr); 
closesocket (m s) ; 
return; 
} 
int rcvtimeo = 5000; 
if(setsockopt(m s, SOL SOCKET, SO RCVTIMEO, (const char *)&rcvtimeo, 
sizeof(rcvtimeo)) == SOCKET ERROR) 
t 
dwErr = WSAGetLastError(); 
sprintf(szErr, "Error WSAIoctl = $1d ", dwErr); 
AfxMessageBox (szErr); 
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closesocket (m s); 
return; 


H 


sa.sin family — AF INET; 
Sa.sin port = htons (7000); 
sa.sin addr.s addr = m iphostsource; 
if (bind(m s, (PSOCKADDR)&sa, sizeof(sa)) == SOCKET ERROR) 
t 
dwErr = WSAGetLastError(); 
sprintf(szErr, "Error bind() = $1d ", dwErr); 
AfxMessageBox (szErr); 
closesocket (m s) ; 
return; 
} 
if(SOCKET ERROR != WSAIoctl(m_s, SIO RCVALL, &dwBufferInLen, 
sizeof (dwBufferInLen), 
&dwBufferLen, 
sizeof (dwBufferLen), 
&dwBytesReturned, NULL, NULL)) 
AfxBeginThread(threadFunc, (LPVOID)this); 
else 
t 
dwErr = WSAGetLastError(); 
sprintf(szErr, "Error WSAIoctl = $1d ", dwErr); 
AfxMessageBox (szErr) ; 
closesocket (m s) ; 
return; 


) 
(9) 定义 “确定 ”按钮 的 响应 函数 OnOKO， 具 体 代码 如 下 : 


void CIpmonDlg::OnOK() 
{ 
if(NULL != m threadID) 
PostThreadMessage (m threadID, WM CLOSE, 0, 0); 
if(m IPArr.GetSize()) 
m IPArr.RemoveAll(); 
CDialog::OnOK(); 
} 


(10) 定义 函数 threadFunc(LPVOID p)， 此 函数 是 本 项 目的 核心 ， 用 于 监听 网 络 线程 。 
具体 实现 代码 如 下 : 
UINT threadFunc (LPVOID p) 
{ 
CIpmonDlg *pDlg = static cast«CIpmonDlg*» (p); 
char buf[1000], *bufwork; 
MSG msg; 
int  iRet; 
DWORD dwErr; 
char *pSource, *pDest; 
IPHEADER *pIpHeader; 
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in addr ina; 
char szSource[16], szDest[16], szErr[50]; 
char *pLastBuf — NULL; 


int HdrLen, totallen; 
WORD sourport, destport; 


struct TCPPacketHead *pTCPHead; 
struct ICMPPacketHead *pICMPHead; 
struct UDPPacketHead *pUDPHead; 
BYTE *pdata = NULL; 


PeekMessage(&msg, NULL, WM USER, WM USER, PM NOREMOVE); 
//queue 
pDlg-»m threadID = GetCurrentThreadId(); 


while (TRUE) 
{ 
if (PeekMessage(&msg, 0, WM CLOSE, WM CLOSE, PM NOREMOVE)) 
t 
closesocket (pDlg->m s); 
pDlg-»m threadID = 0; 
pDlg->m start .EnableWindow (TRUE); 
break; 
} 
memset (buf, 0, sizeof (buf)); 
iRet = recv(pDlg->m s, buf, sizeof(buf), 0); 
if (iRet == SOCKET ERROR) 
T 
dwErr = WSAGetLastError(); 
sprintf(szErr, "Error recv() - $1d ", dwErr); 
continue; 
) 
else 
if (*buf) 
{ 
bufwork = buf; 
pIpHeader = (IPHEADER*) bufwork; 
WORD iLen = ntohs(pIpHeader->total len); 
while (TRUE) 
{ 
if(iLen <= iRet) 
{ 
ina.S un.S addr = pIpHeader-^sourceIP; 
pSource = inet ntoa(ina); 
strcpy(szSource, pSource) ; 
ina.S_un.S_ addr = pIpHeader->destIP; 
pDest = inet_ntoa(ina); 
strcpy (szDest, pDest); 
CString str, strProto, strSourPort, 
strDestPort, strData, strSize; 
strProto = get proto name (pIpHeader->proto); 
HdrLen = pIpHeader->header_len&0xf; 


HdrLen *= 4; 
totallen = ntohs(pIpHeader-^total len); 
totallen -= HdrLen; 
switch (pIpHeader-»proto) 
t 
case IPPROTO ICMP: 
ji 
pICMPHead-(struct ICMPPacketHead *) (buf+HdrLen) ; 
//strL4.Format (" type:$d code:%d\n", 
// pICMPHead->Type, pICMPHead->Code) ; 
strSourPort = "-"; 
strDestPort = "-"; 
pdata = ((BYTE*)pICMPHead) + ICMP HEAD LEN; 
totallen -= ICMP HEAD LEN; 
break; 
) 
case IPPROTO TCP: 
{ 
pTCPHead (struct TCPPacketHead *) (buf+HdrLen) ; 
sourport ntohs (pTCPHead->SourPort) ; 
destport = ntohs (pTCPHead->DestPort) ; 
//strL4.Format(" sour port:%d, 
// dest port:$d", sourport, destport); 
strSourPort.Format ("td", sourport) ; 
strDestPort.Format ("$d", destport) ; 
HdrLen = (pTCPHead->HLen)>>4; // 事 实 上 只 有 4 位 
HdrLen *- 4; 
pdata = ((BYTE*)pTCPHead) *HdrLen; 
totallen -- HdrLen; 
break; 
) 
case IPPROTO UDP: 
{ 
pUDPHead- (struct UDPPacketHead *) (buf+HdrLen) ; 
sourport = ntohs (pUDPHead->SourPort) ; 
destport = ntohs (pUDPHead->DestPort) ; 
//strL4.Format(" sour port:%d, 
// dest port:$d", sourport, destport); 
strSourPort.Format("$d", sourport); 
strDestPort.Format ("td", destport); 
pdata = ((BYTE*)pUDPHead) + UDP HEAD LEN; 
totallen -= UDP HEAD LEN; 
break; 


) 


if(pIpHeader-»proto == IPPROTO ICMP) 
strData.Format ("type:%d code:%d data:%s", 
pICMPHead-»Type, pICMPHead->Code, pdata) ; 
else strData.Format(" %s", pdata); 


strSize.Format("$d", totallen); 
pDlg-»AddData(strProto, szSource, strSourPort, 
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) // while 
} 
} 
} 
} // while 
if (pLastBuf) 
delete []pLastBuf; 
) 
else 
t 
AfxMessageBox("No data on network"); 
continue; 
$ 
» 
return TRUE; 


} 


到 此 为 止 ， 整 个 项 目 中 的 核心 模块 已 经 介绍 完毕 ， 至 于 其 他 次 要 部 分 的 代码 ， 请 读者 
参考 本 书 附带 光盘 中 的 源 代 码 。 执 行 之 后 的 效果 如 图 1-21 所 示 。 
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在 OSI 七 层 网 络 模型 当中 ， 网 络 传输 层 负 责 传输 数据 信息 ， 并 
且 包 含 了 比较 常用 的 网 络 传输 协议 ， 例 如 TCP 和 UDP。 在 本 章 的 内 
容 中 ， 将 详细 讲解 使 用 TCP 和 UDP 协议 传输 信息 的 方法 ， 并 通过 
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2.1 TCP 面 向 连接 传输 


TCP 是 Transmission Control Protocol 的 缩写 ， 意 为 传输 控制 协议 。 由 IETF 的 RFC 793 
说 明 (Specified)。 在 简化 的 计算 机 网 络 OSI 模型 中 ， 它 完成 第 四 层 (传输 层 ) 所 指定 的 功能 。 
UDP 是 同一 层 内 的 另 一 个 重要 的 传输 协议 。 


2.1.1 TCP 协 议 基础 


TCP 是 一 种 面向 连接 (连接 导向 ) 的 、 可 靠 的 、 基 于 字 节 流 的 传输 层 (Transport Layer) 通 
信 协 议 。 在 本 小 节 的 内 容 中 ， 将 简单 介绍 TCP 协议 的 基础 知识 。 


1. TCP 支 持 的 服务 类 型 


(1) FIP 文件 传送 (File Transfer) 

文件 传送 协议 FTP(File Transfer ProtocoD) 允 许 用 户 从 一 台 计 算 机 到 另 一 台 取得 文件 ， 
或 发 送 文件 到 另外 一 台 计 算 机 。 从 安全 性 方面 考虑 ， 需 要 用 户 指定 一 个 使 用 其 他 计算 机 的 
用 户 名 和 口令 。 它 不 同 于 NFS(Network File System) 和 NetBIOS 协议 。 一 旦 你 要 访问 另 一 
台 系 统 中 的 文件 ， 任 何 时 刻 都 要 运行 FTP。 而 且 你 只 能 拷贝 文件 到 自己 的 机 器 中 去 ， 才 能 
使 用 它 。 

(2) RLogin 远程 登录 (Remote Login) 

网 络 终端 协议 Telnet 允许 用 户 登录 到 网 络 中 任 一 计算 机 上 。 你 可 启动 一 个 远程 进程 连 
接 到 指定 的 计算 机 ， 直 到 进程 结束 ， 期 间 你 所 键入 的 内 容 被 送 到 所 指定 的 计算 机 。 值 得 注 
意 的 是 ， 这 时 你 实际 上 是 与 你 的 计算 机 进行 对 话 。Telenet 程序 使 得 你 的 计算 机 在 整个 过 程 
中 不 见 了 ， 所 敲 的 每 一 个 字符 直接 送 到 所 登录 的 计算 机 系统 。 一 般 来 说 ， 这 种 远程 连接 是 
类 似 拨号 连接 的 ， 也 就 是 拨 通 后 ， 远 程 系统 提示 你 输入 注册 名 和 口令 ， 退 出 远程 系统 时 ， 
Telnet 程序 也 就 退出 ， 你 又 与 自己 的 计算 机 对 话 了 。 微 电脑 中 的 Telnet 工具 一 般 含 有 一 个 
终端 仿真 程序 。 

(3) SMTP POP3 电子 邮件 (Mail) 

SMTP POP3 人 允许 你 发 送 消息 给 其 他 计算 机 的 用 户 。 计 算 机 邮件 系统 只 需 你 简单 地 往 
另 一 用 户 的 邮件 文件 中 添加 信息 ， 但 随 之 产生 了 问题 ， 使 用 的 微电脑 的 环境 不 同 ， 还 有 重 
要 的 是 宏 (MACRO) 不 适合 于 接受 计算 机 邮件 。 为 了 发 送 电 子 邮 件 ， 邮 件 软 件 希 望 连接 到 目 
的 计算 机 ， 如 果 是 微电脑 ， 也 许 它 已 关机 ， 或 者 正在 运行 另 一 个 应 用 程序 呢 。 出 于 这 种 原 
因 ， 通 常 由 一 个 较 大 的 系统 来 处 理 这 些 邮 件 ， 也 就 是 一 个 一 直 运 行 着 的 邮件 服务 器 。 邮 件 
软件 成 为 用 户 从 邮件 服务 器 取 回 邮件 的 一 个 界面 。 

任何 一 个 TCP/IP 工具 都 可 提供 上 述 这 些 服 务 。 这 些 传统 的 应 用 功能 在 基于 TCP/IP 的 
网 络 中 一 直 扮 演 着 非常 重要 的 角色 。 目 前 情况 有 点 变化 ， 这 些 功能 使 用 也 发 生变 化 ， 如 老 
系统 的 改造 ， 计 算 机 的 发 展 等 ， 出 现 了 各 种 安装 版 本 ， 如 微电脑 、 工 作 站 、 小 型 机 和 巨型 
机 等 。 这 些 计 算 机 好 像 在 一 起 完成 指定 的 任务 ， 尽 管 有 时 看 来 像 是 只 用 到 某 个 指定 的 计算 
机 ， 但 它 是 通过 网 络 得 到 其 他 计算 机 系统 的 服务 。 服 务 器 Server 是 为 网 络 上 其 他 计算 机 提 
供 指定 服务 的 系统 ， 客 户 机 Client 是 得 到 这 种 服务 的 另外 的 计算 机 系统 (值得 注意 的 是 ， 服 
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务 器 /客户 机 不 一 定 是 不 同 的 计算 机 ， 有 可 能 是 同一 计算 机 中 不 同 的 运行 程序 )。 以 下 会 介 
绍 几 种 目前 计算 机 上 典型 的 一 些 服务 ， 这 些 服务 可 在 TCP/IP 网 络 上 调用 。 

(4) NES 网 络 文件 系统 (Network File System) 

这 种 访问 另 一 计算 机 的 文件 的 方法 非常 接近 于 流行 的 FTP。 网 络 文件 系统 提供 磁盘 或 
设备 服务 ， 而 无 需 特 定 的 网 络 实用 程序 来 访问 另 一 系统 的 文件 。 可 以 简单 地 认为 它 是 一 个 
外 加 的 磁盘 驱动 器 。 这 种 额外 的 “虚拟 ”磁盘 驱动 器 就 是 其 他 计算 机 系统 的 磁盘 。 这 非常 
有 用 。 你 只 需 加 大 几 台 计算 机 的 磁盘 容量 ， 就 可 使 网 络 上 其 他 用 户 访问 它 ， 且 不 说 所 带 来 
的 经 济 效益 ， 它 还 能 够 让 几 台 工作 的 计算 机 共享 相同 的 文件 。 它 也 使 得 系统 维护 和 备份 易 
如 反 掌 ， 因 为 再 不 必 为 大 量 的 不 同 机 器 上 的 文件 的 升级 和 备份 而 担心 。 

(5) 远程 打印 (Remote Printing) 

允许 你 使 用 其 他 计算 机 上 的 打印 机 ， 好 像 这 些 打印 机 直接 连 到 你 的 计算 机 上 。 

(6) 远程 执行 (Remote Execution) 

允许 你 请 求 运行 在 不 同 计算 机 上 的 特殊 程序 。 当 你 在 一 个 很 小 的 计算 机 上 运行 一 个 需 
要 大 机 系统 资源 的 程序 时 ， 远 程 执行 非常 有 用 。 

(7) 名 字 服 务 器 (Name Servers) 

在 一 个 大 的 系统 安装 过 程 中 ， 需 要 用 到 大 量 的 各 种 名 字 ， 包 括 用 户 名 、 口 令 、 姓 名 、 
网 络 地 址 、 账 号 等 ， 管 理 这 些 是 非常 令 人 感觉 乏味 的 。 因 此 将 这 些 数据 形成 数据 库 ， 放 到 
一 个 小 系统 中 去 ， 其 他 的 系统 通过 网 络 来 访问 这 些 数 据 。 

(8) 终端 服务 器 (Terminal Servers) 

很 多 的 终端 连接 安装 不 再 直接 将 终端 连 到 计算 机 ， 取 而 代 之 的 是 ， 将 它们 连接 到 终端 
服务 器 上 。 终 端 服 务 器 是 一 个 小 的 计算 机 ， 它 只 需 知道 怎样 运行 TELNET( 或 其 他 一 些 完成 
远程 登录 的 协议 )。 如 果 你 的 终端 想 连 上 去 ， 只 须 键入 要 连 的 计算 机 名 就 可 。 通 常 有 可 能 同 
时 有 几 个 这 种 连接 ， 这 时 终端 服务 器 采用 快速 开关 技术 来 切换 。 


注意 : 在 本 章 只 详细 讲解 TCP 的 最 基本 应 用 ， 至 于 细 分 的 邮件 协议 等 应 用 ， 将 在 本 书后 面 
的 知识 中 进行 详细 介绍 。 
2. TCP 段 格式 
TCP 的 段 格式 结构 如 图 2-1 所 示 。 


2-1 TCP 段 格式 
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口 ” 源 端口 :16bit 源 端口 指 的 是 发 起 通信 的 端口 号 。 

a ”目的 端口 16bit 目的 端口 指 的 是 传输 目的 地 的 端口 号 。 

OQ FES: 该 序号 是 32bit 的 无 符号 数 ， 到 达 27-1 后 又 从 0 开始 ， 表 示 在 这 个 报 文 段 

中 的 第 一 个 数据 字 节 的 编号 。 利 用 序号 段 可 以 纠正 传输 导致 的 乱 序 ， 从 而 重组 分 

段 报 文 。 

E TCP 使 用 32 确认 号 标识 下 一 个 希望 收 到 的 报 文 的 第 一 个 字 节 的 编 
。 因 此 ， 确 认 号 应 当 是 上 一 次 成 功 接收 到 的 数据 字 节 序号 加 1。 

首部 长度 4bit， 该 字段 以 字 为 单位 计量 TCP 头 长 度 。 

CRA: Obit 恒 为 0， 将 来 定义 新 的 用 途 。 

URG: 紧急 指针 有 效 。 

ACK: 确认 序号 有 效 。 

: 接收 方 应 该 尽快 将 这 个 报 文 交 给 应 用 层 。 

RST: E HER. 

SYN: 同步 序号 ， 用 来 发 起 一 个 连接 。 

FIN: 发 送 端 完成 发 送 任务 。 

窗口 : 该 16bit 字段 表明 接收 端 声明 可 以 接收 的 TCP 数据 段 大 小 ， 最 大 为 65535 

字 节 。 

校 验 和 : 该 16bit 由 发 送 端 计算 存储 ， 由 接收 端 进行 验证 。 验 证 整个 TCP， 包 括 

首部 和 数据 . 

Qa ”紧急 指针 只 有 当 URG #1 时 才 有 效 。 紧 急 指针 是 一 个 正 的 偏 移 量 ， 和 序号 字 
段 中 的 值 相 加 表示 紧急 数据 最 后 一 个 字 节 的 序号 。 通 常用 于 发 送 紧急 数据 。 

口 ” 选 项 :常见 可 选 字段 是 最 长 报 文大 小 。 

Q 数据: TCP 数据 部 分 可 选 。 建 立 和 释放 连接 时 ， 双 方 交换 的 只 有 TCP 首部 。 

3. TCP 通 信 

(1) 在 使 用 TCP 进行 通信 时 ， 首 先 需 建立 连接 。 建 立 连接 需要 经 过 如 下 3 次 握手 。 

Q@ ”请求 端 (客户 ) 发 送 一 个 SYN 段 ， 指 明 客 户 打 算 连 接 的 服务 器 的 端口 以 及 SEQ( 初 
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始 序号 )。 

加 ”服务 器 发 回 包含 服务 器 的 SEQ 的 SYN 报 文 段 作为 应 答 。 同 时 序号 GSN) 加 1， 
以 对 客户 的 SYN 报 文 段 进 行 确认 。 

© 客户 将 确认 服务 器 的 ISN 加 1， 用 以 对 服务 器 的 SYN 报 文 段 进 行 确认 。 

有 具体 过 程 如 图 2-2 所 示 。 


建立 连接 之 后 需要 停止 连接 ， 停 止 连接 需要 经 过 4 次 握手 ， 这 是 由 TCP 的 半 关 闭 
(Half-close) 造 成 的 。 停 止 连接 的 具体 过 程 如 图 2-3 所 示 。 

为 了 加 深 读者 对 TCP 处 理 过 程 的 理解 ， 接 下 来 通过 一 个 简单 例子 来 说 明 ， 此 例 的 运行 
过 程 如 图 2-4 所 示 。 
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AX 报 文 端 接收 端 
SYN 报 文 段 ， 序 号 n | 


1. 接 收 SYN 报 文 段 
2. 发 送 SYN 报 文 段 ， 序 号 y 


1. 接 收 SYN+ACK 报 文 段 
2. 发 送 ACK+1 报 文 段 


接收 ACK 报 文 段 


2-2 TCP 建 立 连接 
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CP: 
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ACK. 
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等 待 连接 终止 
连接 终止 
图 2-3 TCP 停 止 连接 


在 这 个 例子 中 ， 首 先 客户 端 主动 发 起 连接 、 发 送 请 求 ， 然 后 服务 器 端 响应 请 求 ， 然 后 
客户 端 主动 关闭 连接 。 两 条 竖 线 表 示 通 讯 的 两 端 ， 从 上 到 下 表示 时 间 的 先后 顺序 ， 注 意 ， 
数据 从 一 端 传 到 网 络 的 另 一 端 也 需要 时 间 ， 所 以 图 中 的 箭头 都 是 斜 的 。 双 方 发 送 的 段 按时 
间 顺 序 编号 为 1-10， 各 段 中 的 主要 信息 在 箭头 上 标 出 ， 例 如 段 2 的 箭头 上 标 着 SYN, 
8000(0), ACK 1001, «mss 1024>， 表 示 该 段 中 的 SYN 位置 1，32 位 序号 是 8000， 该 段 不 携 
带 有 效 载荷 (数据 字 节 数 为 0)，ACK 位 置 1，32 位 确认 序号 是 1001， 带 有 一 个 mss 选项 ， 
值 为 1024。 
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图 2-4 ”运行 过 程 

(2) 由 此 可 以 总 结 出 建立 连接 的 过 程 如 下 。 

QD 客户 端 发 出 段 1，SYN 位 表示 连接 请 求 。 序 号 是 1000， 这 个 序号 在 网 络 通讯 中 用 
作 临 时 的 地 址 ， 每 发 一 个 数据 字 节 ， 这 个 序号 要 加 1， 这 样 在 接收 端 可 以 根据 序号 排出 数 
据 包 的 正确 顺序 ， 也 可 以 发 现 丢 包 的 情况 ， 另 外 ， 规 定 SYN 位 和 FIN 位 也 要 占 一 个 序 
号 ， 这 次 虽然 没 发 数据 ， 但 是 由 于 发 了 SYN 位 ， 因 此 下 次 再 发 送 应 该 用 序号 1001. mss 
表示 最 大 段 尺 寸 ， 如 果 一 个 段 太 大 ， 封 装 成 帧 后 超过 了 链 路 层 的 最 大 帧 长 度 ， 就 必须 在 IP 
层 分 片 ， 为 了 避免 这 种 情况 ， 客 户 端 声 明 自己 的 最 大 段 尺 寸 ， 建 议 服务 器 端 发 来 的 段 不 要 
超过 这 个 长 度 。 

© 服务 器 发 出 段 2， 也 带 有 SYN 位， 同时 置 ACK 位 表示 确认 ， 确 认 序号 是 1001, 
表示 “我 接收 到 序号 1000 及 其 以 前 所 有 的 段 ， 请 你 下 次 发 送 序号 为 1001 的 段 ”， 也 就 是 
应 答 了 客户 端的 连接 请 求 ， 同 时 也 给 客户 端 发 出 一 个 连接 请 求 ， 同 时 声明 最 大 尺寸 为 
1024。 

Q 客户 端 发 出 段 3， 对 服务 器 的 连接 请 求 进行 应 答 ， 确 认 序号 是 8001. 

在 这 个 过 程 中 ， 客 户 端 和 服务 器 分 别 给 对 方 发 了 连接 请 求 ， 也 应 答 了 对 方 的 连接 请 
求 ， 其 中 服务 器 的 请 求 和 应 答 在 一 个 段 中 发 出 ， 因 此 一 共有 三 个 段 用 于 建立 连接 ， 称 为 三 
方 握手 (three-way-handshake)。 在 建立 连接 的 同时 ， 双 方 协商 了 一 些 信息 ， 例 如 双方 发 送 序 
号 的 初始 值 、 最 大 段 尺 寸 等 。 

在 TCP 通讯 中 ， 如 果 一 方 收 到 另 一 方 发 来 的 段 ， 读 出 其 中 的 目的 端口 号 ， 发 现 本 机 并 
没有 任何 进程 使 用 这 个 端口 ， 就 会 应 答 一 个 包含 RST 位 的 段 给 另 一 方 。 例 如 ， 服 务 器 并 没 
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有 任何 进程 使 用 8080 端口 ， 我 们 却 用 Telnet 客户 端 去 连接 它 ， 服 务 器 收 到 客户 端 发 来 的 
SYN 段 就 会 应 答 一 个 RST 段 ， 客 户 端 的 Telnet 程序 收 到 RST 段 后 将 报告 Connection 
refused: 


$ telnet 192.168.0.200 8080 

Trying 192.168.0.200... 

telnet: Unable to connect to remote host: Connection refused 

(3) 由 此 可 以 总 结 出 数据 传输 的 过 程 如 下 。 

DQ 客 户 端 发 出 段 4， 包 含 从 序号 1001 开始 的 20 个 字 节 数据 。 

@ ”服务 器 发 出 段 5， 确 认 序号 为 1021， 对 序号 为 1001~1020 的 数据 表示 确认 收 到 ， 
同时 请 求 发 送 序号 1021 开始 的 数据 ， 服 务 器 在 应 答 的 同时 也 向 客户 端 发 送 从 序号 8001 JT 
始 的 10 个 字 节 数据 ， 这 称 为 piggyback。 

© 客户 端 发 出 段 6， 对 服务 器 发 来 的 序号 为 8001-8010 的 数据 表示 确认 收 到 ， 请 求 
发 送 序号 8011 开始 的 数据 。 

在 数据 传输 过 程 中 ，ACK 和 确认 序号 是 非常 重要 的 ， 应 用 程序 交 给 TCP 协议 发 送 的 
数据 会 暂 存 在 TCP 层 的 发 送 缓冲 区 中 ， 发 出 数据 包 给 对 方 之 后 ， 只 有 收 到 对 方 应 答 的 
ACK 段 才 知道 该 数据 包 确 实 发 到 了 对 方 ， 可 以 从 发 送 缓冲 区 中 释放 掉 了 ， 如 果 因 为 网 络 故 
障 丢失 了 数据 包 或 者 丢失 了 对 方 发 回 的 ACK 段 ， 经 过 等 待 超时 后 TCP 协议 自动 将 发 送 组 
冲 区 中 的 数据 包 重 发 。 

上 述 例子 只 描述 了 最 简单 的 一 问 一 答 的 情景 ， 实 际 的 TCP 数据 传输 过 程 可 以 收发 很 多 
数据 段 ， 虽 然 典型 的 情景 是 客户 端 主动 请 求 服务 器 被 动 应 答 ， 但 也 不 是 必须 如 此 ， 事 实 上 
TCP 协议 为 应 用 层 提 供 了 全 双 工 (Full Duplex) 的 服务 ， 双 方 都 可 以 主动 甚至 同时 给 对 方 发 

如 果 通 讯 过 程 只 能 采用 一 问 一 答 的 方式 ， 收 和 发 两 个 方向 不 能 同时 传输 ， 在 同一 时 间 
只 允许 一 个 方向 的 数据 传输 ， 则 称 为 “ 半 双 工 (Half Duplex)”， 假 设 某 种 面向 连接 的 协议 
是 半 双 工 的 ， 则 只 需要 一 套 序号 就 够 了 ， 不 需要 通讯 双方 各 自 维护 一 套 序 号 。 


注意 ; 建立 连接 的 过 程 是 三 方 握手 ， 而 关闭 连接 通常 需要 4 个 段 ， 服 务 器 的 应 答 和 关闭 连 
接 请 求 通常 不 合并 在 一 个 段 中 ， 因 为 有 连接 半 关 闭 的 情况 ， 这 种 情况 下 客户 端 关闭 
连接 之 后 就 不 能 再 发 送 数据 给 服务 器 了 ， 但 是 服务 器 还 可 以 发 送 数据 给 客户 端 ， 直 
到 服务 器 也 关闭 连接 为 止 。 


2.1.2 ”小 试 牛 刀 一 一 模拟 实现 Windows 的 TCP 程 序 


实例 功能 使 用 Visual C++ 开发 一 个 类 似 于 Windows 自 带 的 TCP 程序 
源码 路 径 光盘 \yuanma\2VTCP 
本 实例 的 目的 是 ， 使 用 Visual C++ 6.0 开发 一 个 类 似 于 Windows 自 带 的 TCP 程序 。 
1. 划分 模块 


项 目 中 TCP 模块 的 功能 描述 如 下 。 
(1) 服务 器 端 能 够 以 默认 选项 启动 提供 服务 功能 ， 默 认 选项 包括 服务 器 端的 TP 或 主机 
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Q) 服务 器 端 能 够 根据 用 户 指定 的 选项 ， 提 供 服务 功能 ， 这 些 选 项 包括 服务 器 端的 IP 
或 主机 名 和 端口 号 。 

(3) 如 果 服 务 器 以 错误 选项 启动 ， 则 提示 错误 信息 ， 并 终止 程序 。 

(4) 客户 端 连接 到 服务 器 端 后 ， 可 以 发 送信 息 到 服务 器 ， 也 可 以 接收 来 自 服务 器 端的 
响应 。 

(5) 如 果 客 户 端 不 能 连接 到 服务 器 端 ， 则 输出 错误 信息 。 

(6) 当 客 户 端 以 错误 选项 启动 时 ， 会 提示 错误 信息 ， 并 终止 程序 。 

根据 上 述 功能 分 析 ， 得 出 TCP 模块 的 构成 功能 如 下 所 示 。 

服务 器 端 

口 “ 初 始 化 模块 : 初始 化 全 局 变量 ， 并 为 全 局 变量 赋值 ， 初 始 化 Winsock， 并 加 载 

Winsock 库 。 

口 “” 功能 控制 模块 : 是 其 他 模块 的 调用 函数 ， 实 现 参数 获取 、 用 户 帮 助 和 错误 处 理 等 。 

a ”循环 控制 模块 : 用 于 控制 服务 器 端的 服务 次 数 ， 如 果 超 过 指定 次 数 则 停止 服务 。 

OQ JA BRA: 为 客户 提供 服务 ， 接 收 客户 端的 数据 ， 并 发 送 数据 到 客户 端 。 

客户 端 

口 “ 初 始 化 模块 : 用 于 初始 化 客户 端的 Winsock， 并 加 载 Winsock 库 。 

口 “” 功能 控制 模块 : 是 其 他 模块 的 调用 函数 ， 实 现 参数 获取 、 用 户 帮 助 和 错误 处 理 等 。 

口 “” 传输 控制 模块 : 用 于 控制 整个 客户 端的 数据 传输 ， 包 括 发 送 和 接收 。 

总 体 结构 如 图 2-5 所 示 。 


初始 化 
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TCP 模 志 服务 
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vy 
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图 2-5 TCP 模 块 的 总 体 结构 
2. 运行 流程 分 析 
(1) 服务 器 端 运行 流程 。 
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在 服务 器 端 ， 首 先 调用 GetArgments() 函 数 获取 用 户 提 供 的 选项 ， 如 果 没 有 提供 选项 ， 
则 直接 使 用 默认 值 ， 如 果 有 选项 提供 并 成 功 获取 ， 则 初始 化 变量 和 Winsock， 并 创建 TCP 
流 套 接 字 ， 然 后 解析 主机 名 或 卫 地 址 ， 解 析 成 功 后 设置 服务 器 地 址 的 各 个 参数 ， 包 括 地 址 
族 和 IP 地 址 等 。 接 下 来 将 创建 的 TCP 流 套 接 字 和 设 定 的 服务 器 地 址 绑 定 。 绑 定 成 功 后 开 
始 侦 听 客户 端的 连接 ， 并 调用 循环 函数 LoopControl0 函 数 和 Service0 函 数 进 行 接收 客户 端 
的 连接 、 接 收 数据 和 发 送 数 据 等 操作 。 当 服务 次 数 达到 最 多 服务 次 数 时 ， 则 关闭 服务 器 ， 
并 释放 所 占用 的 资源 。 

(2) 客户 端 运行 流程 。 

客户 端 执行 时 必须 带 选项 ， 首 先 判断 用 户 提供 参数 的 个 数 ， 如 果 参 数 不 是 3 个 ， 则 说 
明 没 有 提供 正确 的 选项 ， 退 出 当前 程序 。 如 果 等 于 3 个 ， 则 调用 GetArgments0 函 数 获取 用 
户 提供 的 选项 ， 如 果 获 取 的 选项 错误 则 终止 程序 ， 正 确 则 创建 TCP 流 套 接 字 ， 接 着 进行 和 
服务 器 端 类 似 的 操作 ， 即 解析 主机 和 IP 地址， 然后 进行 连接 服务 器 的 操作 ， 连 接 成 功 则 输 
出 连接 信息 ， 并 发 送信 息 到 客户 端 ， 然 后 接收 来 自 服务 器 端的 响应 ， 并 将 接收 到 的 信息 输 
出 。 最 后 关闭 套 接 字 并 释放 所 占用 的 资源 。 

3. 设计 数据 结构 

(1) 服务 器 端的 全 局 变量 如 下 : 

/* 定 义 全 局 变量 */ 


char *hostName; 
unsigned short maxService; 
unsigned short port; 


(2) 客户 端的 全 局 变量 如 下 : 
/* 定 义 全 局 变量 */ 


unsigned short port; 
char *hostName; 


4. 规划 函数 

(1) 服务 器 端 。 服 务 器 端的 构成 函数 如 下 。 

Q intial): 用 于 初始 化 服务 器 端的 全 局 变量 。 
Q InitSockets(): 用 于 初始 化 Winsock。 

Q GetArgmentsQ: 用 于 获取 用 户 提 供 的 选项 。 
口 

Q 


ErrorPrint(): 用 于 输出 错误 信息 。 
LoopControl): 实现 循环 控制 ， 当 服务 器 次 数 在 指定 范围 内 时 ， 将 接收 客户 端 请 
求 ， 并 创建 一 个 线程 为 客户 端 服务 。 

a Service: 用 于 服务 客户 端 。 

Q) 客户 端 。 客户 端的 构成 函数 如 下 。 

口 InitSockets(): 用 于 初始 化 Winsock. 

口 “GetArgment0: 用 于 获取 用 户 提供 的 选项 。 

口 “ErrorPrint0: 用 于 输出 错误 信息 。 
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5. 具体 编码 


(1) 服务 器 端 编码 
© itm 
预 处 理 包括 文件 导入 、 头 文件 加 载 、 定 义 常 量 、 定 义 变量 等 操作 。 有 具体 代码 如 下 : 


/* 导 入 库 文件 */ 

#pragma comment (lib, "wsock32.1ib") 
/* 加 载 头 文件 */ 

#include <stdio.h> 

#include <winsock2.h> 

/* 自 定义 函数 原型 */ 

void initial(); 

int InitSockets (void); 


void GetArgments (int argc, char **argv); 
void ErrorPrint (x); 
void userHelp(); 


int LoopControl(SOCKET listenfd, int isMultiTasking); 
void Service(LPVOID lpv); 


/* 定 义 常量 */ 

#define MAX SER 10 

/* 定 义 全 局 变量 */ 

char *hostName; 

unsigned short maxService; 
unsigned short port; 


Q ”初始 化 模块 
此 处 的 初始 化 分 为 全 局 变量 初始 化 和 Winsock 初始 化 两 部 分 ， 分 别 通过 如 下 两 个 函数 


Q initial): 用 于 初始 化 全 局 变量 ， 通 过 设置 hostName=“127.0.0.1"， 说 明 程 序 运行 
时 仅 限 定 客户 端 和 服务 器 在 同一 台 机 器 上 。 

Q InitSockets(void): 用 于 初始 化 Winsock. 

对 应 的 代码 如 下 : 

/* 初 始 化 全 局 变量 函数 */ 


void initial() 

t 
hostName = "127.0.0.1"; 
maxService = 3; 
port = 9999; 

} 


/* 初 始 化 Winsocket 函数 */ 
int InitSockets (void) 
$ 

WSADATA wsaData; 
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WORD sockVersion; 
int err; 


/* 设 置 Winsock 版 本 号 */ 

sockVersion = MAKEWORD(2, 2); 

/* 初 始 化 Winsock*/ 

err = WSAStartup(sockVersion, &wsaData); 

/* 如 果 初 始 化 失败 */ 

if (err != 0) 

t 
printf("Error %d: Winsock not available\n", err); 
return 1; 

} 

return 0; 

} 


© 功能 控制 模块 

此 模块 提供 了 参数 获取 、 错 误 输 出 和 用 户 帮助 等 功能 ， 上 述 功 能 分 别 通过 如 下 3 个 函 
数 实现 : 

Q GetArgments: 用 于 获取 用 户 提供 的 选项 值 。 

Q EmorPrint: 用 于 输出 错误 。 

Q userHelp: 用 于 输出 帮助 信息 。 

对 应 的 实现 代码 如 下 : 

/* 获 取 选 项 函数 */ 


void GetArgments (int argc, char **argv) 
{ 
int is 
for(i-1; i<argc; i++) 
t 
/* 参 数 的 第 一 个 字符 若是 “-”*/ 
if (argv[i][0] == '-') 
{ 
/* 转 换 成 小 写 */ 
Switch (tolower(argv[i][1])) 
{ 
/* 若 是 端口 号 */ 
case 'p': 
if (strlen(argv[i]) > 3) 
port = atoi (gargv[i] [3]); 
break; 
/* 若 是 主机 名 */ 
case ^h": 
hostName = &argv[i] [3]; 
break; 
/* 最 多 服务 次 数 */ 
(Casca mus 
maxService = atoi(&argv[i] [3]); 
break; 
/* 其 他 情况 */ 
default: 


} 
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userHelp(); 
break; 


} 
return; 


/* 错 误 输出 函数 */ 


void ErrorPrint (x) 


t 


n 


printf("Error $d: $sWn", WSAGetLastError(), x); 


/* 用 户 帮助 函数 */ 


void userHelp() 


t 


) 


printf("userHelp: -h:str -p:int -n:int\n"); 


printf(" -h:str The host name Mn"); 

printf(" The default host is 127.0.0.1\n"); 
printf(" -p:int The Port number to use\n"); 

printf(" The default port is 9999\n"); 

printf(" -n:int The number of service,below MAX SER Mn"); 
printf(" The default number is 3n"); 


ExitProcess(-1); 


© ”循环 控制 模块 
此 模块 的 功能 是 通过 函数 LoopControl 实现 的 ， 具 体 代码 如 下 : 


/* 循 环 控制 函数 */ 
int LoopControl(SOCKET listenfd, int isMultiTasking) 


{ 


SOCKET acceptfd; 

struct sockaddr in clientAddr; 
int err; 

int nSize; 

int serverNum = 0; 

HANDLE handles [MAX SER]; 

int myID; 


/* 服 务 次 数 小 于 最 大 服务 次 数 */ 
while (serverNum < maxService) 
t 
nSize = sizeof (clientAddr); 
/* 接 收 客户 端 请 求 */ 
acceptfd = accept (listenfd, (struct sockaddr *) 
&clientAddr, &nSize); 
/* 如 果 接 收 失败 */ 
if (acceptfd == INVALID SOCKET) 
{ 
ErrorPrint("Error: accept failed\n"); 
return 1; 
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} 
/* 接 收成 功 */ 
printf("Accepted connection from client at %s\n", 
inet ntoa(clientAddr.sin addr)); 
/* 如 果 人 允许 多 任务 执行 */ 
if (isMultiTasking) 
{ 
/* 创 建 一 个 新 线程 来 执行 任务 ， 新 线程 的 初始 堆栈 大 小 为 1000， 线 程 执行 函数 
是 service () ， 传 递 给 Service () 的 参数 为 acceptfq*/ 
handles[serverNum] = CreateThread(NULL, 1000, 
(LPTHREAD START ROUTINE) Service, 
(LPVOID) acceptfd, 0, &myID); 


) 
else 
/* 直 接 调用 服务 客户 端的 函数 */ 
Service ( (LPVOID) acceptfd) ; 
serverNum++; 


if (isMultiTasking) 


/* 在 一 个 线程 中 等 待 多 个 事件 ， 当 所 有 对 象 都 被 通知 时 函数 才 会 返回 ， 且 等 待 没有 时 间 限 制 */ 
err = WaitForMultipleObjects (maxService, handles, TRUE, INFINITE); 
printf("Last thread to finish was thread #%d\n", err); 


} 
return 0; 


} 


© ”服务 模块 

此 模块 的 功能 是 通过 函数 Service0 实 现 的 ， 功 旬 
据 ， 并 发 送 数据 到 客户 端 。 具 体 代码 如 下 : 

/* 服 务 函 数 */ 

void Service (LPVOID lpv) 

{ 


oo 


是 实现 接收 、 判 断 来 自 客户 端的 数 


SOCKET acceptfd (SOCKET) 1pv; 
const char *msg = "HELLO CLIENT"; 
char response[4096]; 


/* 用 0 初始 化 response[4096] 数 组 */ 
memset (response, 0, sizeof (response) ); 
/* 接 收 数据 ， 存 入 response 中 */ 


recv (acceptfd, response, sizeof (response), 0); 


/* 如 果 接 收 到 的 数据 和 预定 义 的 数据 不 同 */ 
if (strcmp (response, "HELLO SERVER")) 


{ 
printf ("Application: client not using expected " 
"protocol %s\n", response); 


else 
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/* 发 送 服务 器 端 信息 到 客户 端 */ 
send(acceptfd, msg, strlen(msg)+1, 0); 
/* 关 闭 套 接 字 */ 
closesocket (acceptfd) ; 
} 


© 主 函数 模块 

主 函 数 是 整个 程序 的 入 口 ， 里 面 实现 了 套 接 字 的 创建 、 绑 定 、 侦 听 和 释放 等 操作 ， 并 
且 实 现 了 对 各 个 功能 函数 的 调用 。 有 具体 代码 如 下 : 

/* 主 函数 */ 


int main(int argc, char **argv) 
{ 
SOCKET listenfd; 
int err; 
struct sockaddr in serverAddr; 
struct hostent *ptrHost; 
initial (); 
GetArgments (argc, argv); 
InitSockets (); 
/* 创 建 TCP 流 套 接 字 ， 在 domain 参数 为 PF_INET 的 SOCK_STREAM 的 套 接口 中 ，protocol 
参数 为 0 意味 着 告诉 内 核 选择 IPPRPTP_TCP， 这 也 意味 着 套 接口 将 使 用 TCP/IP 协议 */ 
listenfd = socket (PF INET, SOCK STREAM, 0); 
/* 如 果 创建 套 接 字 失 败 */ 
if (listenfd -- INVALID SOCKET) 
t 


printf("Error: out of socket resources Wn"); 
return 1; 
) 


/*l RE rp 地 址 */ 
if (atoi (hostName)) 
{ 
/* 将 IP 地 址 转换 成 32 二 进 制 表示 法 ， 返 回 32 位 二 进 制 的 网 络 字 节 序 */ 
u long ip addr = inet addr(hostName) ; 
/* 根 据 IP 地 址 找到 与 之 匹配 的 主机 名 */ 
ptrHost = gethostbyaddr((char*)&ip addr, 
sizeof(u long), AF INET); 


} 

/* 如 果 是 主机 名 */ 

else 
/* 根 据 主机 名 获取 一 个 指向 hosten 的 指针 ， 该 结构 中 包含 了 该 主机 所 有 的 IP 地 址 */ 
ptrHost = gethostbyname (hostName); 


/* 如 果 解 析 失 败 */ 

if (!ptrHost) 

{ 
ErrorPrint ("cannot resolve hostname"); 
return 1; 

p 


/* 设 置 服务 器 地 址 */ 
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/* 设 置地 址 族 为 PF. INET*/ 

serverAddr.sin family = PF INET; 

/* 将 一 个 通 配 的 Internet 地 址 转换 成 无 符号 长 整 型 的 网 络 字 节 序数 */ 
serverAddr.sin addr.s addr = htonl(INADDR ANY); 

/* 将 端口 号 转换 成 无 符号 短 整 型 的 网 络 字 节 序数 */ 


serverAddr.sin port = htons (port); 


/* 将 套 接 字 与 服务 器 地 址 绑 定 */ 
err = bind(listenfd, (const struct sockaddr *) &serverAddr, 
sizeof (serverAddr)); 
/* 如 果 绑 定 失败 */ 
if (err == INVALID SOCKET) 
t 
ErrorPrint("Error: unable to bind socket Win"); 
return 1; 
) 


/* 开 始 侦 听 ， 设 置 等 待 连接 的 最 大 队列 长 度 为 SOMAXCONN， 默 认 值 为 5 个 */ 
err = listen(listenfd, SOMAXCONN); 
/* 如 果 侦 听 失败 */ 
if (err -- INVALID SOCKET) 
{ 
ErrorPrint ("Error: listen failed\n"); 
return 1; 
} 


LoopControl (listenfd, 1); 
printf ("Server is down\n"); 
/* B winscoket 初始 化 时 占用 的 资源 */ 
WSACleanup(); 
return 0; 
} 


Q) 客户 端 


© AREE 

预 处 理 包括 文件 导入 、 头 文件 加 载 、 定 义 常 量 、 定 义 变量 等 操作 。 有 具体 代码 如 下 : 
/*SENBE SCIES / 

#pragma comment (lib, "wsock32.1lib") 

/* 加 载 头 文件 */ 


#include <stdio.h> 
#include <winsock2.h> 


/* 自 定义 函数 */ 


int InitSockets (void); 


void GetArgument (int argc, char **argv); 
void ErrorPrint (x); 
void userHelp(); 


/定义 全 局 变量 */ 


unsigned short port; 


Visual Ct+ CHEREN: 
char *hostName; 


Q 初始 化 模块 

初始 化 模块 无 需 对 全 局 变量 赋值 ， 只 须 实 现 对 Winsock 的 初始 化 ， 包 括 初始 化 套 接 字 
版 本 号 和 加 载 Winsock 库 。 具 体 代码 如 下 

/* 初 始 化 Winsock 函数 */ 


int InitSockets (void) 
t 


WSADATA wsaData; 
WORD sockVersion; 
int err; 


/* E Winsock 版 本 号 */ 

sockVersion = MAKEWORD(2, 2); 

/* 初 始 化 Winsock*/ 

err = WSAStartup(sockVersion, &wsaData); 

/* 如 果 初 始 化 失败 */ 

if (err != 0) 

{ 
printf("Error $d: Winsock not available\n", err); 
return 1; 

) 

return 0; 

} 


@ 功能 控制 模块 


此 模块 提供 了 参数 获取 、 错 误 输出 和 用 户 帮 助 等 功能 ， 上 述 功能 分 别 通过 如 下 函数 来 
实现 。 

OQ GetArgments: 用 于 获取 用 户 提 供 的 选项 值 。 

Q  EmorPrint: 用 于 输出 错误 。 

Q userHelp: 用 于 输出 帮助 信息 。 

对 应 的 实现 代码 如 下 : 


/* 获 取 选 项 函数 */ 
void GetArgments (int argc, char **argv) 
t 
ante 
for(i-1; i«argc; i++) 
{ 
/* 参 数 的 第 一 个 字符 若是 “-”*/ 
if (argv[i][0] = '-") 
t 
/* 转 换 成 小 写 */ 
switch (tolower(argv[i][1])) 
{ 
/* 若 是 端口 号 */ 
Gase pus 
if (strlen(argv[i]) > 3) 
port = atoi (&argv[i] [3]) ; 
break; 
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/* 若 是 主机 名 */ 
case "h": 
hostName = &argv[i] [3]; 
break; 
/* 其 他 情况 */ 
default: 
userHelp(); 
break; 


} 
} 
return; 
} 


/* 错 误 输出 函数 */ 
void ErrorPrint (x) 
{ 
printf("Error $d: %s\n", WSAGetLastError(), x); 
} 


/* 用 户 帮助 函数 */ 

void userHelp() 

t 
printf("userHelp: -h:str -p:int\n"); 
printf(" -h:str The host name Mn"); 
printf(" -p:int The Port number to use\n"); 
ExitProcess(-1); 

} 


© 数据 传输 控制 模块 

SR BRUT A PORE re tT ety 也 就 是 说 此 处 的 数据 传输 功 
能 是 通过 主 函 数 实现 的 。 主 函数 中 包括 套 接 字 创建 、 绑 定 和 释放 ， 并 实现 对 服务 器 连接 、 
数据 发 送 、 数 据 接收 等 各 个 模块 的 调用 。 具 体 实现 代码 如 下 : 


/* 主 函数 */ 
int main(int argc, char **argv) 
{ 
SOCKET clientfd; 
int err; 
struct sockaddr in serverAddr; 
struct hostent *ptrHost; 
char response [4096]; 
char *msg = "HELLO SERVER"; 
GetArgments (argc, argv); 
if (argc != 3) 
t 
userHelp(); 
return 1; 
} 
GetArgments (argc, argv) 7 
InitSockets(); 


/* 创 建 套 接 字 */ 


clientfd = socket(PF INET, SOCK STREAM, 0); 
/* 如 果 创建 失败 */ 
if (clientfd == INVALID SOCKET) 
{ 
ErrorPrint ("no more socket resources") ; 
return 1; 


} 
/* 根 据 rp 地 址 解析 主机 名 */ 
if (atoi (hostName)) 
{ 
u long ip addr = inet addr (hostName); 
ptrHost = gethostbyaddr((char*)&ip addr, 
sizeof (u long), AF INET); 


} 
/* 根 据 主机 名 解析 IP 地 址 */ 
else 
ptrHost = gethostbyname (hostName) ; 


/* 如 果 解 析 失 败 */ 

if (!ptrHost) 

t 
ErrorPrint ("cannot resolve hostname"); 
return 1; 

) 


/* 设 置 服务 器 端 地 址 选项 */ 

serverAddr.sin family = PF INET; 

memcpy ( (char*) & (serverAddr.sin addr), 
ptrHost-»h addr, ptrHost-»h length); 

serverAddr.sin port - htons (port); 


/* 连 接 服务 器 */ 
err = connect(clientfd, (struct sockaddr *) &serverAddr, 
sizeof (serverAddr)); 
/* 连 接 失 败 */ 
if (err == INVALID SOCKET) 
{ 
ErrorPrint ("cannot connect to server"); 
return 1; 


ij 

/* 连 接 成 功 后 ， 输 出 信息 */ 

printf("You are connected to the server in"); 
/* 发 送 消息 到 服务 器 端 */ 

send (clientfd, msg, strlen(msg)+1, 0); 
memset (response, 0, sizeof (response)); 

/* 接 收 来 自 服务 器 端的 消息 */ 

recv (clientfd, response, sizeof (response), 0); 
printf("server says %s\n", response); 

/* 关 闭 套 接 字 */ 

closesocket (clientfd); 

/* Elit winscoket 初始 化 时 占用 的 资源 */ 
WSACleanup () 7 
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return 0; 
$ 


到 此 为 止 ， 整 个 实例 设计 完毕 ， 编 译 执行 后 的 效果 如 图 2-6 所 示 。 


图 2-6 执行 效果 


2.0 UDP 无 连接 传输 


UDP 是 User Datagram Protocol 的 简称 ， 中 文 名 是 用 户 数据 包 协议 ， 是 OSI 参考 模型 
中 一 种 无 连接 的 传输 层 协议 ， 提 供 面 向 事务 的 简单 不 可 靠 信 息 传送 服务 ， 它 是 IETF RFC 
768 的 UDP 正式 规范 。 


2.2.1 UDP 协议 基础 

在 本 节 的 内 容 中 ， 将 简单 讲解 UDP 协议 的 基本 知识 。 

1. 使 用 UDP 

在 选择 使 用 协议 的 时 候 ， 选 择 UDP 必须 谨慎 。 在 量 TAN 二 分 满意 的 环境 
F, UDP 协议 数据 包 丢失 会 比较 严重 。 但 是 \ 属 于 连接 型 协议 ， 
因而 具有 资源 消耗 小 ， 处 理 速度 快 的 优点 ， 所 以 通常 音频 、 视 频 和 普通 数据 在 传送 时 使 用 
UDP 较 多 ， 因 为 它们 即使 偶尔 丢失 一 两 个 数据 包 ， 也 不 会 对 接收 结果 产生 太 大 影响 。 比 如 
我 们 聊天 用 的 ICQ 和 QQ 就 是 使 用 UDP 协议 的 。 
2. UDP 的 特点 


(1) UDP 是 一 个 无 连接 协议 ， 传 输 数 据 之 前 源 端 和 终端 不 建立 连接 ， 当 想 传送 时 ， 就 
简单 地 去 抓 取 来 自 应 用 程序 的 数据 ， 并 尽 可 能 快 地 把 它 扔 到 网 络 上 。 在 发 送 端 ，UDP 传送 
数据 的 速度 仅仅 是 受 应 用 程序 生成 数据 的 速度 、 计 算 机 的 能 力 和 传输 带宽 的 限制 ， 在 接收 
端 ，UDP 把 每 个 消息 段 放 在 队列 中 ， 应 用 程序 每 次 从 队列 中 读 一 个 消息 段 。 

Q) 由 于 传输 数据 不 建立 连接 ， 因 此 也 就 不 需要 维护 连接 状态 ， 包 括 收发 状态 等 ， 因 

一 台 服 务 机 可 同时 向 多 个 客户 机 传输 相同 的 消息 。 

(3) UDP 信息 包 的 标题 很 得 ， 只 有 8 个 字 节 ， 相 对 于 TCP 的 20 个 字 节 信息 包 的 额外 
开销 很 小 。 

(4) 大 吐 量 不 受 拥 挤 控制 算法 的 调节 ， 只 受 应 用 软件 生成 数据 的 速率 、 传 输 带宽 、 源 
端 和 终端 主机 性 能 的 限制 。 

(5) UDP 使 用 尽 最 大 努力 交付 ， 即 不 保证 可 靠 交 付 ， 因 此 主机 不 需要 维持 复杂 的 链接 
状态 表 (这 里 面 有 许多 参数 )。 
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(6) UDP 是 面向 报 文 的 。 发 送 方 的 UDP 对 应 用 程序 交 下 来 的 报 文 ， 在 添加 首部 后 就 
向 下 交付 给 P 层 。 既 不 拆 分 ， 也 不 合并 ， 而 是 保留 这 些 报 文 的 边界 ， 因 此 应 用 程序 需要 选 
择 合适 的 报 文大 小 。 


3. UDP 结 构 
UDP 数据 报 首部 的 结构 如 图 2-7 所 示 。 
0 1516 3l 
EE — Hn | 
| RAKE | dati ] 
HE 


2-7 UDP 数据 报 首部 的 结构 


(1) 源 端口 (Source Port) 和 目的 端口 (Destination Port) 字 段 包 含 了 16 比特 的 UDP 协议 
端口 号 ， 它 使 得 多 个 应 用 程序 可 以 多 路 复 用 同一 个 传输 层 协 议 一 一 UDP 协议 ， 仅 通过 不 同 
的 端口 号 来 区 分 不 同 的 应 用 程序 。 

(2) 长 度 (Length) 字 段 记录 了 该 UDP 数据 包 的 总 长 度 (以 字 节 为 单位 )， 包 括 8 字 节 的 
UDP 头 和 其 后 的 数据 部 分 。 最 小 值 是 8( 即 报 文 头 的 长 度 )， 最 大 值 为 65535 FW 

(3) UDP 校 验 和 (Checksum) 的 内 容 超出 了 UDP 数据 报 文本 身 的 范围 ,实际 上 ， 它 的 
值 是 通过 计算 UDP 数据 报 及 一 个 伪 包 头 而 得 到 的 。 但 校 验 和 的 计算 方法 与 通用 的 一 样 ， 
都 是 累加 求 和 。 

UDP 报 文 数据 部 分 最 大 长 度 为 65535-20GP 头 部 长 度 )-8(UDP 头 部 长 度 )=65507 字 节 

校 验 和 的 计算 算法 与 IP 相同 ， 不 过 UDP 在 计算 校 验 和 时 会 增加 一 个 伪 首 部 ， Ne 

只 在 计算 校 验 和 时 使 用 ， 不 会 封装 到 IP 分 组 中 。 校 验 内 容 包 括 伪 首 部 (Pseudo Header)+ 首 
部 4 数据 部 分 。 UDP 伪 首 部 报 文 格式 的 结构 如 图 2-8 所 示 。 


图 2-8 UDP 伪 首 部 报 文 格式 
注意 : AW AR IP Ede UDP 层 的 界线 变 得 模糊 。 
UDP 报 文 结构 如 图 2-9 所 示 。 
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图 2-9 UDP 报 文 结构 
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当今 有 很 多 应 用 程序 是 基于 UDP 传输 的 ， 包 括 网 络 文件 系统 NFS、 简 单 网 络 管理 协 
议 SNMP、 域 名 系统 DNS 以 及 简单 文件 传输 系统 TFTP、 动 态 主 机 配置 协议 DHCP 和 路 由 
信息 协议 RIP 等 ， 另 外 用 于 在 线 欣赏 视频 或 音频 内 容 的 流 媒体 软件 往往 也 采用 了 UDP 传 
输 。 因 为 UDP 虽然 不 保证 传输 可 靠 性 ， 但 是 网 络 传输 代价 小 ， 实 时 性 好 。 流 媒体 传输 的 
完整 性 并 不 是 最 重要 的 ， 即 使 少量 数据 丢失 ， 可 能 也 仅仅 影响 欣赏 视频 和 音乐 的 某 个 瞬 
间 ， 因 此 适合 采用 UDP 传输 。 

4. UDP 数据 传输 

UDP 协议 不 面向 连接 ， 也 不 保证 传输 的 可 靠 性 ， 传 输 过 程 的 具体 说 明 如 下 。 

(1) 发 送 端 的 UDP 协议 层 只 管 把 应 用 层 传 来 的 数据 封装 成 段 ， 交 给 IP 协议 层 就 算 完 
成 任务 了 ， 如 果 因 为 网 络 故 障 该 段 无 法 发 到 对 方 ，UDP 协议 层 也 不 会 给 应 用 层 返 回 任何 错 
误 信 息 。 

Q) 接收 端的 UDP 协议 层 只 管 把 收 到 的 数据 根据 端口 号 交 给 相应 的 应 用 程序 就 算 完 
成 任务 了 ， 如 果 发 送 端 发 来 多 个 数据 包 并 且 在 网 络 上 经 过 不 同 的 路 由 ， 到 达 接收 端 时 顺序 
已 经 错乱 了 ，UDP 协议 层 也 不 保证 按 发 送 时 的 顺序 交 给 应 用 层 。 

G) 通常 接收 端的 UDP 协议 层 将 收 到 的 数据 放 在 一 个 固定 大 小 的 缓冲 区 中 等 待 应 用 
程序 来 提取 和 处 理 ， 如 果 应 用 程序 提取 和 处 理 的 速度 很 慢 ， 而 发 送 端 发 送 的 速度 很 快 ， 就 
会 丢失 数据 包 ，UDP 协议 层 并 不 报告 这 种 错误 。 

由 此 可 见 ， 在 使 用 UDP 协议 的 应 用 程序 时 ， 必 须 考虑 到 这 些 可 能 的 问题 并 实现 适当 
的 解决 方案 ， 例 如 等 待 应 答 、 超 时 重 发 、 为 数据 包 编 号 、 流 量 控制 等 。 一 般 使 用 UDP 协 
议 的 应 用 程序 实现 都 比较 简单 ， 只 是 发 送 一 些 对 可 靠 性 要 求 不 高 的 消息 ， 而 不 发 送 大 量 世 
数据 。 例 如 ， 基 于 UDP 的 TETP 协议 一 般 只 用 于 传送 小 文件 (所 以 才 叫 trivial 的 ftp), Mi 
基于 TCP 的 FTP 协议 适用 于 各 种 文件 的 传输 。 

5. UDP 编程 步骤 


fi UDP Server 程序 的 具体 步骤 如 下 。 
(1) 使 用 socket0 来 建立 一 个 UDP Socket， 第 二 个 参数 为 SOCK DGRAM。 
(2) 初始 化 sockaddr in 结构 的 变量 ， 并 赋值 。sockaddr in 结构 定义 格式 如 下 : 
struct sockaddr in ( 
uint8 t sin len; 
sa family t sin family; 
in port t sin port; 
struct in addr sin addr; 
char sin zero[8]; 
di 
(3) 使 用 bind0 把 上 面 的 Socket 和 定义 的 IP 地 址 和 端口 绑 定 。 这 里 检查 bind0 是 否 执 
行 成 功 ， 如 果 有 错误 就 退出 。 这 样 可 以 防止 服务 程序 重复 运行 的 问题 。 
(4) 进入 无 限 循环 程序 ， 使 用 recvfrom0O 进 入 等 待 状态 ， 直 到 接收 到 客户 程序 发 送 的 
数据 ， 就 处 理 收 到 的 数据 ， 并 向 客户 程序 发 送 反馈 。 这 里 是 直接 把 收 到 的 数据 发 回 给 客户 
程序 。 


Visual C++ CHEREN 


2.2.2 ”小 试 牛刀 一 一 模拟 实现 Windows 的 UDP 程序 


实例 功能 使 用 Visual C++ 开发 一 个 UDP 传输 系统 


源码 路 径 光盘 \yuanma\2\UDP 
本 实例 的 目的 是 使 用 Visual C++ 6.0 开发 一 个 UDP 传输 系统 。 
1. 规划 分 析 


在 具体 编码 之 前 ， 先 进行 项 目 规划 分 析 。 本 项 目 即 有 广播 的 功能 ， 又 有 多 播 的 功能 ， 
能 实现 基本 的 广播 和 多 播 机 制 ， 主 要 包括 如 下 功能 : 
a ”提供 广播 机 制 。 
> ”能 设 定 身份 ， 即 是 广播 消息 发 送 者 ， 也 是 接收 者 ， 默 认 是 消息 接收 者 。 
> ”能 在 默认 的 广播 地 址 和 端口 号 上 发 送 广 播 消息 ， 接 收 广播 消息 。 
> ”能够 指定 广播 地 址 、 端 口号 、 发 送 ( 或 接收 ) 数 量 选项 进行 广播 消息 的 发 送 和 
接收 。 
a ”提供 多 播 机 制 。 
> ”能 指定 身份 ， 即 是 多 播 消息 发 送 者 ， 也 是 接收 者 ， 默 认 是 消息 接收 者 。 
> ”主机 能 加 入 一 个 指定 多 播 组 。 
> ”能 以 默认 选项 发 送 多 播 消 息 和 接收 多 播 消息 。 
> 能 指定 多 播 地 址 、 本 地 接口 地 址 、 端 口号 、 发 送 ( 或 接收 ) 数 量 和 数据 返还 标 
志 选 项 ， 进 行 多 播 消息 的 发 送 和 接收 。 
2. 功能 模块 图 
本 程序 由 3 大 部 分 组 成 ， 即 广播 模块 、 多 播 模块 和 公共 模块 ， 如 图 2-10 所 示 。 


pL—o| 初始 化 模块 


让 “公共 模块 >| 参数 获取 模块 


— 35 用 户 帮 助 模块 
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广播 信息 发 送 
模块 


UDP 程序 设计 » 广播 模块 
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-一 一 


[>| 多 播 功能 控制 


多 播 模块 多 播 消息 发 送 


一 一 | 多 播 消息 接收 


2-10 功能 模块 
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其 中 公共 模块 和 多 播 模块 共享 的 部 分 ， 包 括 初始 化 模块 、 参 数 获取 模块 和 用 户 帮 助 模 


Bh: 广播 模块 包括 广播 消息 模块 ， 多 播 模块 包括 多 播 功能 控制 模块 、 多 播 消 息 发 送 模块 和 
多 播 消息 接收 模块 。 


(1) 


公共 模块 

初始 化 模块 : 主要 用 于 初始 化 全 局 变量 ， 为 全 局 变量 赋 初 始 值 。 

参数 获取 模块 : 用 于 获取 用 户 提供 的 参数 ， 包 括 获取 广播 参数 ， 多 播 参数 和 区 分 
广播 与 多 播 公共 参数 等 。 

用 户 帮 助 模块 : 用 于 显示 用 户 帮助 ， 包 括 显示 公共 帮助 ， 广 播 帮 助 和 多 播 帮助 。 
广播 模块 

广播 消息 发 送 模块 : 用 于 实现 在 指定 广播 地 址 和 端口 发 送 指定 数量 的 广播 消息 。 
广播 消息 接收 模块 : 用 于 实现 在 指定 广播 地 址 和 端口 接收 指定 数量 的 广播 消息 。 
多 播 模 块 

多 播 功能 控制 模块 : 用 于 实现 多 播 套 接 字 的 创建 和 绑 定 、 多 播 地 址 的 设 定 、 多 播 
数据 的 设置 、 数 据 返 还 选项 的 设置 ， 以 及 多 播 组 的 加 入 等 。 

多 拨 消 息 发 送 模块 : 用 于 实现 在 指定 多 播 组 发 送 多 播 消息 。 

多 播 消息 接收 模块 : 用 于 实现 在 指定 多 播 组 接收 多 播 消息 。 


3. 系统 流程 图 
系统 流程 图 如 图 2-11 所 示 。 


图 2-11 系统 流程 图 
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程序 首先 初始 化 全 局 变量 ， 包 括 广播 (多 播 ) 地 址 、 端 口号 、 发 送 (接收 ) 消 息 数量 等 ， 然 
后 获得 用 户 提供 的 参数 ， 并 初始 化 Winsock， 初 始 成 功 则 判断 是 进行 广播 还 是 多 播 ， 如 果 
是 广播 ， 则 判断 是 发 送 者 身份 还 是 接收 身份 ， 然 后 根据 不 同 的 身份 进行 相应 的 处 理 ， 即 发 
送 广播 消息 或 者 接收 广播 消息 ， 如 果 是 多 播 ， 也 进行 身份 的 判断 ， 然 后 做 同样 的 处 理 。 

4. 分 析 广 播 消息 发 送 流程 

广播 消息 发 送 流程 如 图 2-12 所 示 。 程 序 首先 创建 UDP 套 接 字 ， 如 果 创 建成 功 则 设置 
广播 地 址 ; 由 于 进行 的 是 广播 ， 所 以 要 将 套 接 字 设 置 为 广播 类 型 ， 即 SO-BROADCAST; 
如 果 套 接 字 未 设置 成 功 ， 则 可 以 避免 向 指定 的 广播 地 址 广播 消息 了 。 广 播 结束 后 ( 即 达到 最 
多 的 消息 条 数 )， 关 闭 套 接 字 ， 释 放 占 用 的 资源 。 


开始 


设置 广播 地 址 
选项 


k 成 功 ? 


是 
发 送 消息 到 广 
播 地 址 


成 功 ? 


输出 错误 信 输出 成 功 信 
息 息 


否 


关闭 套 接 字 
释放 占用 资源 


1 


结束 


图 2-12 广播 消息 发 送 流 程 图 
5. 分 析 广 播 消息 接收 流程 


广播 消息 的 接收 流程 如 图 2-13 所 示 。 程 序 首先 创建 UDP 套 接 字 ， 如 果 创 建成 功 则 设 
置 本 地 地 址 和 广播 地 址 ， 本 地 地 址 用 于 绑 定 套 接 字 ， 广 播 地 址 是 广播 消息 接收 的 地 址 。 同 
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发 送 广 播 消息 一 样 ， 接 收 消息 的 套 接 字 也 要 设置 选项 ， 不 同 的 是 ， 这 里 将 套 接 字 设置 成 可 
和 E 用 类 型 的 ， 即 SO-REUSEADDR， 选 项 级 别 为 SOL-SOCKET。 这 样 一 来 ， 在 相同 的 本 地 
接口 及 端口 上 可 以 进行 多 次 监听 ， 即 在 同一 台 主 机 上 ， a sme 
播 消 息 ， 如 果 不 设置 这 个 选项 ， 则 在 同一 台 主 机 上 ， 只 能 启动 一 个 消息 接收 端 来 接收 消 
息 。 套 接 字 选项 设置 成 功 后 ， 绑 定 本 地 地 址 与 套 接 字 ， et 
如 果 接 收 的 消息 条 数 达到 最 大 限制 ， 则 结束 程序 ， 关 闭 套 接 字 ， 释 放 占 用 的 资源 。 
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图 2-13 广播 消息 接收 流程 图 
6. 分 析 多 播 消息 接收 流程 


多 播 消息 的 接收 流程 如 图 2-14 所 示 。 此 过 程 用 于 创建 多 播 套 接 字 、 设 置 套 接 字 、 加 入 
多 播 组 等 。 服 务 于 多 播 信息 发 送 和 接收 模块 。 在 程序 中 ， 首 先 创 建 UDP 套 接 字 ， 然 后 设置 
本 地 地 址 和 多 播 地 址 ， 并 将 套 接 字 和 本 地 地 址 绑 定 ， 绑 定 成 功 后 则 设置 多 播 数据 的 TIL 


dic : " \ S 
p C++ GEESE 


值 ， 在 默认 情况 下 ，TTL 值 是 1。 也 就 是 说 ， 多 播 数据 遇 到 第 一 个 路 由 器 ， 便 会 被 它 放 
弃 ， 并 不 允许 传 出 本 地 网 络 之 外 ， 即 只 有 同一 个 网 络 内 的 多 播 成 员 才 能 收 到 数据 。 如 果 增 
大 TIL 值 ， 多 播 数据 就 可 以 经 历 多 个 路 由 器 传 到 其 他 网 络 。 为 了 设置 TTL 值 ， 需 要 将 套 接 
字 值 设置 为 PPROTO_IP， 类 型 为 P_ MULTICAST_TTL， 当 TTL 值 设置 成 功 后 ， 程 序 将 
判断 是 否 允许 返还 。 这 是 针对 发 送 者 而 言 的 ， 通 过 设置 套 接 字 的 全 MULTICAST LOOP i 
项 来 实现 。 此 选项 决定 了 程序 是 否 接收 自己 的 多 播 数据 ， 其 级 别 也 是 RPPRTO_IP。 在 最 
后 ， 通 过 调用 WSAJoinLeafO 函 数 加 入 指定 的 多 播 组 。 


设置 套 接 字 为 
禁止 数据 返还 


图 2-14 多 播 消息 控制 流程 图 
7. 设计 数据 结构 
在 本 项 目 中 ， 并 没有 定义 专门 的 数据 结构 ， 只 是 在 广播 和 多 播 中 定义 的 常量 和 全 局 变 


是 


a) 


(4) 
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广播 常量 有 如 下 两 个 。 

BCASTPORT: 广播 的 端口 号 ， 默认 是 5050. 

BCOUNT: 广播 的 最 大 消息 数 ， 用 于 设置 发 送 或 接收 的 最 多 消息 数量 ， 超 过 此 值 
将 停止 发 送 或 接收 。 默 认 值 是 10。 

多 播 常 量 有 如 下 4 个 。 

MCASTADDR: 是 多 播 组 的 地 址 ， 默 认 值 是 224.3.5.8。 

MCASTPORT: 多 播 的 端口 号 ， 默 认 值 是 25000。 

BUFSIZE: 设置 缓冲 区 的 大 小 ， 默 认 值 是 1024。 

MCOUNT: 设置 多 播 的 最 大 消息 数 ， 用 于 设置 发 送 或 接收 的 最 多 消息 数量 ， 超 过 
此 值 将 停止 发 送 或 接收 。 默 认 值 是 10。 

定义 广播 全 局 变量 。 

SOCKET socketBro: 广播 信息 发 送 端的 UDP 套 接 字 。 

SOCKET socketRec: 广播 信息 接收 端的 UDP 套 接 字 。 

struct sockaddr in addrBro: 广播 地 址 结构 ， 其 IP 地 址 部 分 通过 另 一 个 全 局 变量 
bcastAddr 转换 而 来 。 

struct sockaddr in addrRec: 接收 广播 信息 的 本 地 地 址 。 

BOOL broadSendFlag: 广播 信息 身份 的 标志 ， 如 果 为 FALSE， 表 示 是 消息 接收 
者 ， 否 则 是 消息 发 送 者 。 

BOOL broadFlag: 广播 标志 ， 如 果 为 TRUE， 表示 该 程序 进行 广播 操作 。 
DWORD bCoun: 双 字 节 表 示 消 息 数量 的 变量 ， 该 变量 的 初始 赋值 为 BCOUNT。 
DWORD bcastAddr: 表示 广播 地 址 参数 的 双 字 节 变 量 ， 初 始 赋值 是 INADDR_ 
BROADCAST, KRA 1 的 广播 地 址 ， 用 于 接收 用 户 提供 的 参数 。 

short bPort: 广播 的 端口 号 ， 默 认 是 BCASTPORT. 

多 播 全 局 变量 。 

SOCKET socketMul: UDP 多 播 套 接 字 。 

SOCKET sockJoin: 加 入 多 播 组 套 接 字 。 

struct sockaddr in addrLocal: 本 地 地 址 结构 ， 其 IP 地 址 部 分 默认 为 0， 即 
INADDR_ANY， 通 过 另 一 个 全 局 变量 dwInterface 获得 。 

struct sockaddr inaddrMul: 多 播 组 地 址 ， 默 认为 MCASTADDR. 

BOOL multiSendFlag: 多 播 信息 身份 标志 ， 如 果 为 默认 值 FALSE， 表 示 是 消息 接 
收 者 ， 否 则 是 发 送 者 。 

BOOL bLoopBack: 消息 返回 禁止 标志 ， 如 果 为 TRUE， 表 示 禁 止 返还 。 

BOOL multiFlag: 多 播 标志 ， 如 果 为 TRUE， 表 示 该 程序 进行 广播 操作 。 
DWORD dwInterface: 表示 多 播 地 址 参数 的 双 字 节 变 量 ， 初 始 赋值 是 INADDR_ 
ANY， 表 示 0， 用 于 接收 用 户 提供 的 参数 。 

DWORD dwMulticastGroup: 双 字 节 ， 表 示 消 息 数 量 的 变量 ， 该 变量 的 初始 赋值 
为 MCASTADDR， 用 于 接收 用 户 提供 的 参数 。 

DWORD mCount: 双 字 节 ， 表 示 消 息 数量 的 变量 ， 该 变量 的 初始 赋值 为 
MCOUNT。 
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OQ Short mPort: 多 播 的 端口 号 ， 默 认 是 MCASTPORT. 
8. 规划 函数 
Q) 初始 化 全 局 变量 。 
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功能 : 


原型 : intinitial() 

用 于 初始 化 全 局 变量 ， 包 括 初始 化 广播 全 局 变量 和 多 播 全 局 变量 。 

用 户 提供 的 参数 。 

原型 Void GetArgments(int argc, char **argv) 

: 用 于 获取 用 户 提供 的 参数 ， 分 为 如 下 三 种 情况 。 

如 果 参 数 个 数 小 于 两 个 : 执行 用 户 帮助 。 

获取 广播 选项 : 广播 标志 设置 为 真 ， 通 过 case， 分 别 实现 如 果 是 发 送 者 、 广 
播 的 地 址 、 广 播 的 端口 号 、 广 播 (接收 或 者 发 送 ) 的 数量 、 其 他 情况 ， 进 行 对 
应 的 操作 。 

获取 多 播 选项 : 通过 case， 分 别 实现 如 果 是 发 送 者 、 多 播 的 地 址 、 多 播 的 端 
口号 、 本 地 接口 地 址 、 返 回 标志 设置 为 真 、 发 送 (接收 ) 的 数量 和 其 他 情况 ， 
进行 对 应 的 操作 。 

用 户 帮 助 函数 。 

不 型 void userHelpAllO 

用 于 显示 全 局 用 户 帮 助 函 数 。 

用 户 帮 助 函 数 。 

原型 ， void userHelpMul() 

用 于 显示 多 播 用 户 帮 助 信息 。 

用 户 帮 助 函 数 。 

原型 : void userHelpBro() 

用 于 显示 广播 用 户 帮助 信息 。 

消息 发 送 函 数 。 

原型 : void broadcastSend() 

用 于 在 指定 的 广播 地 址 上 发 送 广播 信息 。 

消息 接收 函数 。 

原型 : void broadcastRec() 

用 于 在 指定 的 广播 地 址 上 接收 广播 信息 。 

控制 函数 。 

原型 : void mulControl() 

: 服务 于 多 播 信息 发 送 和 接收 函数 ， 用 于 创建 多 播 套 接 字 、 设 置 多 播 地 址 和 
地 址 、 套 接 字 绑 定 、 设 置 套 接 字 选项 、 加 入 指定 多 播 组 。 

原型 : void multicastSend() 

: 用 于 在 指定 的 多 播 组 地 址 上 发 送 多 播 消息 。 


(10) 多 播 消息 接收 函数 。 
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Q “函数 原型 : void multicastSend() 
a ”功能 : 用 于 在 指定 的 多 播 组 地 址 上 接收 多 播 消息 。 


9. 具体 编码 


(1) 预 处 理 

程序 预 处 理 包 括 库 文件 的 导入 、 头 文件 的 加 载 、 广 播 和 常量 定义 以 及 广播 全 局 变量 和 
多 播 全 局 变量 的 定义 。 具 体 实现 代码 如 下 

/* 加 载 库 文件 */ 

#pragma comment (lib, "ws2 32.1ib") 

/* 加 载 头 文件 */ 

#include <winsock2.h> 

#include <ws2tcpip.h> 


#include <stdio.h> 
#include <stdlib.h> 


/* 定 义 多 播 常量 */ 

#define MCASTADDR "22473585 
#define MCASTPORT 25000 
#define BUFSIZE 1024 
#define MCOUNT 10 

/* 定 义 广播 常量 */ 

#define BCASTPORT 5050 
#define BCOUNT 10 

/* 定 义 广播 全 局 变量 */ 

SOCKET socketBro; 
SOCKET socketRec; 


struct sockaddr in addrBro; 
struct sockaddr in addrRec; 


BOOL broadSendFlag; 
BOOL broadFlag; 
DWORD bCount; 

DWORD bcastAddr; 
short bPort; 

/* 定 义 多 播 全 局 变量 */ 

SOCKET SocketMul; 
SOCKET sockJoin; 


struct sockaddr in addrLocal; 
struct sockaddr in addrMul; 


BOOL multiSendFlag; 
BOOL bLoopBack; 

BOOL multiFlag; 

DWORD dwInterface; 
DWORD dwMulticastGroup; 
DWORD mCount; 

Short mPort; 
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/* 自 定义 函数 */ 
void initial(); 
void GetArgments (int argc, char **argv); 


void userHelpAll(); 
void userHelpBro () ; 
void userHelpMul () ; 


void broadcastSend(); 
void broadcastRec(); 


void mulControl (); 
void multicastSend(); 
void multicastRec(); 


Q) 初始 化 模块 

初始 化 模块 用 于 为 广播 全 局 变量 和 多 播 全 局 变量 赋 初 始 值 ， 由 initial0 函 数 实现 。 有 具体 
代码 如 下 : 

/* 初 始 化 全 局 变量 函数 */ 


void initial() 
t 
/* 初 始 化 广播 全 局 变量 */ 
bPort = BCASTPORT; 
bCount = BCOUNT; 
bcastAddr = INADDR BROADCAST; 
broadSendFlag - FALSE; 
broadFlag - FALSE; 
multiFlag = FALSE; 


/* 初 始 化 多 播 全 局 变量 */ 
dwInterface = INADDR ANY; 
dwMulticastGroup = inet addr (MCASTADDR) ; 
mPort = MCASTPORT; 
mCount = MCOUNT; 
multiSendFlag = FALSE; 
bLoopBack = FALSE; 
} 


G) 获取 参数 
参数 获取 模块 用 于 获取 用 户 提供 的 选项 ， 包 括 全 局 选项 ( 即 广播 和 多 播 选择 选项 )、 广 
播 选项 和 多 播 选 项 ， 该 模块 由 GetArgment() 函 数 实现 。 具 体 实现 代码 如 下 : 


/* 参 数 获取 函数 */ 
void GetArgments (int argc, char **argv) 
{ 

ant is 

/* 如 果 参 数 个 数 小 于 2 个 */ 

if(argc <= 1) 

{ 

userHelpAll(); 
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switch (tolower(argv[i][1])) 


t 


J 
$ 
return; 
} 


(4) 用 户 帮助 模块 

用 户 帮助 模块 包括 
如 下 。 

口 userHelpAll(): 

Q  userHelpBro(): 

Q  userHelpMul(): 

具体 实现 代码 如 下 : 


/* 全 局 用 户 帮 助 函 数 */ 
void userHelpAll( 


/* 如 果 是 发 送 者 */ 
case su 
multisendFlag - TRUE; 
break; 
/* 多 播 地 址 */ 
case) "hs 
if (strlen(argv[i]) > 3) 
dwMulticastGroup = inet addr (gargv[i] [3]); 
break; 
/* 本 地 接口 地 址 */ 
GREG) Vals 
if (strlen(argv[i]) > 3) 
dwInterface = inet addr(&argv[il[31]); 
break; 
/* 多 播 端 口号 */ 
case 'p': 
if (strlen(argv[i]) > 3) 
mPort = atoi (&argv[i] [3]); 


break; 
/* 环 回 标志 设置 为 真 */ 
case CLI 
bLoopBack = TRUE; 
break; 
/* 发 送 (接收 ) 的 数量 */ 
Casca 
mCount = atoi(&argv[i] [3]) ; 
break; 
/* 其 他 情况 ， 显 示 用 户 帮助 ， 终 止 程序 */ 
default: 
userHelpMul(); 
break; 


全 局 用 户 帮 助 、 广 播 用 户 帮 助 和 多 播 用 户 帮 助 ， 有 具体 实现 函数 
实现 全 局 用 户 帮助 。 
实现 广播 用 户 帮 助 。 


实现 多 播 用 户 帮助 。 


) 
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printf("Please choose broadcast[-b] or multicast[-m] !\n"); 
printf("userHelpAll: -b [-sl[pl[-hl[-n] | -m[-s] [-h] [-p] [-i] [-1] [-n] Àn") ; 
userHelpBro(); 
userHelpMul(); 

} 


/x* 广 播 用 户 帮助 函数 */ 
void userHelpBro () 


i 
printf("Broadcast: -b -s:str -p:int -h:str -n:int\n"); 


printf(" AE Start the broadcast program. Wn"); 
printf(" -s Act as server (send data); otherwise\n") ; 
printf(" receive data. Default is receiver.\n"); 
printf(" -p:int Port number to use\n "); 
printf(" The default port is 5050.\n"); 
printf(" -h:str The decimal broadcast IP address. An"); 
printf(" -n:int The Number of messages to send/receive.An"); 
printf(" The default number is 10.\n"); 

5 

/* 多 播 用 户 帮助 函数 */ 


void userHelpMul () 


{ 
printf ("Multicast: -m -s -h:str -p:int -i:str -1 -n:int\n"); 


printf(" -m Start the multicast program. n"); 

printf(" -s Act as server (send data); otherwise\n"); 
printf (" receive data. Default is receiver.\n"); 
printf (" -h:str The decimal multicast IP address to join\n"); 
printf (" The default group is: %s\n", MCASTADDR); 
printf(" -p:int Port number to use\n"); 

printf(" The default port is: %d\n", MCASTPORT); 
printf(" -i:str Local interface to bind to; by default Wn"); 
printf(" use INADDRY ANYWMn"); 

printf(" -1 Disable loopback\n") ; 

printf (" -n:int Number of messages to send/receive\n") ; 


ExitProcess(-1); 

i 

(5) 广播 信息 发 送 模块 

广播 消息 发 送 模块 实现 广播 消息 的 发 送 功能 ， 即 在 指定 广播 地 址 和 端口 上 发 送 指定 数 
量 的 消息 。 该 模块 由 函数 broadcastSend() 来 实现 ， 该 函数 需要 接收 选项 “-h( 广 播 地 址 )”、 
“-p( 端 口号 )”、“-n( 发 送 数量 )”， 如 果 用 户 没 有 提供 这 些 选项 ， 函 数 将 以 默认 值 执行 。 
具体 代码 如 下 : 

/* 广 播 消息 发 送 函 数 */ 


void broadcastSend() 
t 


/* 设 置 广播 的 消息 */ 

char *smsg = "The message received is from sender!"; 
BOOL opt = TRUE; 

int nlen = sizeof (addrBro); 
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int ret; 
DWORD i-0; 


/+ 创建 UDP 套 接 字 */ 
SocketBro = WSASocket (AF INET,SOCK DGRAM, 0,NULL,0,WSA FLAG OVERLAPPED) ; 
/* 如 果 创建 失败 */ 
if(socketBro--INVALID SOCKET) 
t 
printf("Create socket failed:%d\n", WSAGetLastError()); 
WSACleanup(); 
return; 
} 


/* 设 置 广播 地 址 各 个 选项 */ 

addrBro.sin family = AF INET; 
addrBro.sin addr.s addr = bcastAddr; 
addrBro.sin port = htons (bPort); 


/* 设 置 该 套 接 字 为 广播 类 型 */ 
if (setsockopt (socketBro,SOL SOCKET,SO BROADCAST, (char FAR *)&opt, 
sizeof (opt)) == SOCKET ERROR) 
/* 如 果 设置 失败 */ 
t 
printf("setsockopt failed:$d", WSAGetLastError()); 
closesocket (socketBro); 
WSACleanup(); 
return; 


) 
/* 循 环 发 送 消息 */ 
while(i < bCount) 
t 
/* 延 迟 1 秒 */ 
Sleep (1000); 
/* 从 广播 地 址 发 送 消息 */ 
ret = sendto(socketBro, smsg,256,0, (struct sockaddr*) &addrBro,nlen); 
/* 如 果 发 送 失 败 */ 
if(ret == SOCKET ERROR) 
printf("Send failed:%d", WSAGetLastError()); 
/* 如 果 发 送 成 功 */ 
else 
{ 
printf ("Send message %d!\n", i); 
} 


i++; 


} 
/* 发 送 完毕 后 关闭 套 接 字 、 释 放 占 用 资源 */ 
Closesocket (socketBro); 
WSACleanup(); 

} 


(6) 广播 信息 接收 模块 
广播 消息 接收 模块 实现 广播 消息 的 接收 功能 ， 即 在 指定 广播 地 址 和 端口 上 接收 指定 数 
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量 的 消息 。 该 模块 由 函数 broadcastRec( 来 实现 。 同 发 送 广播 消息 一 样 ， 该 函数 也 需要 接收 
选项 “-h( 广 播 地 址 )”、“-p( 端 口号 )”、“-n( 发 送 数 量 )”， 如 果 用 户 没有 提供 这 些 选 
项 ， 函 数 将 以 默认 值 执 行 。 需 要 注意 的 是 ， 如 果 发 送 端 不 是 采用 默认 的 广播 地 址 和 端口 
号 ， 则 接收 端 也 要 使 用 相应 的 广播 地 址 和 端口 号 ， 即 通过 选项 来 提供 与 发 送 端 相同 的 广播 
地 址 和 端口 号 。 具 体 实现 代码 如 下 : 

/* 广 播 消息 接收 函数 */ 


void broadcastRec() 


{ 


BOOL optval = TRUE; 

int addrBroLen; 

char buf [256]; 

DWORD i = 0; 

/* 该 地 址 用 来 绑 定 套 接 字 */ 
addrRec.sin family = AF INET; 
addrRec.sin addr.s addr - 0; 
addrRec.sin port = htons (bPort); 


/* 该 地 址 用 来 接收 网 路 上 广播 的 消息 */ 
addrBro.sin family = AF INET; 
addrBro.sin addr.s addr - bcastAddr; 
addrBro.sin port = htons (bPort); 


addrBroLen = sizeof (addrBro) ; 

// 创 建 UDP 套 接 字 

SocketRec = socket (AF INET, SOCK DGRAM, 0); 

/* 如 果 创建 失败 */ 

if(socketRec == INVALID SOCKET) 

t 
printf("Create socket error:$d", WSAGetLastError()); 
WSACleanup(); 
return; 

} 


/* 设 置 该 套 接 字 为 可 重用 类 型 */ 
if (setsockopt (socketRec, SOL SOCKET,SO REUSEADDR, (char FAR *)&optval, 
sizeof(optval)) == SOCKET ERROR) 
/* 如 果 设 置 失败 */ 
{ 
printf ("setsockopt failed:%d", WSAGetLastError()); 
closesocket (socketRec) ; 
WSACleanup () ; 


return; 
} 
/* 绑 定 套 接 字 和 地 址 */ 
if (bind (socketRec, (struct sockaddr *) &addrRec, 
sizeof (struct sockaddr in)) == SOCKET ERROR) 
/* 如 果 绑 定 失败 */ 


{ 
printf ("bind failed with: %d\n", WSAGetLastError()); 


closesocket (socketRec) ; 
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WSACleanup () 7 
return; 


} 
/* 从 广播 地 址 接收 消息 */ 
while(i < bCount) 
t 
recvfrom(socketRec,buf,256,0, 
(struct sockaddr FAR *)&addrBro, 
(int FAR *)&addrBroLen); 
/*&ER 2 秒 钟 */ 
Sleep (2000); 
/* 输 出 接收 到 缓冲 区 的 消息 */ 
printf("$sWn", buf); 
/* 清 空 缓冲 区 */ 
ZeroMemory (buf, 256); 
i++; 


) 
/+ 接收 完毕 后 关闭 套 接 字 ， 释 放 占用 资源 */ 
closesocket (socketRec) ; 
WSACleanup () 7 

} 


C) 多 播 功能 控制 模块 

多 播 功能 控制 模块 是 为 多 播发 送 模块 和 多 播 接收 模块 服务 的 ， 它 实现 多 播 的 套 接 创 建 
和 绑 定 功能 、 套 接 字 选项 设置 功能 、 多 播 组 加 入 功能 等 。 具 体 实现 代码 如 下 : 

/* 多 播 控制 函数 */ 


void mulControl () 
{ 
int optval; 
/* 创 建 UDP 套 接 字 ， 用 于 多 播 */ 
if ((socketMul = WSASocket(AF INET, SOCK DGRAM, 0, NULL, 0, 
WSA FLAG MULTIPOINT C LEAF 
| WSA FLAG MULTIPOINT D LEAF 
| WSA FLAG OVERLAPPED)) == INVALID SOCKET) 
{ 
printf ("socket failed with: %d\n", WSAGetLastError()); 
WSACleanup () ; 
return; 
} 


/* 设 置 本 地 接口 地 址 */ 

addrLocal.sin family = AF INET; 
addrLocal.sin port = htons(mPort) ; 
addrLocal.sin addr.s addr = dwInterface; 


/* 将 UDP 套 接 字 绑 定 到 本 地 地 址 上 */ 
if (bind(socketMul, (struct sockaddr *)&addrLocal, 
sizeof (addrLocal)) == SOCKET ERROR) 
/* 如 果 绑 定 失败 */ 
t 
printf ("bind failed with: %d\n", WSAGetLastError()); 
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closesocket (socketMul); 
WSACleanup () ; 


return; 
} 
/* 设 置 多 播 地 址 各 个 选项 */ 
addrMul.sin family = AF INET; 
addrMul.sin port = htons (mPort) ; 


addrMul.sin addr.s addr = dwMulticastGroup; 


/* 重 新 设置 TTL 值 */ 
optval = 8; 
/* 设 置 多 播 数据 的 TTL (存在 时 间 ) 值 。 默 认 情况 下 ，TTL 值 是 1*/ 
if (setsockopt (socketMul, IPPROTO IP, IP MULTICAST TTL, 
(char*) goptval, sizeof (int)) == SOCKET ERROR) 
/* 如 果 设置 失败 */ 
t 
printf("setsockopt(IP MULTICAST TTL) failed: %d\n", 
WSAGetLastError()); 
closesocket (socketMul); 
WSACleanup(); 
return; 


} 


/* 如 果 指定 了 返还 选项 */ 
if (bLoopBack) 
{ 
/* 设 置 返 还 选项 为 假 ， 禁 止 将 发 送 的 数据 返还 给 本 地 接口 */ 


optval = 0; 

if (setsockopt (socketMul, IPPROTO IP, IP MULTICAST LOOP, 
(char*) goptval, sizeof (optval)) == SOCKET ERROR) 

/* 如 果 设 置 失 败 */ 


{ 
printf("setsockopt(IP MULTICAST LOOP) failed: %d\n", 
WSAGetLastError()); 
closesocket (socketMul); 
WSACleanup(); 
return; 


} 


/* 加 入 多 播 组 */ 
if ((sockJoin=WSAJoinLeaf (socketMul, (SOCKADDR*) &addrMul, 
sizeof (addrMul), NULL, NULL, NULL, NULL, 
JL BOTH)) == INVALID SOCKET) 
/* 如 果 加 入 不 成 功 */ 
{ 
printf("WSAJoinLeaf() failed: $dWMn", WSAGetLastError()); 
closesocket (socketMul); 
WSACleanup(); 
return; 
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(8) 多 播 消息 发 送 模块 

多 播 消 息 发 送 模块 实现 多 播 消 息 的 发 送 ， 即 发 送 者 ( 需 提 高 “-s” 选 项 标识 ) 在 指定 的 多 
播 组 、 端 口 发 送 指定 数量 的 多 播 消息 ， 消 息 发 送 过 程 中 还 可 以 设置 是 否 允 许 消 息 返 还 (通过 
“-1” 设 置 )。 该 模块 由 函数 multicastSend0 来 实现 ， 其 实现 过 程 是 先 调用 mulControl() PR 2 
实现 准备 工作 (多 播 的 套 接 创建 和 绑 定 功能 、 套 接 字 选项 设置 功能 、 多 播 级 加 入 功能 等 )， 
然后 发 送 指定 数量 的 消息 。 与 广播 函数 一 样 ， 该 函数 也 需要 接收 选项 “-h( 广 播 地 址 )”、 
“-p( 端 口号 )”、“-i( 本 地 接口 )” 和 “-n( 发 送 数量 )”， 如 果 用 户 没有 提供 这 些 选 项 ， 函 数 
将 以 默认 值 执行 。 具 体 实 现代 码 如 下 : 

/* 多 播 消息 发 送 函 数 */ 

void multicastSend() 

t 


TCHAR sendbuf[BUFSIZE]; 
DWORD i; 
int ret; 


mulControl (); 
/* RIÉ mcount 条 消息 */ 
for (i=0; i«mCount; i++) 
{ 
/* 将 待 发 送 的 消息 写 入 发 送 缓冲 区 */ 
sprintf(sendbuf, "server 1: This is a test: %d", i); 
ret - sendto(socketMul, (char*)sendbuf, strlen(sendbuf), 0, 
(struct sockaddr *)&addrMul, sizeof (addrMul)); 
/* 如 果 发 送 失败 */ 
if(ret == SOCKET ERROR) 
{ 
printf ("sendto failed with: %d\n", WSAGetLastError ()); 
closesocket (sockJoin) ; 
closesocket (socketMul); 
WSACleanup () ; 
return; 


} 
/* 如 果 发 送 成 功 */ 
else 
printf ("Send message %d\n", i); 
Sleep(500); 


} 
/* 关 闭 套 接 字 、 释 放 占用 资源 */ 
closesocket (socketMul); 
WSACleanup () 7 
} 
(9) 多 播 消息 接收 模块 
多 播 消息 接收 模块 可 实现 多 播 消息 的 接收 ， 即 接收 者 在 指定 的 多 播 级 、 端 口 来 接收 指 
定数 量 的 多 播 消 息 。 该 模块 由 函数 multicastRec0 实 现 ， 其 实现 过 程 是 先 调用 mulControl() 
函数 实现 准备 工作 (多 播 的 套 接 创建 和 绑 定 功能 、 套 接 字 选 项 设置 功能 、 多 播 级 加 入 功能 


等 )， 然 后 接收 指定 数量 的 消息 。 该 函数 也 需要 接收 选项 “-h( 广 播 地 址 )”、“-p( 端 


3)”, 
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“-n( 发 送 数 量 )”， 如 果 用 户 没有 提供 这 些 选项 ， 函 数 将 以 默认 值 执行 。 具 体 实现 


代码 如 下 : 
/* 多 播 消 息 接收 函数 */ 


void multicastRec() 


ü 


} 

(10) 主 函 数 

主 函数 main0 实 现 Winsock 的 初始 化 、 广 播 与 多 播 的 选择 以 及 发 送 者 与 接收 者 身份 选 
择 等 功能 。 具 体 实现 代码 如 下 : 

/* 主 函数 */ 


int main(int argc, char **argv) 


t 


DWORD i; 

struct sockaddr in from; 

TCHAR recvbuf [BUFSIZE]; 

int ret; 

int len - sizeof(struct sockaddr in); 
mulControl (); 

/ * alit mcount 条 消息 */ 


for(i-0; i«mCount; i++) 


/* 将 接收 的 消息 写 入 接收 缓冲 区 */ 

if ((ret = recvfrom(socketMul, recvbuf, BUFSIZE, 0, 
(struct sockaddr *)&from, &len)) -- SOCKET ERROR) 

/* 如 果 接收 不 成 功 */ 


{ 
printf("recvfrom failed with: %d\n", WSAGetLastError()); 
closesocket (sockJoin); 
closesocket (socketMul); 
WSACleanup () 7 
return; 


} 
/* 接 收成 功 ， 输 出 接收 的 消息 */ 


recvbuf[ret] = 0; 
printf("RECV: '$s' from <%s>\n", recvbuf, inet ntoa(from.sin addr)); 


) 

/* 关 闭 套 接 字 、 释 放 占 用 资源 */ 
closesocket (socketMul) ; 
WSACleanup () ; 


WSADATA wsd; 

initial (> 

GetArgments (argc, argv); 

/* 初 始 化 Winsock*/ 

if (WSAStartup(MAKEWORD(2, 2), &wsd) != 0) 

{ 
printf ("WSAStartup() failed\n") ; 
return -1; 


EOS CH CHEERED 


if(broadFlag) /* 如 果 是 执行 广播 程序 */ 
{ 
/* 以 发 送 者 身份 发 
if (broadSendFlag) 
{ 


息 */ 


broadcastSend(); 
return 0; 


broadcastRec(); 
return 0; 


j 
if(multiFlag) /* 如 果 是 执行 多 播 程序 */ 
{ 

/* 以 发 送 者 身份 发 送 消息 

if (multiSendFlag) 

{ 


multicastSend () ; 
return 0; 
} 
/* 以 接收 者 身份 接收 消息 */ 
else 
{ 
multicastRec(); 
return 0; 


) 
return 0; 
) 


到 此 为 止 ， 整 个 实例 设计 完毕 ， 执 行 后 的 效果 如 图 2-15 所 示 。 
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图 2-15 ”执行 效果 
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2.8 ”小 试 牛刀 一 一 基于 UDP 的 网 段 扫描 器 


个 基于 UDP 的 网 段 扫描 器 


光盘 \yuanma\2\NBTSTAT 


2.3.1 设计 界面 


本 实例 的 目的 是 ， 使 用 Visual C++ 6.0 开发 一 个 基于 UDP 的 网 段 扫描 器 。 
(1) 打开 Visual C++ 6.0， 创 建 一 个 名 为 “NBTSTAT ”的 MFC 程序 。 
(2) 创建 一 个 ID 名 为 “IDD NBTSTAT DIALOG” 的 窗 体 ， 如 图 2-16 所 示 。 


yellow red ween magenta cya 


blue 


a E 可 


2-16 IDD_NBTSTAT_DIALOG 窗 体 


2.52 具体 编码 


设计 界面 完毕 后 ， 开 始 步 入 正式 编码 阶段 。 
(1) 定义 函数 OnInitDialog0， 用 于 实现 界面 初始 化 工作 。 有 具体 代码 如 下 : 


BOOL CNBTSTATD1g: :OnInitDialog() 
t 
CDialog: :OnInitDialog(); 
SetIcon(m hIcon, TRUE); 
SetIcon(m hIcon, FALSE); 
m IPEditl.Setaddress(210,28,128,1); // 设 置 IP 地 址 默认 范围 
m IPEdit2.SetAddress (210, 28,143, 255); 
wait handle = CreateEvent (NULL, true, false, "receive data"); // 创 建 处 于 非 触 
// 发 状态 的 事件 。 类 型 为 手动 
GetDlgItem(IDC BTN EXIT)->EnableWindow (false) ; 
m spin.SetRange(100, 10000); 
m spin.SetPos (100); 


DWORD dwStyle = GetWindowLong (m ListView.GetSafeHwnd(), GWL STYLE); 
dwStyle &= ~LVS TYPEMASK; 

dwStyle |= LVS REPORT; 

SetWindowLong (m ListView.GetSafeHwnd(), GWL STYLE, dwStyle); 

m ListView.InsertColumn (0, "MAC 地 址 "， LVCEMT LEFT, 120); 


m ListView.InsertColumn (0，" 用 户 \\ 其 他 "，ILVCEMT LEFT, 100); 
m ListView.InsertColumn (0, "EAL", LVCFMT LEFT, 80); 
m ListView.InsertColumn(0, "TFH", LVCFMT LEFT, 80); 
m ListView.InsertColumn(0, "IP Hihk", LVCFMT LEFT, 100); 
m ListView.SetExtendedStyle(LVS EX GRIDLINES) ; 
::SendMessage (m ListView.m hWnd, LVM SETEXTENDEDLISTVIEWSTYLE, 
LVS EX FULLROWSELECT, LVS EX FULLROWSELECT); 
return TRUE; // return TRUE unless you set the focus to a control 


} 


(2) 编写 函数 OnBtnSend0， 用 于 创建 扫描 线程 ， 启 动 扫描 工作 。 有 具体 代码 如 下 ; 


void CNBTSTATD1g: :OnBtnSend() 

t 
// 从 IP 控件 得 到 要 查询 的 IP 范围 
m IPEditl.GetAddress(B1[0], B1[1], B1[2], B1[3]); 
m IPEdit2.GetAddress(B2[0], B2[1], B2[2], B2[3]); 
// 判 断 IP 范围 是 否 合法 
if(B2[2] < B1[2]) 
{ AfxMessageBox ("终止 地 址 应 大 于 起 始 地 址 ! "); return; } 
else if(B2[2]--B1[2] && B2[3]«B1[3]) 
{ AfxMessageBox ("终止 地 址 应 大 于 起 始 地 址 ! "); return; } 


if(B2[0]!-B1[0] || B2[1]!=B1[1]) 
{ AfxMessageBox ("不 支持 A 类 或 B 类 网 ! "); return; } 
// 设 置 相关 按钮 状态 


GetDlgItem(IDC_BTN_SEND) —>EnableWindow (false); 
GetDlgItem(IDC EDIT1)-»EnableWindow (false); 
GetDlgItem(IDC SPIN1)-—>EnableWindow (false); 
GetDlgItem(IDC IPADDRESS1) ->EnableWindow (false); 
GetDlgItem(IDC IPADDRESS2)-»^EnableWindow (false); 
GetDlgItem(IDC BTN EXIT) -—>EnableWindow (true); 
// 启 动 线程 
AfxBeginThread (NbtstatThread, this->GetSafeHwnd(), 
THREAD PRIORITY NORMAL); 
} 


(3) 编写 nbtstat 线程 函数 NbtstatThread(LPVOID param)， 用 于 向 指定 范围 的 IP 发 送 
数据 。 具 体 代码 如 下 : 


UINT NbtstatThread (LPVOID param) 
{ 
// 循 环 对 要 查询 的 IP 发 数据 
do 
{ 
if (bExit) // 是 否 退 出 线程 
{ 
AfxMessageBox ("exit thread!"); 
pDlg-»GetDlgItem(IDC BTN SEND) —»EnableWindow (true); 
pDlg-»GetDlgItem(IDC EDIT1)-»EnableWindow (true); 
pDlg-»GetDlgItem(IDC SPIN1)-»EnableWindow (true); 
pDlg-»GetDlgItem(IDC IPADDRESS1)-»EnableWindow (true); 
pDlg-»GetDlgItem(IDC IPADDRESS2)-»EnableWindow (true); 
pDlg-»GetDlgItem(IDC BTN EXIT) —»EnableWindow (false); 
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bExit = false; 
return 1; 
} 


pDlg-»m strIP.Format ("$d.$d.$d.$d",B1[0],B1[1],B1[2],B1[3]) ;//###I IP 
pDlg-»m ListBox.InsertString (0, 
pDlg->m_strIP); //#i% IP iA ListView 的 IP 字 段 

if (B1[3]!=0 && B1[2]!-0) 

pDlg-»m UDPSocket.SendTo((void*)bs, 50, 

destPORT, pDlg-»m strIP, 0); // 向 指定 的 IP 发 数据 报 

int nWait = pDlg-»m spin.GetPos(); // 设 置 超时 
WaitForSingleObject ( 

wait_handle, // 等 待 事件 的 句柄 

nWait  // 超时 
WE 
ResetEvent (wait handle); // 将 事件 重新 置 回 非 触发 状态 
t ===: 一 一 一 一 一 一 一 一 一 一 一 一 一 一 - -一 一 = 二 一 一 一 一 一 一 一 一 一 一 一 一 一 一 
// 生 成 下 一 个 要 查询 的 TP 
if(B1[2] <= B2[2]) 
{ 


if (B1[3] < B2[3]) B1[3]++; 
else if(B1[2]«B2[2] && B1[3]«255) B1[3]++; 
else if(B1[2]«B2[2] && B1[3]==255) 
{ 
B1[3] = 0; 
B1[2]++; 
) 
) 
else break; 
if (B1[3]>=B2[3] && B1[2]»-B2[2]) break; 
} while (B1[2]<=255 && B1[3]«-255); 
pDlg-»m ListBox.InsertString(0, "----- complete!--—-—- "); 
pDlg-»GetDlgItem(IDC BTN SEND)-»EnableWindow (true); 
pDlg-»GetDlgItem(IDC EDIT1)-»EnableWindow (true); 
pDlg-»GetDlgItem(IDC SPINI1)-»EnableWindow (true); 
pDlg-»GetDlgItem(IDC IPADDRESS1)-»EnableWindow (true); 
pDlg-»GetDlgItem(IDC IPADDRESS2)-»EnableWindow (true); 
pDlg-»GetDlgItem(IDC BTN EXIT)-»EnableWindow (false); 
return 0; 
} 


(4) 定义 函数 OnReceive0， 用 于 获得 扫描 结果 。 接 收 各 个 要 查询 机 器 发 回来 的 响应 信 
息 ， 并 从 响应 信息 里 取出 对 应 机 器 的 工作 组 、 机 器 名 、 用 户 名 和 MAC 地 址 。 
具体 代码 如 下 : 


void CNBTSTATD1g: :OnReceive () 
{ 
BYTE Buf[500]; 
CString str, strIP, strHost, strHex, strMac, Host, Group, User; 
UINT dport; 
m UDPSocket.ReceiveFrom(Buf, 500, strIP, dport, 0); // 接 收 数据 
// 如 果 接收 到 的 rp 为 空 或 者 与 原来 接收 到 的 Te 相同 ， 则 返回 
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if (strIP==(char)NULL || strIP==strOldIP) return; 
strOoldIP = StrIP7 

int index = m ListView.InsertItem(0, strIP); // 将 IP 插 入 ListView 
strHost = ""; // 机 器 名 字 

strHex = ""; //MAC 地 址 

User = "?";// 

Host = "NN"; 

int tem-0, num-0; 

bool bAdd = true; 

// 根 据 数据 报 规 则 取出 相应 的 信息 

for(i-57; i«500; i++) //57-72 

t 


if(Buf[i]--0xcc) break; 

if (Buf[i]==0x20) bAdd = false; 

if (bAdd) 

{ 
str.Format("$c", Buf[i]); 
if(Buf[i] >= ' ') strHost += str; 
str.Format("$02x.", Buf[i]); 
strHex += str; 


if ((++tem) %18 == 0) 
{ 
bAdd = true; 
strHost.TrimRight ( (char) NULL) ; 
if(strHost == "") 
t 
strMac.Delete(17, strMac.GetLength()-17); 
m ListView.SetItem(index, 4, LVIF TEXT, strMac, 0, 0, 0, 0); 
break; 
) 
if(num--0 && strHost!-"") 
t 
m ListView.SetItem(index, 2, LVIF TEXT, strHost, 0, 0, 0, 0); 
Host = strHost; 
nume; 
} 
else 
{ 
if (Host!=strHost && num==1 && strHost!="") 
{ 
m ListView.SetItem(index,1,LVIF TEXT,strHost, 0, 0, 0, 0); 
Group = strHost; 
num++; 
} 
else 
{ 
if (strHost!=Host && strHost!=Group && num==2 
&& strHost!="") 


User = strHost; 


到 此 为 止 ， 整 个 项 目 中 的 核心 模块 已 经 介绍 完毕 ， 至 于 其 他 次 要 部 分 代码 ， 请 读者 参 
考 本 书 附带 光盘 中 的 源 代码 。 执 行 之 后 的 效果 如 图 2-17 所 示 。 


图 2-17 执行 效果 


E) 远程 传输 处 理 ess 


自从 计算 机 应 用 于 现实 之 后 ， 网 络 领域 就 一 直 是 发 展 的 重点 。 
21 世纪 初期 的 信息 社会 就 是 基于 网 络 的 ， 美 国 提出 的 “信息 高 速 公 
路 ”这 一 理念 也 是 以 网 络 为 基础 的 。 在 网 络 领域 中 ， 远 程 文件 传输 
又 是 一 个 重要 的 分 支 。 在 计算 机 七 层 协议 中 ,了 


3.4 FTP 能 带 给 我 们 什么 


FTP 是 File Transfer Protocol( 文 件 传输 协议 ) 的 英文 简称 ， 用 于 在 Intemet 上 的 控制 文件 
的 双向 传输 。 同 时 FTP 也 是 一 个 应 用 程序 (Application)， 用 户 可 以 通过 它 把 自己 的 PC 机 与 
世界 各 地 所 有 运行 FTP 协议 的 服务 器 相连 ,访问 服务 器 上 的 大 量程 序 和 信息 。FTP 的 主要 
作用 ， 就 是 让 用 户 连 接 上 一 个 远程 计算 机 (这 些 计算 机 上 运行 着 FTP 服务 器 程序 )， 来 察看 
远程 计算 机 上 有 哪些 文件 ， 然 后 把 文件 从 远程 计算 机 上 拷 到 本 地 计算 机 ， 或 者 把 本 地 计算 
机 上 的 文件 送 到 远程 计算 机 去 。FTP 最 典型 的 应 用 是 服务 器 上 传 工具 ， 例 如 Web FRAR 
经 常 使 用 的 CuteFTP， 就 可 以 方便 地 将 本 地 文件 上 传 到 远程 服务 器 上 ，CuteFTP 8.0 的 界面 
效果 如 图 3-1 所 示 。 


Lobal CAPE 


3-1 CuteFTP 8.0 的 界面 
由 此 看 来 ，FTP 功能 非常 强大 。 在 接 下 来 的 内 容 中 ， 将 简要 介绍 FTP 的 基本 知识 。 


3.1.1 FTP HEA 


FTP 服务 一 般 运行 在 20 和 21 这 两 个 端口 。 端 口 20 用 于 在 客户 端 和 服务 器 之 间 传输 
数据 流 ， 而 端口 21 用 于 传输 控制 流 ， 并 且 是 命令 通 向 FTP 服务 器 的 进口 。 当 数据 通过 数 
据 流传 输 时 ， 控 制 流 处 于 空闲 状态 。 而 当 控制 流 空 闲 很 长 时 间 后 ， 客 户 端的 防火 墙 会 将 其 
会 话 置 为 超时 ， 这 样 当 大 量 数 据 通过 防火 墙 时 ， 会 产生 一 些 问 题 。 此 时 ， 虽 然 文件 可 以 成 
功 地 传输 ， 但 因为 控制 会 话 会 被 防火 墙 断 开 ; 传输 会 产生 一 些 错误 。 
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at. 
1. 背景 


一 般 来 说 ， 使 用 互联 网 的 首要 目的 就 是 为 了 实现 信息 共享 ， 文 件 传输 是 信息 共享 非常 
重要 的 一 个 内 容 。 但 是 Intemet 是 一 个 非常 复杂 的 计算 机 环境 ， 有 PC， 有 工作 站 ， 有 
MAC， 有 大 型 机 ， 并 且 连 接 在 Intemet 上 的 计算 机 有 上 千 万 台 ， 而 且 这 些 计算 机 可 能 运行 
不 同 的 操作 系统 ， 例 如 有 运行 Unix 的 服务 器 ， 也 有 运行 DOS、Windows 的 PC 机 和 运行 
MacOS 的 苹果 机 等 。 所 以 各 种 操作 系统 之 间 的 文件 交流 存在 问题 ， 很 有 必要 建立 一 个 统一 
的 文件 传输 协议 ， 这 就 是 FTP。 基 于 不 同 的 操作 系统 有 不 同 的 FTP 应 用 程序 ， 而 所 有 这 些 
应 用 程序 都 遵守 同一 种 协议 ， 这 样 用 户 就 可 以 把 自己 的 文件 传送 给 别人 ， 或 者 从 其 他 的 用 
户 环境 中 获得 文件 了 。 

与 大 多 数 Intemet 服务 一 样 ，FTP 也 是 一 个 客户 机 /服务 器 系统 。 用 户 通 过 一 个 支持 
FTP 协议 的 客户 机 程序 ， 连 接 到 在 远程 主机 上 的 FTP 服务 器 程序 。 用 户 通过 客户 机 程序 向 
服务 器 程序 发 出 命令 ， 服 务 器 程序 执行 用 户 所 发 出 的 命令 ， 并 将 执行 的 结果 返回 到 客户 
机 。 比 如 说 ， 用 户 发 出 一 条 命令 ， 要 求 服务 器 向 用 户 传送 某 一 个 文件 的 一 份 拷贝 ， 服 务 器 
会 响应 这 条 命令 ， 将 指定 文件 送 至 用 户 的 机 器 上 。 客 户 机 程序 代表 用 户 接收 到 这 个 文件 ， 
将 其 存放 在 用 户 目录 中 。 

2. 下 载 和 上 传 

在 使 用 FTP 的 过 程 中 ， 经 常 遇 到 下 载 (Download) 和 上 传 (Upload) 这 两 个 概念 。 下载 文 
件 就 是 从 远程 主机 拷贝 文件 至 自己 的 计算 机 上 ; 上 传 文件 就 是 将 文件 从 自己 的 计算 机 中 找 
贝 至 远程 主机 上 。 用 Intemet 语言 来 说 ， 用 户 可 通过 客户 机 程序 向 (从 ) 远 程 主机 上 传 (下 载 ) 
文件 。 

3. 登录 和 匿名 

使 用 FTP 时 ， 必 须 首 先 登 录 ， 在 远程 主机 上 获得 相应 的 权限 以 后 ， 方 可 下 载 或 上 传 文 
件 。 也 就 是 说 ， 要 想 同 哪 一 台 计 算 机 传送 文件 ， 就 必须 具有 哪 一 台 计 算 机 的 适当 授权 。 换 
言 之 ， 除 非 有 用 户 ID 和 口令 ， 和 否则 便 无 法 传送 文件 。 这 种 情况 违背 了 Internet 的 开放 性 ， 
Internet 上 的 FTP 主机 何止 千 万 ， 不 可 能 要 求 每 个 用 户 在 每 一 台 主 机 上 都 拥有 账号 。 匿 名 
FTP 就 是 为 解决 这 个 问题 而 产生 的 。 

匿名 FIP 是 这 样 一 种 机 制 ， 用 户 可 通过 它 连接 到 远程 主机 上 ， 并 从 其 下 载 文件 ， 而 无 
需 成 为 其 注册 用 户 。 系 统管 理 员 可 以 建立 一 个 特殊 的 用 户 ID， 名 为 anonymous, Internet 
上 的 任何 人 在 任何 地 方 都 可 使 用 该 用 户 ID 。 

4. 目标 

FTP 实现 的 目标 如 下 : 

口 ”促进 文件 的 共享 (计算 机 程序 或 数据 )。 

a ”鼓励 间接 或 者 隐 式 地 使 用 远程 计算 机 。 

a ”向 用 户 屏蔽 不 同 主机 中 各 种 文件 存储 系统 (File System) 的 细节 。 

口 “ 可 靠 和 高 效 的 传输 数据 。 


> 
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5. 缺点 


FIP 也 有 缺点 ， 概 括 如 下 

a “密码 和 文件 内 容 都 使 用 明文 传输 ， 可 能 产生 不 希望 发 生 的 窃听 。 

口 ” 因 为 必须 开放 一 个 随机 的 端口 以 创建 连接 ， 当 防火 墙 存 在 时 ， 客 户 端 很 难过 滤 处 
于 主动 模式 下 的 FTP 流量 。 这 个 问题 ， 通 过 使 用 被 动 模式 的 FTP， 得 到 了 很 大 
解决 。 

a ”服务 器 可 能 会 被 告知 连接 一 个 第 三 方 计 算 机 的 保留 端口 。 

a “此 方式 在 需要 传输 数量 很 多 的 小 文件 时 性 能 不 好 。 


3.12 工作 原理 


FTP 服务 是 一 种 有 连接 的 文件 传输 服务 ， 采 用 的 传输 层 协 议 是 TCP 协议 。FTP 服务 的 
基本 过 程 是 ， 建立 连接 、 传 输 数 据 与 释放 连接 。 由 于 FTP 服务 的 特点 是 数据 量 大 、 控 制 信 
息 相对 较 少 ， 因 此 在 设计 时 采用 分 别 对 控制 信息 与 数据 进行 处 理 的 方式 ， 这 样 用 于 通信 的 
TCP 连接 也 相应 地 分 为 两 种 类 型 一 一 控制 连接 与 数据 连接 。 其 中 ， 控 制 连接 用 于 在 通信 双 
方 之 间 传输 FTP 命令 与 响应 信息 ， 完 成 连接 建立 、 身 份 认证 与 异常 处 理 等 控制 操作 ， 数 据 
连接 用 于 在 通信 双方 之 间 传 输 文 件 或 目录 信息 。 

图 3-2 给 出 了 FTP 服务 的 工作 原理 。FTP 客户 机 向 FTP 服务 器 发 送 服务 请 求 ，FTP 服 
务 器 接收 与 响应 FTP 客户 机 的 请 求 ， 并 向 FTP 客户 机 提供 所 需 的 文件 传输 服务 。 根 据 
TCP 协议 的 规定 ，FTP 服务 器 使 用 熟知 端口 号 来 提供 服务 ，FTP 客户 机 使 用 临时 端口 号 来 
发 送 请 求 。FTP 协议 为 控制 连接 与 数据 连接 规定 不 同 的 熟知 端口 号 ， 为 控制 连接 规定 的 熟 
知 端口 号 是 21， 为 数据 连接 规定 的 熟知 端口 号 为 20。FTP 协议 采用 的 是 持续 连接 的 通信 
方式 ， 它 所 建立 的 控制 连接 的 维持 时 间 通 常 较 长 。 


3-2 FTP 工作 原理 


FTP 协议 规定 了 两 种 连接 建立 与 释放 的 顺序 。 控 制 连接 要 在 数据 连接 建立 之 前 建立 ， 
在 数据 连接 释放 之 后 释放 。 只 有 建立 数据 连接 之 后 才能 传输 数据 ， 并 在 数据 传输 过 程 中 要 
保持 控制 连接 不 中 断 。 控 制 连接 与 数据 连接 的 建立 与 释放 有 规定 的 发 起 者 。 控 制 连接 与 数 
据 连接 建立 的 发 起 者 只 能 是 FTP 客户 机 ; 控制 连接 释放 的 发 起 者 只 能 是 FTP 客户 机 ， 数 
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据 连接 释放 的 发 起 者 可 以 是 FTP 客户 机 或 服务 器 。 如 果 在 数据 连接 保持 的 情况 下 控制 连接 
中 断 ， 则 可 以 由 FTP 服务 器 要 求 释放 数据 连接 。 

在 FTP 服务 的 工作 过 程 中 ，FTP 客户 机 向 服务 器 请 求 建立 控制 连接 ，FTP 客户 机 与 
服务 器 之 间 建 立 控制 连接 ， FTP 客户 机 请 求 登录 到 服务 器 ，FTP 服务 器 要 求 客户 机 提供 用 
户 名 与 密码 ; 当 FTP 客户 机 成 功 登 录 到 服务 器 后 ，FTP 客户 机 通过 控制 连接 向 服务 器 发 
出 命令 ，FTP 服务 器 通过 控制 连接 向 客户 机 返回 响应 信息 ; 当 FTP 客户 机 向 服务 器 发 出 
目录 命令 后 ，FTP 服务 器 会 通过 控制 连接 返回 响应 信息 ， 并 通过 新 建立 的 数据 连接 返回 目 
录 信 息 。 

如 果 用 户 想 改变 在 FTP 服务 器 的 当前 目录 ，FTP 客户 机 通过 控制 连接 向 服务 器 发 出 改 
变 目录 命令 ，FTP 服务 器 通过 数据 连接 返回 改变 后 的 目录 列表 ; 如果 用 户 想 下 载 当前 目录 
中 的 某 个 文件 ，FTP 客户 机 通过 控制 连接 向 服务 器 发 出 下 载 命令 ，FTP 服务 器 通过 数据 连 
接 将 文件 传输 到 客户 机 。 数 据 连接 有 两 种 常用 的 工作 模式 一 ASCI 模式 和 BINARY fi 
式 。 其 中 ，ASCII 模式 适合 传输 文本 文件 ，BINARY 模式 适合 传输 二 进 制 文件 。 数 据 连 接 
在 目录 列表 或 文件 下 载 后 关闭 ， 而 控制 连接 在 程序 关闭 时 才 会 关闭 。 


3.1.3 ”使 用 模式 


FIP 有 了 两 种 使 用 模式 ， 分 别 是 主动 模式 和 被 动 模式 。 主 动 模式 要 求 客户 端 和 服务 器 端 
同时 打开 并 且 监 听 一 个 端口 以 创建 连接 。 在 这 种 情况 下 ， 因 为 客户 端 安装 了 防火 墙 会 产生 
一 些 问题 ， 所 以 创立 了 被 动 模式 。 被 动 模式 只 要 求 服务 器 端 产生 一 个 监听 相应 端口 的 进 
程 ， 这 样 就 可 以 绕 过 客户 端 安 装 了 防火 墙 的 问题 。 

(1) 一 个 主动 模式 的 FTP 连接 创建 要 遵循 以 下 步 又 。 

© 客户 端 打开 一 个 随机 的 端口 (端口 号 大 于 1024， 在 这 里 ， 我 们 称 它 为 x)， 同 时 一 
个 FTP 进程 连接 至 服务 器 的 21 号 命令 端口 。 此 时 ， 该 TCP 连接 的 来 源 地 端口 为 客户 端 指 
定 的 随机 端口 x， 目 的 地 端口 (远程 端口 ) 为 服务 器 上 的 21 号 端口 。 

Q 客户 端 开 始 监 听 端 口 k+l)， 同 时 向 服务 器 发 送 一 个 端口 命令 (通过 服务 器 的 21 号 
命令 端口 )， 此 命令 告诉 服务 器 客户 端正 在 监听 的 端口 号 并 且 已 准备 好 从 此 端口 接收 数据 。 
这 个 端口 就 是 我 们 所 知 的 数据 端口 。 

© ”服务 器 打开 20 号 源 端口 并 且 创 建 与 客户 端 数据 端口 的 连接 。 此 时 ， 来 源 地 的 端 
为 20， 远 程 数据 (目的 地 ) 端 口 为 (x+1)。 

© ”客户 端 通过 本 地 的 数据 端口 创建 一 个 和 服务 器 20 号 端口 的 连接 ， 然 后 向 服务 器 
发 送 一 个 应 答 ， 告 诉 服务 器 它 已 经 创建 好 了 一 个 连接 。 

(2) 对 于 服务 器 端的 防火 墙 来 说 ， 必 须 允 许 下 面 的 通讯 才能 支持 被 动 方式 的 FTP。 

© 从 任何 大 于 1024 的 端口 到 服务 器 的 21 端口 ， 客 户 端 初始 化 的 连接 。 

© ”服务 器 的 21 端口 到 任何 大 于 1024 的 端口 ， 服 务 器 响应 到 客户 端的 控制 端口 的 
连接 。 

© 从 任何 大 于 1024 端口 到 服务 器 的 大 于 1024 端口 ， 客 户 端 初始 化 数据 连接 到 服务 
器 指定 的 任意 端口 。 

© 服务 器 的 大 于 1024 端口 到 远程 的 大 于 1024 的 端口 ， 服 务 器 发 送 ACK 响应 和 数 
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据 到 客户 端的 数据 端口 。 
(3) 关于 主动 和 被 动 FTP 的 介绍 ， 可 以 简单 概括 为 以 下 两 点 。 
®© 主动 FTP 
命令 连接 : 客户 端 1024 端口 一 服务 器 21 端 
数据 连接 :客户 端 1004 端口 一 服务 器 20 端 
@ 被 动 FTP 
命令 连接 : 客户 端 1024 端口 一 服务 器 21 端 
数据 连接 : 客户 端 1024 端口 一 服务 器 1024 端口 
主动 FTP 对 FTP 服务 器 的 管理 有 利 ， 但 对 客户 端的 管理 不 利 。 因 为 FTP 服务 器 企图 
与 客户 端的 高 位 随机 端口 建立 连接 ， 而 这 个 端口 很 有 可 能 被 客户 端的 防火 墙 阻塞 掉 。 被 动 
FTP 对 FTP 客户 端的 管理 有 利 ， 但 对 服务 器 端的 管理 不 利 。 因 为 客户 端 要 与 服务 器 端 建立 
两 个 连接 ， 其 中 一 个 连 到 一 个 高 位 随机 端口 ， 而 这 个 端口 很 有 可 能 被 服务 器 端的 防火 墙 阻 
塞 掉 。 


3.1.4 FTP 命令 与 FTP 了 响应 信息 


FTP 服务 在 应 用 层 采用 的 是 FTP 协议 。1971 4E, RFC 114 文档 定义 了 FTP 协议 的 最 
初版 本 。1985 年 ，RFC 959 文档 定义 了 FTP 协议 的 新 版 本 ， 它 是 目前 FTP 服务 仍 遵循 的 
协议 标准 。 简 单 文件 传输 协议 (Trivial File Transfer Protocol，TFTP) 也 可 以 用 于 实现 文件 传 
输 ， 但 是 它 不 提供 任何 安全 性 方面 的 保证 。FTP 协议 详细 规定 了 FTP 服务 的 工作 流程 ， 以 
及 命令 与 响应 的 具体 格式 。FTP 客户 机 在 进行 文件 传输 之 前 ， 需 要 通过 控制 连接 定义 文件 
类 型 、 数 据 结构 与 传输 模式 。 

在 FTP 服务 的 执行 过 程 中 ，FTP 客户 机 与 服务 器 之 问 需 要 传输 控制 信息 ， 这 些 信息 用 
于 完成 某 个 具体 的 FTP 操作 ， 它 们 可 以 分 为 两 种 类 型 : FTP 命令 与 FTP 响应。 其 中 ，FTP 
命令 是 FTP 客户 机 向 服务 器 发 送 的 操作 请 求 ，FTP 响应 是 FTP 服务 器 根据 操作 情况 向 客 
户 机 返回 的 信息 。 图 3-3 给 出 了 FIP 命令 与 FIP 响应 的 关系 。FTP 协议 详细 规定 了 每 种 
协议 命令 的 顺序 一 一 首先 需要 顺序 发 送 USER 与 PASS 命令 ， 最 后 需要 发 送 QUIT 命令 ， 
其 他 命令 的 顺序 没有 特殊 要 求 。 
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3-3 FTP 命令 与 FTP 了 响应 的 关系 


FIP 命令 由 两 部 分 组 成 : 命令 名 与 参数 。 其 中 ， 命 令 名 是 由 3 或 4 个 大 写字 母 组 成 的 
字符 串 ， 它 是 对 该 命令 的 英文 描述 的 缩写 ， 例 如 USER 是 用 户 名 的 缩写 ; 
的 附加 信息 ， 例 如 USER 的 参数 为 具体 的 用 户 名 。FTP 命令 的 标准 格式 为 : 


需要 使 
命令 名 < 参数 > 


FIP 命令 中 的 命令 名 是 必须 有 的 ， 参 数 是 由 命令 来 决定 是 否 需要 的 。 例 如 ，USER 命 
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令 必须 有 参数 ，LIST 命令 可 以 没有 参数 。 其 中 最 为 常用 的 FTP 命令 如 表 3-1 所 示 。 


参数 是 完成 命令 


表 3-1 FTP 的 常用 命令 
命令 格 式 描 述 

用 户 名 (USER) | USER XXXXXX 参数 是 标记 用 户 的 Telnet tf. 
Telnet 是 一 种 Internet 远程 终端 访问 标准 ， 它 真实 
地 模仿 远程 终端 但 不 具有 图 形 功 能 ， 只 提供 基于 
字符 界面 的 访问 。Telnet 允许 任何 合法 用 户 提供 
远程 访问 权 ， 且 不 需 特殊 约定 

口令 (PASS) 参数 是 标记 用 户口 令 的 Telnet 串 。 在 访问 非 匿 名 
FIP 服务 器 时 ， 该 命令 是 必需 的 

账号 (ACCT) 参数 是 标记 用 户 账户 的 Telnet H 

重新 初始 化 该 命令 终止 USER， 将 所 有 VO 和 账户 信息 写 入 ， 

(REIN) 但 不 许 进行 中 的 数据 传输 完成 。 重 置 所 有 参数 ， 
控制 连接 打开 ， 可 以 再 次 开始 USER 命令 

退出 登录 OUIT 该 命令 终止 USER， 如 果 没有 数据 传输 ， 服 务 器 

(QUIT) 关闭 控制 连接 ， 如 果 有 数据 传输 ， 在 得 到 传输 响 
应 后 服务 器 关闭 控制 连接 

放弃 (ABOR) ABOR 该 命令 用 于 通知 服务 中 止 以 前 的 FTP 命令 和 与 之 


相关 的 数据 传送 


改变 工作 目录 


该 命令 使 用 户 可 以 在 不 同 的 目录 或 数据 集 下 工作 


(CWD) 而 不 用 改变 它 的 登录 或 账户 信息 
回 到 上 一 层 目 该 命令 要 求 系统 回 到 上 一 级 目录 

录 (CDUP) 

删除 DELE) DELE 文件 名 该 命令 删除 指定 路 径 下 的 文件 
列举 子 目 录 或 ”| LIST 目录 名 该 命令 列举 指定 目录 下 的 子 目录 或 文件 
文件 (LIST) 

列举 子 目录 或 该 命令 列举 指定 目录 下 的 子 目录 或 文件 
文件 (NLST) 


Ng 4 d x X t 
pow" CH 网 络 编程 开发 与 实战 


续 表 
命 令 描 述 
创建 目录 该 命令 在 指定 路 径 下 创建 目录 
(MKD) 
显示 当前 路 径 该 命令 显示 当前 路 径 
(PWD) 
删除 目录 该 命令 删除 指定 目录 


RMD 
重 命名 (RNFR) | RNFR 文件 名 ( 旧 的 ) 


该 命令 注 明 将 被 改变 的 文件 名 


重 命 名 为 该 命令 注 明 新 的 文件 名 (与 RNFR 共同 完成 文件 的 
(RNTO) 重 命名 ) 
结构 加 载 该 命令 使 用 户 在 不 改变 登录 或 账户 信息 的 情况 下 
(SMNT) 加 载 另 一 个 文件 系统 数据 结构 
TYPE A(ASCII) or 该 命令 定义 文件 类 型 以 及 打印 格式 
E(EBCDIC) or I(Image) or 
N(Nonprint) or T(TELNET) 
STRU 该 命令 定义 数据 的 组 织 形 式 
R(Record), P(Page 
MODE 该 命令 定义 传输 模式 
or C (Compressed, 
数据 端口 PRT 6-Digit identifier 客户 端 选择 端口 ， 格 式 为 a,b,c,d,e,f， 其 中 前 4 位 
(PORT) 为 人 P 地 址 ， 后 两 位 为 端口 ， 计 算 公式 : 
端口 =ex256+f 
被 动 (PASV) PASV 主机 和 端口 地 址 该 命令 要 求 服务 器 DTP 在 指定 的 数据 端口 侦 听 ， 
进入 被 动 接收 请 求 的 状态 
获得 文件 RETR 文件 名 该 命令 使 服务 器 DTP 传送 指定 路 径 内 的 文件 副本 
(RETR) 到 服务 器 或 用 户 DTP. 
保存 (STOR) STOR 文件 名 该 命令 使 服务 器 DTP 接收 数据 连接 上 传送 过 来 的 
数据 ， 并 将 数据 保存 在 服务 器 的 文件 中 。 如 果 文 
件 已 存在 ， 则 覆盖 它 
附加 (APPE) APPE 文件 名 与 STOR 类 似 ， 如 果 文件 存在 ， 数 据 附加 在 文件 
之 后 
分 配 空 间 ALLO 文件 名 该 命令 在 服务 器 上 分 配 文件 的 空间 


ALLO 
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续 表 
命令 格 式 描 x 
重新 开始 REST 文件 名 重新 开始 传输 文件 ， 该 命令 后 应 该 跟 其 他 文件 传 
(REST) 输 的 FTP 命令 
状态 (STAT) STAR 文件 名 该 命令 返回 控制 连接 状态 
帮助 (HELP) HELP 该 命令 表示 获取 帮助 
等 待 (NOOP) NOOP 该 命令 仅 使 服务 器 返回 OK 
站 点 参数 该 命令 提供 服务 器 系统 信息 ， 信 息 因 系 统 不 同 而 
(SITE) 不 同 
系统 (SYST) 该 命令 用 于 确定 服务 器 上 运行 的 操作 系统 


FTP 响应 由 两 部 分 组 成 : 
串 ， 它 是 对 响应 信息 的 数 : 
字 描 述 ， 
响应 码 


描述 信息 


打开 数据 连接 ， 开 始 传输 


响应 码 与 描述 信息 。 其 中 ， 响 应 码 是 由 3 位 数字 组 成 的 字符 
标识 ， 例 如 200 表示 用 户 登录 成 功 ， 描 述 信 息 是 对 响应 码 的 文 
例如 200 的 描述 信息 是 “Command okay.”。FTP 响应 的 标准 格式 为 : 


含义 
登录 时 需要 账户 信息 
请 求 的 文件 操作 需要 进一步 命令 
不 能 提供 服务 ， 关 闭 控制 连接 


文件 状态 良好 ， 打 开 数 据 连接 


无 法 打开 数据 连接 


命令 成 功 关闭 连接 ， 中 止 传输 

命令 未 执行 请 求 的 文件 操作 未 执行 
系统 状态 遇 到 本 地 错误 

目录 状态 磁盘 空间 不 足 

文件 状态 格式 错误 ， 无 效 命令 

帮助 信息 参数 语法 错误 

系统 类 型 502 命令 未 执行 

ECT. 
服务 关闭 控制 连接 ， 可 以 退出 登录 504 此 参数 下 的 命令 功能 未 执行 
打开 数据 连接 未 登录 网 络 


响 应 码 
关闭 数据 连接 ， 请 求 的 文件 操作 成 功 


进入 被 动 模式 (IP 地 址 、ID 端口 ) 550 未 执行 请 求 的 操 


登录 因特网 551 不 知道 的 页 类 型 
请 求 的 文件 操作 完成 552 超过 存储 分 配 
路 径 名 建立 553 文件 名 不 合法 


用 户 名 正确 ， 需 要 


注意 : 有 关 每 个 FTP 指令 和 响应 的 用 法 需要 用 一 本 书 的 内 容 来 讲解 。 这 不 是 本 书 的 重点 ， 
读者 可 以 参阅 相关 书籍 资料 来 获取 对 应 的 知识 。 


3.2 Telnet 命令 简 述 


Telnet 协议 是 TCP/IP 协议 族 中 的 一 员 ， 是 Internet 远程 登录 服务 的 标准 协议 和 主要 方 
式 。 它 为 用 户 提供 了 在 本 地 计算 机 上 完成 远程 主机 工作 的 能 力 。 在 终端 使 用 者 的 电脑 上 使 
用 Telnet 程序 ， 用 它 连接 到 服务 器 。 终 端 使 用 者 可 以 在 Telnet 程序 中 输入 命令 ， 这 些 命令 
会 在 服务 器 上 运行 ， 就 像 直接 在 服务 器 的 控制 台 上 输入 一 样 。 可 以 在 本 地 就 能 控制 服务 
器 。 要 开始 一 个 Telnet 会 话 ， 必 须 输 入 用 户 名 和 密码 来 登录 服务 器 。Telnet 是 常用 的 远程 
控制 Web 服务 器 的 方法 。 例 如 我 们 可 以 用 Guest 身份 访问 清华 的 BBS 论坛 系统 ， 如 图 3-4 
所 示 。 


RARE. XAA, HR nne HE 
TD irte BABIES 


neo ian! 了 习 


L3 ma | wee... | 


图 3-4 以 Telnet 远 程 访问 清华 大 学 BBS 


3.2.1 Telnet 协 议 基础 


Telnet 协议 是 个 简单 的 远程 登录 协议 ， 其 服务 过 程 可 以 分 为 如 下 3 个 步 又。 
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(1) 本 地 用 户 在 本 地 终端 上 对 远程 系统 进行 登录 。 

Q) 将 本 地 终端 上 的 键盘 输入 逐 键 传 到 远 端 。 

(3) 将 远 端 的 输出 送 回 本 地 终端 。 

在 上 述 过 程 中 ， 输 入 /输出 均 对 远 端 系统 的 内 核 透明 ， 远 程 登录 服务 本 身 也 对 用 户 
透明 ， 本 地 用 户 感觉 好 像 直 接连 在 远 端 主机 的 键盘 上 操作 ， 这 种 透明 性 是 Telnet 的 重 

Telnet 提供 了 3 种 基本 的 服务 。 首 先 定义 了 一 个 网 络 虚拟 终端 (Network Virtual 
Terminal，NVT)， 为 远程 系统 提供 了 一 个 标准 接口 。 客 户 机 程序 不 必 详 细 了 解 所 有 可 能 的 
远程 系统 ， 它 们 只 需要 使 用 标准 接口 的 程序 。 其 次 ， 它 包括 了 一 个 客户 机 和 服务 器 协商 选 
项 的 机 制 ， 而 且 还 提供 了 一 组 标准 选项 。 最 后 它 对 等 地 处 理 连接 的 两 端 。 即 连接 的 双方 都 
可 以 是 程序 ， 尤 其 是 客户 端 不 一 定 非 是 用 户 终端 不 可 ， 人 允许 任意 程序 作为 客户 。 

当 用 户 调用 Telnet 时 ， 用 户 机 器 上 的 应 用 程序 作为 客户 与 远程 的 服务 器 建立 一 个 TCP 
连接 ， 在 此 连接 上 进行 通信 。 此 时 ， 客 户 就 从 用 户 键盘 接受 键盘 消息 并 送 到 服务 器 ， 同 时 
它 接收 服务 器 发 回 的 字符 并 显示 在 用 户 屏幕 上 。 

服务 器 本 身 并 不 直接 处 理 从 客户 传输 来 的 消息 ， 而 是 将 这 些 消息 送 给 操作 系统 处 理 ， 
然后 再 将 返回 的 数据 再 转交 给 客户 。 也 就 是 说 ， 此 时 的 服务 器 ， 我 们 称 之 为 “ 伪 终 端 ” 
(Pseudo Terminal)， 它 允许 像 Telnet 服务 器 一 样 的 运行 程序 向 操作 系统 转送 字符 ， 并 且 使 
得 字符 似乎 是 来 自 本 地 键盘 一 样 。 

为 了 提供 在 不 同 操作 系统 、 不 同 种 类 计算 机 间 的 互 操作 性 ，Telnet 专门 提供 了 一 种 标 
准 的 键盘 定义 方式 ， 称 为 网 络 虚 拟 终端 [NVT)。 客 户 程序 把 来 自用 户 终端 的 按键 和 命令 序 
列 转换 成 NVT 格式 ， 并 发 给 服务 器 。 远 程 服务 器 程序 把 收 到 的 数据 和 命令 ， 从 NVT 格式 
转换 为 远程 系统 需要 的 格式 。 对 于 返回 的 数据 ， 远 程 服务 器 将 数据 从 远程 机 器 的 格式 转换 
为 NVT 格式 ， 并 且 本 地 客户 将 数据 从 NVT 格式 转换 为 本 地 机 器 的 格式 。 

也 就 是 说 ， 在 用 户 和 远程 系统 两 端 ， 仍 然 采 用 自己 原 有 的 终端 方式 ， 而 只 在 远程 登录 
客户 程序 与 服务 器 连接 时 才 使 用 NVT 格式 。 这 样 ， 不 同 终端 方式 的 计算 机 就 可 以 通过 标 
准 的 NVT 格式 统一 在 一 起 ， 不 仅 使 得 远程 登录 客户 程序 的 编写 简单 化 了 ， 也 使 得 用 户 操 
作 远 程 登录 变 得 简单 。 在 这 里 NVT 的 作用 ， 类 似 于 IP. 协议 对 底层 不 同 物理 网 络 的 屏蔽 作 
J, J TCP/IP 协议 的 层次 化 思想 的 又 一 体现 。 


3.2.2 ”使 用 Telnet 协 议 


在 大 多 数 情况 下 ，Telnet 并 不 是 作为 一 种 应 用 ， 而 是 作为 一 种 手段 为 用 户 所 使 用 。 也 
就 是 说 ， 当 本 地 用 户 需 要 使 用 远程 计算 机 上 的 资源 时 ， 它 就 会 启动 Telnet 程序 与 远程 计算 
机 建立 连接 ， 当 该 连接 建立 成 功 后 ，Telnet 的 使 命 只 是 维持 用 户 与 远程 机 的 数据 连接 ， 而 
剩 下 主要 的 工作 是 看 用 户 如 何 使 用 远程 计算 机 的 资源 。 

简单 地 说 ，Telnet 使 用 的 命令 格式 如 下 : 


$telnet hosthome port 


其 中 ，hosthome 代表 远程 计算 机 的 域名 ， 也 可 以 用 下 地 址 的 形式 表示 ; port 代表 远程 
机 的 端口 号 ， 默认 值 为 23。 
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X 3-3 中 列 出 了 Telnet 协议 中 的 常用 命令 。 


33-3 Telnetá 4 


名 称 编 码 说 A 

EOF 236 文件 结束 符 
SUSP 237 挂 起 当前 进程 
ABORT 238 中 止 进程 
EOR 239 记录 结束 符 
SE 240 子 选 项 结束 
NOP 241 空 操作 
DM 242 数据 标记 
BRK 243 # ik fF (break) 
IP 244 终止 进程 
AO 245 终止 输出 
AYT 246 请 求 应 答 
EC 247 终止 符 
EL 248 擦 除 一 行 
GA 249 继续 
SB 250 子 选 项 开始 
WILL 251 选项 协商 
WONT 252 选项 协商 
DO 253 选项 协商 
DONT 254 选项 协商 
IAC 字符 OXFF 

其 中 常用 的 Telnet 选项 协商 如 下 。 


Q WILLXXX: 我 想 具 有 XXX 特性 ， 你 是 否 同意 。 
GQ WONT XXX: 我 不 想 具 有 XXX 特性 。 

a “DO XXX: 我 同意 你 可 以 具有 XXX 特性 。 

a DONTXXX: 我 不 同意 你 具有 XXX 特性 。 
那么 对 于 接收 方 和 发 送 方 ， 有 表 3-4 中 的 6 种 组 合 。 


表 3-4 Telnet 选 项 协商 的 6 种 情况 


DO 发 送 者 想 激活 某 选项 ， 接 收 者 接收 该 选项 请 求 
DONT | 发 送 者 想 激活 某 选 项 ， 接 收 者 拒绝 该 选项 请 求 
发 送 者 希望 接收 者 激活 某 选 项 ， 接 收 者 接受 该 请 求 
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续 表 


发 送 者 | 接收 者 说 明 
DO DONT | 发 送 者 希望 接收 者 激活 某 选 项 ， 接 收 者 拒绝 该 请 求 
WONT | DONT | 发 送 者 希望 使 某 选 项 无 效 ， 接 收 者 必须 接受 该 请 求 


发 送 者 希望 对 方 使 某 选项 无 效 ， 接 收 者 必须 接受 该 请 求 


选项 协商 需要 3 个 字 节 ， 首 先是 IAC， 然 后 是 WILL. DO. WONT È DONT; 最 后 
一 个 标识 字 节 用 来 指明 操作 的 选项 。 常 用 的 选项 代码 如 表 3-5 所 示 。 


表 3-5 Telnet 选 项 代码 


选项 标识 名 oW RFC 
1 回应 (echo) 857 
3 禁止 继续 858 
5 状态 859 
6 时 钟 标识 860 
24 终端 类 型 1091 
31 窗口 大 小 1073 
32 终端 速率 1079 
33 远 端 流量 控制 1372 
34 行 模式 1184 
36 环境 变量 1408 


3.8. 小 试 牛刀 一 一 FTP 文 件 处 理 


前 面 介绍 了 FTP 协议 的 基本 知识 ， 了 解 了 FTP 的 主要 功能 是 实现 文件 传输 。 在 本 节 
的 内 容 中 ， 将 讲解 使 用 Visual C++ 实现 FTP 文件 传输 功能 的 实现 流程 。 


3.3.1 FTP 编程 


FTP 是 MFC 的 WinInet 支持 的 三 个 Internet 功能 (另外 两 个 是 HTTP 和 gopher) 之 一 ， 
我 们 需要 先 创建 一 个 CInternetSession 实例 和 一 个 CFtpConnection 对 象 ， 这 样 就 可 以 实现 


与 一 个 FTP 服务 器 的 通信 了 。 我 们 不 需要 直接 创建 CFtpConnection 对 象 ， 而 是 通过 调用 


CInternetsession::GetFtpConnection 来 完成 这 项 工作 ， 它 创建 CFtpConnection 对 象 并 返回 一 


个 指向 该 对 象 的 指针 。 


需要 使 用 如 下 两 个 步骤 来 接 到 FTP 服务 器 。 


(1) 创建 一 个 CInteretSession 对 象 ， 上 


类 CIntemetSession 创建 并 初始 化 一 个 或 几 个 


同时 存在 的 Internet 会 话 (Session) ， 并 描述 与 代理 服务 器 的 连接 (如 果 有 必要 的 话 )， 如 果 


Visual C++ 


网 络 编程 开发 与 实战 


在 程序 运行 期 间 需要 保持 与 Intemet 的 连接 ， 可 以 创建 一 个 CIntemetsession 对 象 作为 类 
CWinApp 的 成 员 。 
(2) 用 CInternetsession 对 象 获取 CFtpConnection 对 象 。MFC 中 的 类 CFtpConnection 
用 于 管理 我 们 与 Internet 服务 器 的 连接 ， 并 直接 操作 服务 器 上 的 目录 和 文件 。 
1. FTP 连 接 类 
需要 使 用 CInternetsession 对 象 和 GetFtpConnection() 函 数 来 实现 连接 。 
(1) CInternetsession 对 象 
创建 CInternetsession 对 象 的 语法 格式 如 下 : 
CInternetsession (LPCTSTR pstrAgent, 
DWORD dwConText, DWORD dwACCESSType, 
LPCTSTR pstrProxyName, LPCTSTR pstrProxyBypass, 
DWORD dwFlags); 
在 创建 CInternetSession 对 象 时 调用 这 个 成 员 函 数 ，CInternetsession 是 应 用 程序 第 一 个 
要 调用 的 Intemet 函数 ， 它 将 创始 化 内 部 数据 结构 ， 以 备 将 来 在 应 用 程序 中 调用 。 如 果 
dwFlags 包含 INTERNET FLAG ASYNC， 那 么 从 这 个 句柄 派生 的 所 有 的 句柄 ， 在 状态 回 
调 例 程 注册 之 前 ， 都 会 出 现 异 步 状 态 。 如 果 没有 打开 Intemet 连接 ，CInternetsession 就 会 
Jit AfxThrowInternetException 异常 。 
(2) GetFtpConnection() FÁ Zi 
GetFtpConnection() 函 数 的 语法 格式 如 下 : 
CFtpConnection* CIternetsession::GetFtpConnection (LPCTSTR pstrServer, 
LPCTSTR pstrUserName, LPCTSTR pstrPassword, 
INTERNET PORT nPort, BOOL bPassive); 
调用 GetFtpConnection(0) 函 数 可 以 建立 一 个 FTP 连接 ， 并 获得 一 个 指向 CFtpConnection 
对 象 的 指针 ，GetFtpConnection 连接 到 一 个 FTP 服务 器 ,创建 并 返回 指向 CFtpConnection 
对 象 的 指针 ， 它 不 在 服务 器 上 进行 任何 操作 。 如 果 打 算 读 写 文件 ， 必 须 进 行 分 步 操作 。 
调用 GetFtpConnection0) 函 数 会 返回 一 个 指向 CFtpConnection 对 象 的 指针 。 如 果 调 用 失 
败 ， 检 查 抛 出 的 CInternetException 对 象 ， 就 可 以 确定 失败 的 原因 。 
2. 文件 上 传 下 载 删 除 
可 以 通过 如 下 函数 实现 对 上 传 文件 的 上 传 、 下 载 和 删除 操作 。 
(1) GetFile() PA 2% 
GetFile0 函 数 的 语法 格式 如 下 : 
BOOL GetFile (LPCTSTR pstrRemoteFile, LPCTSTR pstrLocalFile, 
BOOL bFailExists, DWORD dwAttributes, 
DWORD dwFlags, DWORD dwContext); 
调用 GetFile0 成 员 函 数 ， 可 以 从 FTP 服务 器 取得 文件 ， 并 且 把 文件 保存 在 本 地 机 器 
上 。GetFile0 函 数 是 一 个 比较 高 级 的 例 程 ， 它 可 以 处 理 所 有 有 关 从 FIP 服务 器 读 文 件 ， 以 
及 把 文件 存放 在 本 地 机 器 上 的 工作 。 如 果 dwFlags 为 FILE TRANSFER TYPE ASCII, X 
件数 据 的 传输 也 会 把 控制 和 格式 符 转化 为 Windows 中 的 等 阶 符号 。 默 认 的 传输 模式 是 二 进 
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制 模式 ， 文 件 会 以 与 服务 器 上 相同 的 格式 被 下 载 。 

pstrRemoteFile 和 pstrLocalFile 可 以 是 相对 于 当前 目录 的 部 分 文件 名 ， 也 可 以 是 全 文件 
名 ， 在 这 两 个 名 字 中 间 ， 都 可 以 用 反 斜 杠 人 或 者 正 斜 杠 (0) 来 作为 文件 名 的 目录 分 隔 符 ， 
GetFile(0) 在 使 用 前 会 把 目录 分 隔 符 转 化 为 适当 的 字符 。 

可 以 用 自己 选择 的 值 来 取代 dwContext 默认 的 值 ， 设 置 为 上 下 文 标识 符 与 
CFtpConnection 对 象 的 定位 操作 有 关 ， 此 操作 由 CFtpConnection 中 的 CInternetSession 对 象 
创建 。 返 回 给 CInternetsession::OnStatusCallBack 的 值 设 置 了 所 标识 操作 的 状态 。 

如 果 调 用 成 功 ， 函 数 的 返回 为 非 0， 和 否则 返回 0。 如 果 调 用 失败 ， 则 可 以 调用 Win32 
函数 GetLastError(0) 以 确认 出 错 的 原因 。 


注意 : 本 地 路 径 需 为 绝对 路 径 ， 远 程 路 径 可 为 相对 路 径 ， 如 hello/hello.zip， 如 果 本 地 文件 
已 经 存在 ， 则 返回 FALSE。 


(2) PutFile0 函 数 

PutFile0) 函 数 的 语法 格式 如 下 : 

BOOL PutFile(LPCTSTR pstrLocalFile, LPCTSTR pstrRemoveFile, 

DWORD dwFlags, DWORD dwContext); 

调用 PutFile0 成 员 函 数 可 以 把 文件 保存 到 FTP 服务 器 。PutFile0) 函 数 是 一 个 比较 高 级 的 
例 程 ， 它 可 以 处 理 有 关 把 文件 存放 到 服务 器 上 的 工作 。 只 发 送 数据 ， 或 要 严格 控制 文件 传 
输 的 应 用 程序 ， 应 该 调用 OpenFile 和 CInternet::Write。 利 用 自己 选择 的 值 来 取代 dwContext 
默认 的 值 ， 设 置 为 上 下 文 标识 符 ， 上 下 文 标识 符 是 ClntemetSession 对 象 创 建 的 ， 与 
CFtpConnection 对 象 的 特定 操作 有 关 ， 这 个 值 返回 给 CIntemetsession::OnStateCallBack， 从 
而 把 操作 的 状态 通报 给 它 所 标识 的 上 下 文 。 

如 果 调 用 成 功 ， 函 数 的 返回 为 非 0， 和 否则 返回 0。 如 果 调 用 失败 ， 可 以 调用 Win32 K 
数 GetLastError() 以 确认 出 错 的 原因 。 


HEB: 如 果 重 复 上 传 文件 ， 会 把 服务 器 上 的 文件 覆盖 掉 ， 且 可 以 上 到 传 特定 文件 夹 下 ， 如 
hello/hello.zip. 


(3) Remove()r Ait 

Remove() 函 数 的 语法 格式 如 下 : 

BOOL Remove (LPCTSTR pstrFileName); 

如 果 调 用 成 功 ， 函 数 的 返回 为 非 0， 和 否则 返回 0。 如 果 调 用 失败 ， 可 以 调用 Win32 K 
数 GetLastError0 以 确认 出 错 的 原因 。 参 数 pstrFileName 表示 需要 删除 的 服务 器 上 的 文件 
名 ， 如 果 删 除 的 文件 不 存在 ， 则 返回 FALSE。 


3.8.2 ”使 用 CSocketFile 类 


在 MFC 中 定义 了 一 个 在 套 接 字 编 程 中 使 用 的 CSocketFile 类 ， 可 以 充分 发 挥 CSocket 
类 的 特性 。CSocketFile 类 是 CFile 的 派生 类 ， 主 要 用 来 在 Windows Sockets 编程 中 发 送 和 
接收 序列 化 数据 (如 结构 体 数 据 )。 通 过 把 CSocketFile 类 对 象 、CArchive 对 象 和 CSocket 创 
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建 的 套 接 字 对 象 联系 起 来 ， 可 以 实现 数据 的 加 载 (接收 ) 和 存储 (发 送 )。 

(1) 构造 函数 

在 实际 编程 中 ， 将 CSocketFile 对 象 和 CSocket 对 象 直接 联系 起 来 可 以 用 CSocketFile 
类 的 构造 函数 来 完成 。CSocketFile 类 的 构造 函数 原型 如 下 : 


CSocketFile: :CSocketFile (CSocket *pSocket, BOOL bArchiveCompatible=TRUE) ; 


参数 pSocket 是 一 个 CSocket 对 象 ; bArchiveCompatible 指示 该 文件 对 象 是 否 与 一 个 
CArchive 对 象 一 起 使 用 ， 默 认为 tue。 该 构造 函数 可 以 有 两 种 调用 方式 。 例 如 : 

CSocket *m clientsocket = new CSocket; // 创 建 套 接 字 

// 创 建 一 个 与 m clientsocket 关联 的 文件 指针 对 象 

CSocketFile *m_sockfile = new CSocketFile(&m_clientsocket) ; 

在 上 述 代码 中 ， 通 过 new 关键 字 调用 CSocketFile 类 的 构造 函数 创建 一 个 指针 对 象 。 
第 二 种 调用 方式 如 下 : 

CSocket *m clientsocket = new CSocket; // 创 建 套 接 字 

CSocketFile m sockfile(&m clientsocket); // 创 建 与 m clientsocket 关联 的 文件 对 象 

这 两 种 调用 方式 都 需要 在 实例 化 对 象 m_sockfile 之 后 ， 再 与 CArchive 对 象 相关 联 ， 并 
由 CArchive 对 象 指定 其 属性 。 具 体 代码 如 下 : 


CArchive ar(&m sockfile, 


CArchive::load|CArchive::store); // 创 建 m sockfile 相关 联 的 串 行 化 对 象 并 指定 属性 
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me // 省 略 部 分 代码 
ar.Close(); // 关 闭 串 行 化 对 象 
在 这 里 使 用 完 串 行 化 对 象 ar 以 后 ， 需 要 使 用 函数 CArchive::Close() 关 闭 ， 以 确保 数据 


(命令 ) 及 时 存储 (发 送 )。 

(2) CSocketFile 与 CFile 

CSocketFile 类 虽然 派生 于 CFile 类 ， 但 是 它 却 屏蔽 掉 了 函数 CFile:Open(. té 
说 ， 用 户 在 实际 编程 时 ， 不 能 使 用 CSocketFile 对 象 直接 去 调用 函数 Open() 打 开 文件 。 

因为 本 章 实例 中 的 文件 的 操作 大 多 是 由 CArchive 类 实现 的 ， 所 以 关于 CSocketFile 类 
的 其 他 函数 请 读者 参阅 MSDN， 这 里 不 再 袭 述 。 


3.8.3 使 用 CArchive 类 进行 序列 化 


在 MFC 中 ，CArchive 对 象 可 以 将 数据 序列 化 (按照 顺序 ) 写 入 与 它 相 关联 的 文件 中 去 。 
它 提 供 类 型 安全 的 缓冲 机 制 。 下 面 将 讲解 一 下 CArchive 类 常用 的 函数 。 

(1) 工作 原理 

CArchive 类 对 象 在 初始 化 时 ， 首 先 指定 一 个 缓冲 区 作为 临时 存储 ， 再 将 需要 保存 的 数 
据 写 到 缓冲 区 中 。 当 缓冲 区 被 填 满 时 ， 才 将 缓冲 区 中 的 内 容 写 入 它 所 指向 的 CFile 文件 对 
象 中 。 

同样 ， 当 用 户 读 取 数 据 时 ， 串 行 化 对 象 将 数据 从 文件 读 取 到 指定 的 缓冲 区 ， 再 从 缓冲 
区 读 取 到 与 对 象 相关 联 的 文件 中 。 这 样 ， 使 用 缓冲 区 不 但 减少 了 对 物理 硬盘 的 操作 次 数 ， 
而 且 提 高 了 程序 的 运行 速度 。 
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Q) 串 行 化 对 象 

在 通常 情况 下 ，CArchive 类 使 用 构造 函数 创建 指定 的 串 行 化 对 象 ， 并 且 与 CSocketFile 
对 象 相 关联 。 其 语法 格式 如 下 : 

CArchive::CArchive(CFile *pfile, UINT nMode, 

int nBufsize, void *l1pBuf-NULL); 

参数 pfile 指向 一 个 需要 进行 串 行 化 的 对 象 指针 。nMode 是 设置 创建 对 象 的 标志 。 如 果 
用 户 设置 了 此 标志 ， 则 必须 在 对 象 销毁 前 调用 CloseO 函 数 关闭 文件 。 和 否则 ， 文 件 中 的 数据 
将 会 被 损坏 。 该 参数 的 常用 标志 如 表 3-6 所 示 。 


33-6 nMode 的 常用 标志 


标志 所 表示 的 意义 


CArchive::load(store) 从 文件 中 读 取 ( 保 存 ) 数 据 


参数 nBufsize 用 于 设置 的 缓冲 区 大 小 : lpBuf 用 于 自 定义 缓冲 区 ， 默 认 情 况 下 为 
NULL。 例 如 下 面 的 代码 : 
CSocket *m clientsocket = new CSocket; // 创 建 套 接 字 
CSocketFile *m sockfile = 
new CSocketFile(&m clientsocket); // 创 建 与 m_ clientsocket 关联 的 对 象 


CArchive *m archive = 
new CArchive(&m sockfile, CArchive::load|CArchive::store, 100, NULL); 


在 上 述 代 码 中 ， 为 创建 的 串 行 化 对 象 m archive 设置 一 个 大 小 为 100 的 缓冲 区 。 最 后 
一 个 参数 设 为 NULL， 表 明 缓 冲 区 由 系统 决定 。 

(3) 串 行 化 操作 

在 CArchive 类 中 ， 是 使 用 函数 ReadString0 和 WriteString0 实 现 对 CSocketFile 文件 的 
读 写 操作 。 函 数 的 语法 格式 如 下 : 

UINT CArchive::ReadString(CString str); 

void CArchive::WriteString(CString strl); 

上 述 两 个 函数 均 包 含 一 个 字符 串 类 型 的 参数 。 但 是 ， 其 具体 含义 却 不 同 ， 分 别 如 下 ; 

Q su: 表示 将 读 取 后 保存 的 字符 串 数据 。 

Q strl: 表示 将 写 入 的 字符 串 数据 。 

除了 上 面 的 方法 以 外 ， 还 可 以 使 用 串 行 化 操作 的 基本 方法 。 代 码 如 下 : 

// 省 略 部 分 代码 


m archive««str; // 向 串 行 化 对 象 m_archive 写 入 字符 串 str 
m archive»»strl; // 从 串 行 化 对 象 m_archive 读 出 数据 到 str1 
m archive-»Close(); // 关 闭 串 行 化 对 象 m_archive 


在 此 需要 注意 ， 在 关闭 串 行 化 对 象 后 ， 与 其 相关 联 的 文件 对 象 也 会 随 之 被 关闭 。 函 数 
CArchive::Close0 用 于 清除 CArchive 类 创建 时 所 指定 的 缓冲 区 ， 再 关闭 CArchive 对 象 ， 并 
且 将 CArchive 对 象 和 与 之 相关 联 的 CSocketFile 对 象 进 行 分 离 。 

如 果 用 户 需要 马上 将 数据 写 入 到 串 行 化 对 象 中 ， 需 要 用 到 Flush 函数 。 它 主要 用 于 将 
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缓冲 区 中 剩余 的 数据 强制 地 写 入 CArchive 对 象 所 关联 的 文件 中 。 例 如 下 面 的 代码 : 

// 省 略 部 分 代码 

m archive-»WriteString(str + "\r\n"); // 调 用 Carchive 类 的 Writestring 发 送 命令 

// 在 此 也 可 以 使 用 m_archive<<str<<"\r\n"; 

m archive-»Flush(); // 强 制 将 数据 str 写 入 到 串 行 化 对 象 中 

m archive-»Close(); // 关 闭 串 行 化 对 象 

如 果 在 程序 中 没有 调用 函数 Flush0， 那 么 真正 将 数据 写 入 到 物理 磁盘 是 在 调用 函数 
Close(0 关 闭 串 行 化 对 象 以 后 。 为 了 防止 丢失 ， 需 要 使 用 Flush0 函 数 将 一 些 重要 的 数据 立即 
写 入 文件 。 


3.3.4 获取 FTP 服 务 器 文件 信息 


当 用 户 编程 时 ， 需 要 获取 FTP 服务 器 文件 的 列表 ， 以 便 查 看 文件 的 相关 信息 。 在 接 下 
来 的 内 容 中 ， 将 讲解 怎样 获取 FTP 服务 器 文件 的 相关 知识 。 

(1) 获取 文件 列表 

一 般 情况 下 ，FTP 文件 列表 信息 是 通过 客户 端 和 服务 器 端 之 间 的 数据 通道 获取 的 。 编 
程 中 ， 用 户 可 以 向 服务 器 发 送 LIST 命令 ， 服 务 器 接收 到 该 命令 以 后 会 向 客户 端 返回 FTP 
目录 下 的 文件 列表 信息 。 用 户 需要 注意 ， 在 PORT 模式 下 传输 数据 时 ， 客 户 端 需要 向 服务 
器 提交 本 地 TP 地 址 和 用 于 返回 数据 的 端口 号 : 


CSocket m Client; // 客 户 端 套 接 字 变 量 

CString m host; / /1P 地 址 字符 串 变 量 

UINT nport, port-111; // 端 口号 

m Client.GetSockName (m host, nport); // 调 用 函数 获得 本 地 的 IP 地 址 
m host.Format(m host + ",%d", port); // 格 式 化 字符 串 


用 户 使 用 PORT 命令 可 以 向 服务 器 发 送 端口 号 码 。 格 式 如 “PORT”+string。 其 中 string 
表示 已 经 格式 化 的 卫 和 端口 字符 串 。 例 如 下 面 的 代码 : 

m archive->Writestring ("PORT " + m host + "\r\n"); 

// 调 用 cArchive 类 的 Writestring () 函数 发 送 

m archive-»Flush(); 

当 客 户 端 发 送 端口 之 后 ， 必 须 在 该 端口 上 进行 监听 ， 以 便 接 受 服务 器 的 连接 请 求 。 用 
户 需 要 注意 ， 在 服务 器 和 客户 端 连 接 关 闭 以 前 ， 服 务 器 均 按照 此 次 的 全 和 端口 与 客户 端 进 
行 数据 交换 。 监 听 代码 如 下 : 

m Client.Create(111, SOCK STREAM, NULL); // 创 建 在 111 端口 上 监听 的 套 接 字 


m Client.Listen(); // 进 行 监听 
此 时 即 可 向 服务 器 发 送 LIST 命令 获取 相关 文件 的 信息 ， 发 送 LIST 命令 的 代码 如 下 : 
Tr 


y 
{ ”// 尝 试 发 送 命 令 LIST 到 服务 器 ， 以 获取 文件 列表 
m archive-»WriteString("LIST " + "\r\n"); 
// 调 用 CArchive 类 的 Writestring () MARIE LIST 命令 


m archive-»Flush(); 
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Catch(CException e) 

{ MessageBox ("发 送 关 闭 命令 失败 ! "); } // 抛 出 错误 并 处 理 错误 

当 用 户 向 服务 器 发 送 LIST 命令 后 ， 服 务 器 会 向 客户 端 提供 的 IP 地 址 和 端口 号 发 出 连 
接 请 求 。 所 以 ， 当 客户 端 在 指定 端口 上 监听 到 连接 请 求 后 ， 应 该 对 该 连接 进行 处 理 。 

在 一 般 情 况 下 ， 可 以 将 套 接 字 设 置 为 非 阻塞 模式 以 避免 出 现 等 待 状态 。 当 监听 套 接 字 
检测 到 有 连接 请 求 到 来 时 才 响 应 ， 和 否则 套 接 字 一 直 处 于 监听 状态 。 可 以 使 用 AP 函数 
Accept(0) 来 响应 服务 器 的 连接 请 求 。 

例如 下 面 的 代码 : 


#define WM ACCEPT WM USER+100 // 自 定义 消息 ， 用 于 响应 连接 请 求 
afx msg void OnAccept(WPARAM wParam, LPARAM lParam) // 声 明 响应 连接 请 求 的 函数 
// 省 略 部 分 代码 


BEGIN MESSAGE MAP(CMyApp, CWinApp) 
//{{AEX MSG MAP (CMyApp) 
//) )AFX MSG 
ON COMMAND (ID HELP, CWinApp: :OnHelp) 
ON MESSAGE(WM ACCEPT, OnAccept) // 处 理 消息 映射 
END MESSAGE MAP () 


首先 需要 自 定义 消息 WM_ACCEPT， 用 于 响应 连接 请 求 ， 然 后 添加 消息 映射 ， 将 自 定 
义 消 息 和 实现 函数 关联 起 来 。 在 Win32 API 中 ， 通 过 WSAAsyncSelect() 函 数 可 以 将 套 接 字 
设置 为 非 阻塞 模式 ， 其 语法 格式 如 下 : 

int WSAAsyncSelect (SOCKET s, HWND hWnd, int wMsg, long lEvent); 

在 使 用 该 函数 时 ， 应 该 包含 Windows Socket 的 头 文件 和 相应 的 库 文件 。 例 如 下 面 的 代码 ; 


#include «winsock2.h» // 包 含 Windows Socket 头 文件 
#pragma comment(lib, "WS2 32.1ib") // 编 译 时 连接 WS2 32 HE 


在 使 用 函数 WSAAsyncSelect0 时 ， 参 数 wMsg 表示 自 定义 消息 WM_ACCEPT， 参 数 
IEvent 表示 通知 码 ， 其 取 值 如 表 3-7 所 示 。 该 函数 调用 成 功 后 ， 会 一 直 检查 通知 码 ， 直 到 
指定 的 网 络 事件 发 生 ， 和 否则 将 返回 0。 


表 3-7 IEvent 取 值 


a x 


FD_READ 表示 套 接 字 接收 到 对 方 发 送 的 数据 ， 用 户 可 对 其 进行 读 取 
FD WRITE 通知 用 户 可 以 继续 发 送 数据 
FD ACCEPT 表示 套 接 字 上 有 连接 请 求 到 来 


FD_CONNECT 套 接 字 连接 成 功 


套 接 字 检测 到 对 应 的 连接 被 关闭 


FD CLOSE 


因为 在 此 处 只 检测 有 无 连接 请 求 到 来 ， 所 以 IEvent 设置 为 FD_ACCEPT。 例 如 下 面 的 
代码 : 
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// 将 套 接 字 设 置 为 非 阻塞 模式 
::WSAAsyncSelect (m Client, m hSocket, this-»m hWnd, WM ACCEPT, 
FD ACCEPT | FD READ); 


当 有 对 应 的 套 接 字 请 求 到 来 时 ， 程 序 调用 自 定义 消息 响应 函数 进行 处 理 。 例 如 下 面 的 
代码 : 
void OnAccept (WPARAM wParam, LPARAM lParam) 
{ 
SOCKET ss; 
sockaddr in adder; 
char sz[1024] = {0}; // 定 义 缓冲 区 
switch (LOWORD (1Param) ) // 参 数 1Param 的 低 字 节 表示 通知 码 


t 
case FD ACCEPT: // 检 测 到 有 连接 请 求 到 来 
ss = ::Accept(m Client.m hSocket, adder, sizeof (adder) ); 
// 接 受到 来 的 连接 请 求 ， 返 回 一 个 临时 套 接 字 
Ss // 省 略 部 分 代码 
case FD READ: 


::recv(ss, &sz, 1024, 0); // 接 收 数据 到 缓冲 区 
. . .// 省 略 部 分 代码 


} 

当 客 户 端 检 测 到 连接 请 求 后 ， 调 用 函数 recv0 进 行 接收 ， 并 将 数据 保存 到 缓冲 区 sz 
中 。 关 于 接收 到 的 列表 信息 如 何 进 行 显示 等 操作 将 在 最 后 一 节 实 例 中 讲述 。 在 这 里 ， 用 户 
需要 注意 函数 AcceptO 调 用 成 功 后 会 返回 一 个 临时 套 接 字 的 句柄 。 

(2) 3RR FTP 文件 属性 

用 户 发 送 LIST 命令 以 后 ， 服 务 器 返回 信息 中 包含 了 文件 的 一 些 属性 ， 包 括 时 间 、 大 
小 等 。 服 务 器 返回 的 每 条 信息 都 是 以 “mn” 结 束 ， 在 每 条 信息 中 以 空格 分 开 。 

首先 ， 用 户 需要 对 缓冲 区 sz 中 的 数据 进行 解析 ， 得 到 一 条 完整 的 消息 。 例 如 下 面 的 
代码 : 

char buf[100] = {0}; // 用 于 保存 临时 数据 

for(int i-0; i«1024; i++) // 循 环 解析 消息 数据 以 获得 一 条 完整 的 信息 

; if(sz[i] != "\") buf[i]==sz[i]; // 取 得 的 信息 不 是 "\"， 则 保存 到 临时 变量 

else 
: if(sz[i-1] == "r") MessageBox (" 成 功 解析 一 条 消息 ! "); 
// 如 果 取 得 的 是 结束 符号 ， 则 提示 成 功 提 取 


) 
通过 上 述 代 码 ， 可 以 提取 一 条 完整 的 信息 ， 并 将 其 保存 在 临时 变量 buf 中 。 接 下 来 可 
以 对 提取 到 的 信息 再 进行 详细 的 解析 ， 以 便 得 到 具体 的 文件 属性 。 例 如 下 面 的 代码 : 


char ch = "a"; // 初 始 化 字符 变量 
CString str = ""; // 定 义 字符 串 
int 1=0, j=0; // 定 义 循 环 变量 


第 3 章 远程 传输 处 理 


while(ch!-"" && i<1024) 


{ 
if (buf[i]!="" && buf[i-1]—EOF) str += (CString) buf[i]; 


// 如 果 不 是 空格 则 保存 在 字符 串 变量 中 
else 
t 
ch = buf[i«1]; // 如 果 是 空格 则 移动 到 下 一 个 字符 
i += 1; 
j += 1; 
SEPA EM, // 将 字符 串 变量 重 置 
J 
switch (j) // 根 据 变量 j 选择 信息 字符 段 
t 
case l: 
MessageBox ("文件 最 后 一 次 保存 的 日 期 是 : Sc", str); 
case 23 
MessageBox (" 文 件 最 后 一 次 保存 的 时 间 是 : Sc", str); 
case 3: 
MessageBox (" 文 件 的 大 小 是 : $c", atoi (str) ) 7 
case 4: 


MessageBox (" 文 件 的 名 称 是 : Sc", str); 
} 
} 
上 述 代码 可 以 对 一 条 信息 进行 分 析 ， 得 到 文件 准确 的 保存 日 期 、 时 间 和 大 小 。 用 户 需 
要 了 解 在 Windows F FTP 服务 器 返回 的 信息 格式 ， 例 如 10-23-12 10:06AM 16056 list.txt. 
该 字符 串 第 一 段 “10-23-12” 表 示 文 件 保存 的 日 期 ， 第 二 段 “10:06AM” 表 示 保 存 时 间 ， 
第 三 段 “16056” 表 示 文 件 大 小 ， 第 四 段 “listtxt” 表 示 文 件 名 称 。 


3.3.5 上 传 文件 


向 FTP 服务 器 上 传 文件 的 功能 是 当 用 户 使 用 FTP 客户 端 时 ， 会 经 常 使 用 到 的 一 个 功 
能 。 若 想 实现 该 功能 ， 上 传 文件 的 命令 应 该 是 STOR 或 者 *STOU。STOR 命令 会 覆盖 原 有 
文件 ， 而 *STOU 命令 则 不 覆盖 已 经 存在 的 文件 。 当 上 传 命令 发 送 后 ， 用 户 便 可 以 直接 传送 
文件 。 例 如 下 面 的 代码 : 


// 调 用 CArchive 类 的 Writestring () 函数 发 送 STOR 命令 
m archive-»WriteString("STOR " + "\r\n"); 


char buff[1024] = (0); // 设 置 缓冲 区 

SOCKET sock; // 与 服务 器 建立 连接 成 功 后 返回 的 套 接 字 句柄 

CFile file("list.txt", CFile::modeReadWrite); // 关 联 文件 并 指定 文件 属性 为 可 读 可 写 
file.Read (buff, 1024); // 读 取 文件 内 容 到 缓冲 区 中 

file.close(); // 读 取 完毕 ， 关 闭 文件 


::Send(sock, buff, 1024, NULL); // 调 用 send () 函数 发 送 文 件 内 容 到 FTP 文件 

在 上 述 代码 中 ， 用 户 必 须 先 发 送 STOR 命令 到 服务 器 ， 再 将 本 地 文件 的 内 容 读 取 到 指 
定 的 缓冲 区 中 ， 利 用 函数 Send0 传 送 到 服务 器 。 在 将 文件 上 传 到 FTP 服务 器 时 ， 如 果 不 希 
望 覆 盖 原 有 的 文件 ， 则 应 该 将 STOR 命令 改 为 *STOU 命令 。 因 为 大 部 分 文件 的 结束 表示 都 
是 EOF， 所 以 当 用 户 需要 上 传 比较 大 的 文件 时 ， 应 该 利用 循环 读 取 文件 的 方式 进行 编程 。 
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当 用 户 从 FTP 服务 器 下 载 文件 时 ， 使 用 到 的 FTP 命令 是 RETR。 该 命令 的 用 法 与 上 传 
命令 的 用 法 相似 。 

首先 ， 客 户 端 向 服务 器 发 送 RETR 命令 ， 然 后 根据 获取 的 文件 大 小 ， 利 用 函数 Recv() 
进行 接收 。 

如 果 接 收 到 的 数据 小 于 文件 大 小 ， 则 继续 接收 ， 否 则 关闭 数据 连接 即 可 。 

例如 下 面 的 下 载 文件 代码 : 

int lenth; // 已 经 获取 的 文件 大 小 

CString filename; // 已 经 获取 的 文件 名 称 

int i = 0; 

m_archive->WriteString ("RETR " + "\r\n"); 


// 调 用 cArchive 类 的 Writestring() 函数 发 送 RETR 命令 


char buff[1024] = (0); // 设 置 缓冲 区 
SOCKET sock; // 与 服务 器 建立 连接 成 功 后 返回 的 套 接 字句 柄 
CFile file(filename, CFile::modeReadWrite); // 建 立 文件 并 指定 文件 属性 为 可 读 可 写 


while(lenth != 0) 
{ 
::Recv(sock, buff, 1024, NULL); // 在 套 接 字 上 接收 数据 到 缓冲 区 中 


file.Write(buff, 1024); // 将 缓冲 区 内 容 写 到 文件 中 

lenthlenth = lenth - 1024; // 从 文件 总 大 小 中 减 去 已 经 接收 并 写 入 文件 中 的 大 小 
) 
MessageBox (" 文 件 下 载 成 功 ! ") ; // 提 示 文 件 下 载 成 功 


在 上 述 代 码 中 ， 也 可 以 使 用 获取 到 的 文件 大 小 设置 接收 缓冲 区 大 小 ， 但 是 这 样 可 能 会 
导致 一 些 不 可 预见 的 错误 发 生 。 


337 具体 实现 
使 用 Visual C++ 开 发 一 个 FTP 传输 系统 


了 解 了 前 面 的 基础 知识 后 ， 接 下 来 将 详细 讲解 本 项 目的 实现 过 程 。 
1. 新 建 工 程 


(1) 打开 Visual C++ 2010， 在 菜单 栏 中 依次 选择 “文件 ”一 “新 建 ” 一 “项 目 ” 命 
令 ， 打 开 “ 新 建 项 目 ”对 话 框 ， 如 图 3-5 所 示 。 

(2) 在 图 3-5 中 的 左 侧 选 择 “MFC” 子 项 ， 在 右 侧 模板 中 选择 “MFC 应 用 程序 ” 子 
项 ， 然 后 命名 项 目 名 为 “FTP”， 选 择 保存 路 径 。 单 击 “ 确 定 ” 按 钮 后 弹出 “MFC 应 用 程 
序 向 导 ” 对 话 框 ， 如 图 3-6 所 示 。 

G) 单 击 “ 下 一 步 ” 按 钮 ， 出 现 “应 用 程序 类 型 ”界面 ， 在 此 设置 应 用 程序 类 型 为 
“基于 对 话 框 ”， 其 他 选项 使 用 默认 值 即 可 ， 如 图 3-7 所 示 。 


图 3-5 “新 建 项 目 ” 对 话 框 


图 3-6 


“MFC 应 用 程序 向 导 ” 对 话 框 


图 3-7 “应 用 程序 类 型 ”界面 


(4) 单 击 “ 下 一 步 ” 按 钮 ， 出 现 “ 用 户 界面 功能 ”界面 ， 在 此 设置 对 话 框 标题 为 
“FTP”， 如 图 3-8 所 示 。 


3-8 “用 户 界 面 功能 ”界面 


(5) 单 击 “下 一 步 ” 按 钮 ， 出 现 “高 级 功能 ”界面 ， 使 用 默认 设置 即 可 ， 如 图 3-9 
所 示 。 
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图 3-9 “高 级 功能 ”界面 


(6) 单 击 “ 下 一 步 ” 按 钮 ， 出 现 “ 生 成 的 类 ”界面 ， 在 此 设置 向 导 生成 的 类 ， 此 处 使 
用 默认 设置 即 可 ， 如 图 3-10 所 示 。 
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3-10 “生成 的 类 ”界面 


(7) 单 击 “ 完 成 ”按钮 ， 返 回 Visual C++ 2010 主 界面 ， 这 样 就 完成 了 整个 项 目的 界面 
设计 工作 ， 此 时 可 以 查看 项 目的 对 话 框 设 计 界 面 ， 如 图 3-11 所 示 。 


图 3-11 对话 框 设计 界面 

在 对 话 框 中 首先 输入 服务 器 地 址 (端口 号 码 默认 为 21)、 用 户 名 和 密码 ， 然 后 单 击 “ 连 
接 服务 器 ”按钮 连接 指定 的 FTP 服务 器 。 客 户 端 与 服务 器 的 连接 状态 和 用 户 操作 等 信息 均 
会 显示 在 中 间 的 编辑 框 中 。 

2. 定义 CFtp 类 


CFtp 类 是 用 户 自 定义 实现 FIP 功能 和 原理 的 非常 重要 的 类 。 在 这 里 ， 用 户 将 学 习 到 
怎样 在 Visual C++ 2010 环境 中 定义 和 封装 CFtp 类 的 方法 。 


(1) 定义 头 文件 Ftp.h， 具 体 代 码 如 下 : 
class CFtp 


// 定 义 CFtp 类 
t 
public: 


CString ipaddr, name, password; //IP 地址、 用 户 名 、 密 码 
int port; // 端 口号 码 


il 
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BOOL FTPConnect (CString severhost, int port); // 连 接 FTP 服务 器 


CSocket *m clientsocket; // 套 接 字 对 象 

CArchive *archive; // 串 行 化 对 象 

CSocketFile *socketfile; // 套 接 字 文 件 对 象 
Private: 

CString Recv(); // 接 收 命令 消息 

void Send(CString st); // 发 送 命令 消息 

void UpdataFile (CString str); // 上 传 文件 

void DownLoadFile (CString strl); // 下 载 文件 

void GetFileStatu(char ch); // 获 取 文 件 属性 


从 上 述 CFtp 类 声明 代码 中 可 以 看 到 FTP 编程 相关 的 数据 和 实现 方法 。 
(2) 根据 FTP 基本 功能 介绍 每 个 函数 。 首 先 ， 客 户 端 应 该 连接 服务 器 ， 登 录 方式 为 匿 
名 。 函 数 FTPConnect() 的 实现 代码 如 下 : 


BOOL CFtp::FTPConnect(CString severhost, int port) 


t 


} 


CSocket xm clientsocket = new CSocket (); // 构 造 连接 套 接 字 对 象 
m clientsocket->Create (21, 

SOCK STREAM, FD READ|FD WRITE, NULL); // 创 建 流 式 套 接 字 
if(!m clientsocket) // 判 断 套 接 字 对 象 创建 是 否 成 功 
{ MessageBox (" 套 接 字 创建 失败 ! "); return false; } // 创 建 m_ clientsocket 失败 
if(!(m clientsocket-»Connect ((atoi)severhost, port))) 

return false; // 连 接 FTP 服务 器 

else 


{ return true;} // 连 接 成 功 将 返回 true 


客户 端 连接 FTP 服务器， 成 功 则 返回 True， 和 否则 返回 False. 
(3) 如 果 连 接 成 功 ， 则 需要 向 服务 器 发 送 命令 以 初始 化 服务 器 和 获取 服务 器 文件 列 
表 。 函 数 Send0 的 实现 代码 如 下 : 


void CFtp::Send(CString charstring) // Send () 函数 发 送信 息 到 服务 器 


{ 


CSocketFile *socketfile; // 定 义 对 象 指针 
socketfile = 

new CSocketFile(m clientsocket); // 关 联 对 象 m_clientsocket 是 创建 的 套 接 字 
archive = new CArchive(&m sockfile, 

CArchive::load|CArchive::store); // 创 建 对 象 archive 的 实例 并 指定 属性 
charstring = "USER" + lymlrl + "PASS" + 123456"; // 构 造 字符 串 charstring 
archive.WriteString(" " + "\r\n"); // 向 服务 器 发 送 空 字符 串 进 行 初始 化 
try { 

archive-»WriteString (charstring 
+ "\r\n"); // 调 用 CArchive 类 的 Writestring 发 送 命令 
archive-»Flush(); // 强 制 写 入 命令 到 服务 器 
Catch(CException e) // 处 理 被 抛 出 的 异常 
{ 
MessageBox ("发 送 关 闭 命令 失败 ! n); 
} 
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(4) 当 命令 发 送 后 ， 服 务 器 会 返回 客户 端 请 求 的 数据 。 函 数 Recv0 的 实现 代码 如 下 : 


//Recv () 函数 接收 服务 器 返回 的 数据 
CString CFtp::Recv() 


t 


) 


CString recvstr = " "; // 初 始 化 字符 串 recvstr 为 空 
if (archive-»ReadString (recvstr)) // 接 收 返回 信息 并 放 到 recvstr 变量 
{ 


if(recvstr == " ") MessageBox ("接收 数据 为 空 ") ; ”// 如 果 接 收 的 数据 为 空 则 提示 


{ 
MessageBox ("接收 数据 成 功 ") ; 
return recvstr; // 返 回 接收 到 的 数据 
} 
} 
erse 
t 
MessageBox ("接收 数据 失败 ") ; ”/ /提示 接 收 数据 失败 
} 


函数 Recv0O 利 用 archive->ReadString(recvstr) 读 取 服 务 器 返回 的 数据 或 者 其 他 信息 。 其 
中 包括 文件 的 属性 等 信息 。 
(5) 用 户 可 以 从 服务 器 返回 的 数据 中 读 取 文件 的 属性 。 函 数 GetFileStatu0) 的 实现 代码 


如 下 : 
void CFtp::GetFileStatu(char car) // 参 数 car 表示 接收 到 的 数据 
t 
char buf[100] = (0); // 用 于 保存 临时 数据 
ES // 初 始 化 字符 变量 
[ee // 定 义 字符 串 
int i-0, j-0; // 定 义 循 环 变量 


for(int i-0; i«1024; i++) // 循 环 解 析 消 息 数据 以 获得 一 条 完整 的 信息 
{ 
if(car[i] != "\") buf[i] = car[i]; // 取 得 的 信息 不 是 "\"， 则 保存 到 临时 变量 
else 
t 
if(car[i-1] == "r") MessageBox (" 成 功 解析 一 条 消息 ! "); 
// 如 果 取 得 的 是 结束 符号 ， 则 提示 成 功 提取 
) 
) 
while(ch!-"" && i«1024) 
{ 
if(buf[i]!-"" && buf[i+1]==EOF) str += (CString)buf[il; 
// 如 果 不 是 空格 ， 则 保存 在 字符 串 变 量 中 
else 
{ 
ch = buf[itl]; // 如 果 是 空格 ， 则 移动 到 下 一 个 字符 
i += 1; 
j += 1; 
str = ""; // 将 字符 串 变 量 重 置 


} 


HR 


switch(j) // 根 据 变量 j 选择 信息 字符 段 
ü 
case 1: 
MessageBox (" 文 件 最 后 一 次 保存 的 日 期 是 : Sc", str); 
// 打 印 文件 各 属性 
case 2: 
MessageBox (" 文 件 最 后 一 次 保存 的 时 间 是 : Sc", str); 
case 3: 
MessageBox ("文件 的 大 小 是 : $c", atoi (str) ) ; 
case 4: 
MessageBox (" 文 件 的 名 称 是 : Sc", str); 
} 


数 GetFileStatu0 根 据 参 数 car 所 指向 的 接收 内 容 数 组 ， 通 过 循环 方式 获取 一 条 完整 


的 信息 ， 然 后 再 从 这 条 信息 中 取得 各 属性 。 
(6) CFtp 类 中 很 重要 的 作用 是 上 传 和 下 载 文件 ， 这 两 个 功能 的 实现 方法 如 下 : 
void CFtp::UpdataFile(CString str) // 参 数 str 表示 上 传 文件 的 路 径 


{ 


) 


archive-»WriteString("STOR " + "\r\n"); 
// 调 用 cArchive 类 的 Writestring () 函数 发 送 STOR 命令 
char buff[1024] = {0}; // 设 置 缓冲 区 
SOCKET sock; = // 与 服务 器 建立 连接 成 功 后 返回 的 套 接 字句 柄 
CFile file(str, CFile::modeReadWrite); // 关 联 文件 对 象 并 指定 文件 属性 为 可 读 可 写 
file.Read(buff, 1024); // 读 取 文件 内 容 到 缓冲 区 中 
file.close(); // 读 取 完毕 ， 关 闭 文件 
::Send(sock, buff, 1024, NULL); // 调 用 Send () 函数 发 送 文件 内 容 到 FTP 文件 


函数 UpdataFile0 能 够 根据 参数 str 所 指定 的 本 地 文件 路 径 上 传 文件 。 首 先 读 取 本 地 文 
件 内 容 到 缓冲 区 中 ， 利 用 函数 Send0 将 缓冲 区 的 内 容 发 送 到 服务 器 。 

C) 下 载 文件 函数 DownLoadFile() 的 实现 方法 与 函数 UpdataFile() 一 样 ， 其 具体 实现 代 
码 如 下 : 


void CFtp::DownLoadFile(CString filename) 


t 


// 参 数 filename 表示 从 列表 中 获取 的 文件 名 
int lenth; // 已 经 获取 的 文件 大 小 


int i = 0; 
archive-»WriteString("RETR " + "\r\n"); 
// 调 用 cArchive 类 的 Writestring () 函数 发 送 RETR 命令 
archive->Writestring (filename + "\r\n"); // 向 服务 器 发 送 将 要 下 载 的 文件 名 称 
char buff[1024] = (0); // 设 置 缓冲 区 
SOCKET sock; // 与 服务 器 建立 连接 成 功 后 返回 的 套 接 字 句柄 
CFile file(filename, CFile::modeReadWrite) ;// 建 立 文件 并 指定 文件 属性 为 可 读 可 写 
while(lenth != 0) 
if 
::Recv(sock, buff, 1024, NULL); // 在 套 接 字 上 接收 数据 到 缓冲 区 中 
file.Write(buff, 1024); // 将 缓冲 区 内 容 写 到 文件 中 
lenthlenth = lenth - 1024; // 从 文件 总 大 小 中 减 去 已 经 接收 并 写 入 文件 中 的 大 小 
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) 

这 样 就 实现 了 以 CFtp 类 封装 发 送 命令 、 接 收 数据 、 获 取 文件 属性 和 上 传 下 载 文件 等 
FTP 主要 操作 。 当 在 程序 中 使 用 该 类 时 ， 应 将 其 头 文件 Ftp.h 和 Ftp.cpp 加 入 到 工程 中 ， 然 
后 创建 CFtp 类 对 象 ， 对 各 函数 进行 调用 即 可 。 


3. 使 用 CFtp 类 


当 定 义 CFtp 类 后 ， 在 程序 中 就 可 以 使 用 此 类 实现 具体 功能 
户 登录 服务 器 的 方式 可 以 是 程序 默认 的 匿名 登录 ， 也 可 以 使 用 指定 账号 登录 。 其 响 
应 代码 如 下 : 
void CFTPDlg::OnRadio2() 
t 
this-»GetDlgItem(IDC EDIT3)-»EnableWindow(true); // 操 作 IDC_EDIT3 编辑 框 
this-»GetDlgItem(IDC EDIT4)-»EnableWindow(true); // 操 作 IDC EDIT4 编辑 框 
} 
当 输 入 服务 器 IP 地 址 等 信息 后 ， 单 击 “ 连 接 服 务 器 ”按钮 ， 程 序 根据 用 户 提 供 的 信息 
对 服务 器 进行 连接 。 该 按钮 对 应 的 消息 响应 函数 代码 如 下 : 
void CFTPD1g: :OnConnect () 
{ 


CString str, strl; // 定 义 字符 串 变 量 

int port = 0; // 定 义 端口 变量 

this-»GetDlgItem(IDC EDIT1)-»GetWindowText (str); // 获 取 IP 字符 串 
this-»GetDlgItem(IDC EDIT2)-»GetWindowText (strl); // 获 取 端 口号 码 
port = (int)atoi (strl); // 将 端口 字符 串 转换 成 数字 
if(ftp.FTPConnect (str, port)) // 调 用 CEtp 对 象 的 函数 进行 连接 


f 
this->GetDlgItem(IDC EDIT5) -> 
SetWindowText (" 连 接 成 功 !") ; // 通 知 用 户 连 接 状态 
this-»GetDlgItem(IDC Connect) ->EnableWindow (false); 
// 连 接 成 功 后 ， 设 置 连接 按钮 为 失效 状态 
ftp.Send("LIST/r/n"); // 发 送 命令 获取 文件 列表 信息 
str = ftp.Recv(); // 接 收 数据 
ftp.GetFileStatu(str.GetAt (0)); // 获 取 文 件 名 称 


} 


当 客 户 端 启 动 时 可 以 获取 到 本 地 默认 文件 夹 下 的 文件 。 在 Visual C+ 中， 查找 文件 的 
API 函数 是 FindFirstFile0 和 FindNextFile0。 函 数 原型 分 别 如 下 ; 
/7 开始 查找 文件 并 获得 其 句柄 


HANDLE FindFirstFile( 
LPCTSTR lpFileName, 
FINDEX INFO LEVELS fInfoLevelld, 
LPVOID lpFindFileData, 
FINDEX SEARCH OPS fSearchOp, 
LPVOID lpSearchFilter, 
DWORD dwAdditionalFlags 
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); 


/从 当前 位 置 查找 下 一 个 文件 


BOOL FindNextFile( 


Di 


HANDLE hFindFile, 
LPWIN32 FIND DATA lpFindFileData 


函数 FindFirstFile0 可 以 在 指定 盘 符 下 查找 文件 ， 并 将 获取 到 的 文件 数据 保存 到 缓冲 区 
中 ， 该 函数 返回 文件 查找 操作 的 句柄 。 参 数 IpFileName 表示 用 户 需 要 查找 的 文件 名 。 如 果 
该 名 称 中 没有 包含 路 径 ， 则 程序 会 在 当前 目录 下 来 查找 文件 ， 否 则 在 指定 路 径 下 查找 文 
件 。 在 文件 名 中 可 以 使 用 “* ”等 通配符 代替 ， 代 码 如 下 : 


lpFileName = "C:\\windows\\*.*"; // 在 c:\\windows\\ 下 查找 所 有 文件 
lpFileName = "C:\\windows\\*.txt"; ，// 在 目录 Cc:\\windows\\ 下 查找 所 有 TXT 文件 
lpFileName = "C:\\windows\\vtk.bin"; // 在 目录 C:\\windows\\ 下 查找 文件 vtk.bin 
lpFileName = "C:\\windows\\*.exe";  ”// 在 目录 C:\\windows\\ 下 查找 所 有 EXE 文件 


函数 FindNextFile0 可 以 继续 查找 其 他 格式 的 文件 的 操作 。 参 数 hFindFile 表示 函数 
FindFirstFile0 返 回 的 操作 句柄 。 参 数 lpFindFileData 指向 结构 体 WIN32 FIND DATA， 保 
存 了 程序 所 找到 的 文件 名 和 文件 属性 等 数据 。 该 函数 调用 成 功 返 回 Trme， 否 则 返回 
False. WIN32 FIND DATA 的 结构 如 下 : 

typedef struct WIN32 FIND DATA { 


DWORD dwFileAttributes; // 文 件 属性 

FILETIME ftCreationTime; // 文 件 创建 日 期 
FILETIME ftLastAccessTime; // 文 件 最 后 保存 日 期 
FILETIME ftLastWriteTime; // 文 件 最 后 修改 日 期 
DWORD nFilesizeHigh; // 文 件 长 度 的 高 32 位 
DWORD nFileSizeLow; // 文 件 长 度 的 低 32 位 
DWORD dwReserved0; // 保 留 

DWORD dwReserved1; // 保 留 

TCHAR cFileName [MAX-PRTH] ; // 本 次 查找 到 的 文件 名 
TCHAR cAlternateFileName[14]; // 文 件 的 短文 件 名 


) WIN32 FIND DATA; 


参数 cAlternateFileName[14] 为 文件 的 短文 件 名 。 例 如 文件 路 径 为 C:\windows\\vtk.bin 
的 文件 短 名 称 为 vtk.bin。 
当 在 客户 端 启 动 时 ， 可 以 使 用 上 面 两 个 函数 进行 文件 的 查找 。 其 代码 如 下 : 


BOOL CFTPD1g::OnInitDialog() 


{ 


s // 省 略 部 分 代码 
int i = 0; 
LVITEM item = (0); ”// 初 始 化 列表 结构 

item.mask = LVIF TEXT; // 指 定 pszText 域 有 效 


WIN32 FIND DATA filedata = (0); // 初 始 化 结构 体 WIN32 FIND DATA 
HANDLE filehand; // 文 件 句柄 
filehand = ::FindFirstFile("C:\\*", &filedata); // 查 找 c 盘 下 所 有 文件 


while(::FindNextFile(filehand, &filedata)) 
t 
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item.pszText = (LPTSTR)filedata.cFileName; // 将 文件 名 称 赋 给 列表 项 
this-»GetDlgItem(IDC LIST1) -> 
InsertColumn(i, &item); // 在 列表 中 插入 栏目 名 称 
i += 1; 
} 
return TRUE; 
} 


除了 上 述 获取 文件 的 方式 以 外 ， 还 可 以 通过 用 户 选 择 的 特定 盘 符 进行 获取 。 其 中 ， 响 
应 用 户 选择 的 函数 是 CFTPDlg::OnSelchangeCombo10， 具 体 代 码 如 下 : 


void CFTPD1g: :OnSelchangeCombol () // 组 合 框 选择 消息 响应 
{ 
Cstring str; // 定 义 字符 串 变 量 
int i = m cl.GetCurSel(); // 获 取 用 户 单 击 位 置 的 索引 
m cl.GetLBText(i, str); // 获 取 索 引 处 的 字符 
str += " * "; // 添 加 通配符 "*" 
WIN32 FIND DATA filedata = (0); // 初 始 化 结构 体 WIN32_FIND_DATA 
HANDLE filehand; // 文 件 句柄 
filehand = ::FindFirstFile(str, &filedata); / /查找 特定 盘 下 所 有 文件 


while(::FindNextFile(filehand, &filedata)) 
t 
item.pszText = (LPTSTR)filedata.cFileName; // 将 文件 名 称 赋 给 列表 项 
this->GetD1gItem(IDC LIST1) -> 
insertColumn(i, &item); // 在 列表 中 插入 栏目 名 称 


i += 1; 

} 

m cl 是 CComboBox 类 的 对 象 。 通 过 上 述 代码 可 以 获取 用 户 所 选择 目录 下 的 所 有 文件 
并 且 显 示 在 列表 中 。 用 户 获取 服务 器 文件 名 称 和 获取 本 地 文件 名 称 的 实现 方法 一 样 ， 使 用 
CFtp 类 函数 GetFileStatu0 获 取 服 务 器 文件 名 称 ， 然 后 设置 列表 控件 的 栏目 即 可 ， 所 以 这 里 
APER. 
在 本 地 文件 列表 中 ， 用 户 需要 响应 右键 消息 。 在 右键 消息 响应 函数 中 获取 文件 名 称 ， 
] CFtp 类 的 函数 UpDataFile0 上 传 文件 。 有 具体 代码 如 下 : 


void CFTPDlg::OnRclickListl(NMHDR *pNMHDR, LRESULT *pResult) 
t 


调 


CString strl; 
int i = this-»GetDlgItem(IDC LIST1)-»GetCurSel(); // 获 得 单 击 鼠 标 位 置 的 索引 
CString str - 

this-»GetDlgItem(IDC LIST1)->GetText (i); // 获 取 索 引 位 置 的 文件 名 称 


WIN32 FIND DATA filedata = (0); // 初 始 化 结构 体 WIN32 FIND DATA 
HANDLE filehand; 

filehand = ::FindFirstFile("C:\\*", &filedata); ”// 查 找 c 盘 下 所 有 文件 
while( 


::FindNextFile(filehand, &filedata)) // 在 文件 中 查找 与 指定 文件 名 称 相同 的 文件 
t 
if(str == (LPTSTR)filedata.cFileName) 
t 
SU T= MGENNIUCENSET // 构 造 文件 完整 路 径 
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ftp. UpdataFile("str"); // 上 传 指定 文件 


在 上 传 函 数 中 ， 使 用 列表 控件 中 的 函数 GetCurSel0 获 取 指 定 索引 ， 再 调用 函数 
GetText() 获 取 文 件 名 称 。 然 后 使 用 函数 FindFirstFile()#ll FindNextFile() 查 找 对 应 的 文件 ， 构 
造 完整 路 径 后 调用 CFtp 类 函数 UpDataFile() 上 传 该 文件 。 

在 服务 器 文件 列表 中 ， 响 应 右键 消息 。 其 消息 响应 函数 如 下 : 


void CFTPDlg::OnRclickList2 (NMHDR *pNMHDR, LRESULT *pResult) 
t 


int i = this-»GetDlgItem(IDC LIST1)-»GetCurSel(); // 获 得 单 击 鼠 标 位 置 的 索引 
CString str = 


this->GetDlgItem(IDC_LIST1)-—>GetText (i); // 获 取 索 引 位 置 的 文件 名 称 


WIN32 FIND DATA filedata = (0); // 初 始 化 结构 体 WIN32 FIND DATA 
HANDLE filehand; 

filehand = ::FindFirstFile("ftp://127.0.0.1/ftp", &filedata); 

// 查 找 服务 器 下 ftp 文件 夹 中 的 内 容 

while( 


::FindNextFile(filehand, &filedata)) // 在 文件 中 查找 与 指定 文件 名 称 相同 的 文件 
{ 


if (str == (LPTSTR) filedata.cFileName) 
{ 


strl += " ftp://127.0.0.1\ftp\" + str; // 构 造 文件 完整 路 径 
ftp.DownLoadFile(str); // 调 用 CFtp 类 的 DownLoadFile() 函数 进行 下 载 


ji 


通过 上 述 内 容 ， 讲 解 了 自 定 义 类 CFtp 的 使 用 方法 。 读 者 可 以 尝试 扩展 其 内 容 ， 首 先 
在 文件 Ftp.h 中 自 定义 函数 或 数据 。 然 后 在 文件 Ftp.cpp 中 写 出 自 定义 函数 的 代码 即 可 。 至 
此 整个 项 目的 主要 模块 分 析 完 毕 ， 其 他 模块 的 实现 代码 读者 可 以 参阅 本 书 附带 光盘 中 的 源 
代码 。 此 项 目的 执行 效果 如 图 3-12 所 示 。 
LO ane | 
ars mm e me eaa 


Y at 了 


3-12 ”执行 效果 
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3.4 “小 试 牛刀 一 一 开发 一 个 BBS 客户 端 


基于 Telnet 协议 开发 一 个 BBS 客户 端 
源码 路 径 光盘 \yuanma\3\BBS 


3.4.1 


规划 类 


本 实例 使 用 BBS 服务 器 进行 通信 ， 客 户 端 向 服务 器 端 发 送 数据 并 接收 数据 ， 本 实例 的 
最 终 目 的 是 使 用 Visual C++ 开发 一 个 基于 Telnet 的 BBS 客户 端 。 本 实例 共有 7 个 类 ， 各 个 
类 的 具体 说 明 如 下 。 

(1) CAboutDlg: 显示 About 对 话 框 。 

(2) CClientSocket: 控制 客户 端的 Socket 类 以 控制 数据 连接 ， 负 责 与 客户 端的 连接 。 
里 面包 含 的 各 个 方法 的 具体 说 明 如 下 。 


口 
口 
口 
口 


a 


OnCloseQ: 用 于 关闭 连接 。 

OnConnect(): 用 于 建立 连接 。 
OnOutOfBandData(): 用 于 处 理 带 外 数据 。 
OnReceive(): 用 于 接收 数据 。 

OnSendQ: 用 于 发 送 数据 。 


(3) CHostDialog: 实现 显示 登录 对 话 框 。 

(4) CMainFrame. CTelnetApp. CTelnetDoc 和 CTelnetView: 这 4 个 类 用 于 建立 单 文 
档 结构 ， 其 中 在 CTelnetView 类 中 定义 了 主要 的 方法 和 属性 ， 此 类 是 整个 实例 的 核心 ， 其 
类 视图 结构 如 图 3-13 所 示 。 


fa 
e 


图 3-13 CTelnetView 类 结构 


Visual C++ Gigi 


342 ”具体 实现 
1. 窗 体 IDD_HOST 


(1) 首先 设计 窗 体 IDD HOST， 设 置 其 Caption 属性 的 值 为 “Telnet 服务 器 ”， 如 图 3-14 
所 示 。 


3-14” 窗 体 IDD_HOST 


(2) 为 此 窗 体 添加 实现 代码 ， 首 先 在 文件 ClientSocket.h 中 定义 需要 的 类 和 函数 。 具 体 
实现 代码 如 下 : 


class CTelnetView; // 定 义 类 CTelnetView 
class CClientSocket : public CAsyncSocket 


t 
// 属性 
public: 


public: 
CClientSocket (CTelnetView *cView); //#cClientsocket 的 构造 函数 
virtual ~CClientSocket () ; 
// 虚 函 数 
public: 
CTelnetView *cView; 
//{{AFX VIRTUAL (CClientSocket) 


public: 
virtual void OnClose(int nErrorCode) ; // 声 明 关 闭 连 接 方法 
virtual void OnConnect (int nErrorCode); // 声 明 连 接 方法 
virtual void OnoutofBandData (int nErrorCode) ; // 声 明 带 外 数据 处 理 方法 
virtual void OnReceive (int nErrorCode); // 声 明 接 收 数据 的 方法 
virtual void OnSend(int nErrorCode); // 声 明 发 送 数据 的 方法 
//}}AFX VIRTUAL 

Protected: 


d 


(3) 在 文件 ClientSocket.cpp 中 ， 实 现 了 文件 ClientSocketh 中 定义 的 各 个 方法 。 有 具体 
代码 如 下 : 
// 定 义 关闭 连接 方法 
void CClientSocket::OnClose(int nErrorCode) 
{ 
CAsyncSocket: :OnClose (nErrorCode) ; 
if(!IsWindow(cView-»m hWnd)) return; 
if(!IsWindowVisible (cView-»m hWnd)) return; 
cView-»GetDocument () -»OnCloseDocument () ; 
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// 定 义 连 接 方法 
void CClientSocket::OnConnect (int nErrorCode) 
t 

CAsyncSocket : : OnConnect (nErrorCode) ; 


} 
// 定 义 带 外 数据 处 理 方法 
void CClientSocket::OnOutOfBandData (int nErrorCode) 
t 
ASSERT(FALSE); //Telnet should not have OOB data 
CAsyncSocket: :OnOutOfBandData (nErrorCode); 
} 


// 定 义 接收 数据 方法 
void CClientSocket::OnReceive (int nErrorCode) 
t 
cView-»ProcessMessage (this); 
) 


// 定 义 发 送 数据 方法 
void CClientSocket::OnSend(int nErrorCode) 
t 
CAsyncSocket : : OnSend (nErrorCode) ; 
j: 


(4) 在 文件 CTelnetView.h 中 实现 CTelnetView 类 的 编写 ， 有 具体 代码 如 下 : 


class CTelnetDoc; 

class CClientSocket; 

// 下 一 个 bit 组 为 命令 

const unsigned char IAC = 255; 

// 作 为 一 种 请 求 发 送 给 另 一 方 来 启动 某 个 选项 
const unsigned char DO = 253; 

// 响 应 保证 是 连接 最 终 保持 与 这 种 没有 任何 选项 的 状态 
const unsigned char DON'T = 254; 
// 表 示 发 送 或 接收 一 方 希望 执行 某 个 选项 
const unsigned char WILL = 2517 

// 响 应 保证 是 连接 最 终 保持 与 这 种 没有 任何 选项 的 状态 
const unsigned char WONT = 252; 

// 开 始 选项 协商 

const unsigned char SB = 250; 

// 选 项 协商 结束 

const unsigned char SE = 240; 

// 判 断 标识 

const unsigned char IS = '0'; 
const unsigned char SEND - '1'; 
const unsigned char INFO - '2'; 
const unsigned char VAR - '0'; 
const unsigned char VALUE = '1'; 
const unsigned char ESC - '2'; 
const unsigned char USERVAR - '3'; 


#define bufferLines 30 
#define dtX 8 
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#define dtY 13 
// 设 置 输入 输出 缓冲 区 的 大 小 为 1024KB 
#define ioBuffSize 1024 


class CTelnetView : public CScrollView 

{ 

protected: // create from serialization only 
CTelnetView(); 
DECLARE DYNCREATE (CTelnetView) 


COLORREF cTextColor; 
COLORREF cBackgroundColor; 


CString cHostName; 
// 定 义 并 声明 和 远程 访问 相关 的 变量 和 方法 
public: 
CClientSocket *cSock; 
void ArrangeReply (CString strOption); 
// 正 常 传输 的 字符 串 
CString m strNormalText; 
// 选 择 响应 方法 
void RespondTooptions (); 
// 处 理 信息 流程 的 方法 
void ProcessOptions () ; 
// 设 置 临时 计数 器 
int TempCounter; 
// 字 符 串 选择 
CString m strOptions; 
// 字 符 串 行 表 选择 
CStringList m ListOptions; 
// 协 商标 识 变量 
BOOL bNegotiating; 
BOOL bOptionsSent; 
CString m strResp; 
CString m strLine; 
unsigned char m bBuf[ioBuffSize]; 
BOOL GetLine(unsigned char *bytes, int nBytes, int &ndx); 
void DispatchMessage (CString strText); 
void ProcessMessage (CClientSocket *cSocket); 


char cText[100] [bufferLines]; 

long cCursX; 

CString m strline; 

// 绘 制 清除 窗口 

void DrawCursor (CDC *pDC, BOOL pDraw); 
void DoDraw (CDC *pDC); 

void ClearWindows (CDC *pDc); 

// 当 前 的 坐标 

int CurrentXX; 

int CurrentYY; 


// 测 试 程序 
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BOOL IfOutput; 
private: 
void MessageReceived(LPCSTR pText); 


// 属性 
public: 

CTelnetDoc* GetDocument (); 
public: 


// 重 写 父 类 的 虚 函数 
//((AFX VIRTUAL (CTelnetView) 

public: 
virtual void OnDraw(CDC *pDC); // overridden to draw this view 
virtual BOOL PreCreateWindow(CREATESTRUCT &cs); 

protected: 
virtual void OnInitialUpdate(); // called first time after construct 
virtual BOOL OnPreparePrinting(CPrintInfo *pInfo); 
virtual void OnBeginPrinting(CDC *pDC, CPrintInfo *pInfo); 
virtual void OnEndPrinting(CDC *pDC, CPrintInfo *pInfo); 
//))AFX VIRTUAL 


// Implementation 
public: 
int Find(CString str, char ch); 
virtual ~CTelnetView(); 
#ifdef DEBUG 
virtual void AssertValid() const; 
virtual void Dump(CDumpContext &dc) const; 
#endif 
protected: 
// Generated message map functions 
protected: 
//{{AFX MSG (CTelnetView) 
afx msg void OnChar(UINT nChar, UINT nRepCnt, UINT nFlags); 
afx msg void OnSize(UINT nType, int cx, int cy); 
afx msg BOOL OnEraseBkgnd (CDC *pDC) ; 
afx msg void OnKeyDown(UINT nChar, UINT nRepCnt, UINT nFlags); 
afx msg void OnFileNew(); 
//))AFX MSG 
DECLARE MESSAGE MAP() 
H 


(5) 在 文件 CTelnetView.cpp 中 ， 实 现 了 文件 CTelnetView.h 中 定义 的 各 个 方法 。 因 为 
文件 CTelnetView.cpp 的 代码 比较 多 ， 所 以 接 下 来 将 按照 步骤 进行 详细 剖析 。 

© 使 用 include 指令 引入 包含 文件 ， 并 定义 BEGIN MESSAGE MAP 消息 映射 ， 具 
体 实现 代码 如 下 : 


#include "stdafx.h" 
#include "CTelnet.h" 


#include "CTelnetDoc.h" 
#include "CTelnetView.h" 


三 网 络 编程 开发 与 实战 


#include "MainFrm.h" 
#include "ClientSocket.h" 
#include "Process.h" 


#include "HostDialog.h" 


#ifdef DEBUG 

#define new DEBUG NEW 

#undef THIS FILE 

static char THIS FILE[] = FILE ; 
#endif 


extern CMultiDocTemplate *pDocTemplate; 


IMPLEMENT DYNCREATE (CTelnetView, CScrollView) 
BEGIN MESSAGE MAP(CTelnetView, CScrollView) 
//{ {AFX MSG MAP (CTelnetView) 
ON WM CHAR () 
ON WM SIZE() 
ON WM ERASEBKGND () 
ON WM KEYDOWN() 


//))AFX MSG MAP 

// Standard printing commands 

ON COMMAND(ID FILE PRINT, CScrollView::OnFilePrint) 

ON COMMAND(ID FILE PRINT DIRECT, CScrollView::OnFilePrint) 

ON COMMAND(ID FILE PRINT PREVIEW, CScrollView::OnFilePrintPreview) 
ON COMMAND(ID FILE NEW, OnFileNew) 


END MESSAGE MAP () 


Q 定义 CTelnetView 类 的 构造 函数 CTelnetView0， 用 于 实现 初始 化 工作 。 有 具体 实现 
代码 如 下 : 


CTelnetView::CTelnetView() 

t 
cTextColor - RGB(0, 200, 000); // 设 置 字体 颜色 ， 此 处 是 绿色 
cBackgroundColor = RGB(000, 000, 000); // 设 置 背景 颜色 ， 此 处 是 黑色 
cSock = NULL; 
bOptionsSent = FALSE; 
TempCounter = 0; 
cCursX = 0; 
CurrentXX = 0 
CurrentYY 


// 初 始 窗口 的 位 置 


Il 
o 


IfOutput = false; 
// OffsetNum = 0; 
for(int x-0; x«80; x++) 
{ 
for(int y=0; y«bufferLines; y++) 
{ 
evext sol iy] = 1 r7 
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} 


图 定义 CTelnetView 类 的 构造 函数 CTelnetView0， 如 果 cSock 为 空 则 释放 。 有 具体 代 
人 码 如 下 : 


CTelnetView::-CTelnetView() 
{ 
if(cSock != NULL) 
delete cSock; 
cSock = NULL; 
} 


© 定义 函数 PreCreateWindow()， 设 定 窗口 的 风格 ，CREATESTRUCT 是 窗口 的 风格 
数据 结构 。 具 体 代码 如 下 : 


BOOL CTelnetView::PreCreateWindow (CREATESTRUCT &cs) 
{ 

return CScrollView::PreCreateWindow (cs); 
j 


© 定义 函数 OnDraw(CDC *pDC) 以 及 DoDraw(CDC *pDC)， 实 现 窗口 绘制 ， 具 体 代 
fp F: 


void CTelnetView::OnDraw(CDC *pDC) 

t 
CTelnetDoc *pDoc - GetDocument (); 
ASSERT VALID (PDoc) ; 


pDC->SelectObject (GetStockObject(ANSI FIXED FONT)); 


DrawCursor(pDC, FALSE); 

DoDraw (pDC) ; 

DrawCursor(pDC, TRUE); 
} 


void CTelnetView::DoDraw(CDC *pDC) 
{ 
CString strLine; 
BOOL bSkip = FALSE; 
CRect clip; 
pDC-»GetClipBox (clip); 
clip.top -- dtY; 


pDC->SetTextColor (cTextColor) ; 
// pDC->SetBkColor (cBackgroundColor) ; 


// CurrentXX = 0; 
char text[2] = {0x00, 0x00}; 


for(int y=0; y<bufferLines; y++) 
{ 
//if(y*dtY >= clip.top) 


ut 
for(int x-0; x«80; x++) 


t 


text[0] = cText[x] [y]; 
if (text[0] == 27) 
bSkip = TRUE; 
if (!bSkip) 
strLine += text[0]; 
if (text [0]=='m' && bSkip) 
bSkip = FALSE; 
} 
pDC-»TextOut(0, y*dtY, strLine); 
strLine.Empty(); 
A 


} 
© 定义 函数 OnInitialUpdate0， 用 于 计算 当前 视图 的 初始 化 位 置 ， 具 体 代码 如 下 : 


void CTelnetView: :OnInitialUpdate () 


{ 
CSize sizeTotal; 


// TODO: calculate the total size of this view 

sizeTotal.cx = dtX * 80 + 3; 

sizeTotal.cy = dtY * bufferLines + 3; 

SetScrollSizes(MM TEXT, sizeTotal); 

//SetWindowPos (NULL, 0,0, sizeTotal.cx, sizeTotal.cy, SWP NOMOVE); 


CScrollView: :OnInitialUpdate () ; 
} 


C) 定义 函数 OnPreparePrinting 0 等 ， 用 于 实现 打印 功能 ， 具 体 代码 如 下 : 


BOOL CTelnetView::OnPreparePrinting (CPrintInfo *pInfo) 


{ 
// 默认 打印 准备 


return DoPreparePrinting (pInfo); 
) 


void CTelnetView::OnBeginPrinting(CDC* /*pDC*/, CPrintInfo* /*pInfo*/) 


{ 
// TODO: add extra initialization before printing 


} 


void CTelnetView::OnEndPrinting(CDC* /*pDC*/, CPrintInfo* /*pInfo*/) 


f 
// TODO: add cleanup after printing 


B 


// CTelnetView diagnostics 


#ifdef DEBUG 
void CTelnetView: :AssertValid() const 
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f 
CScrollView::AssertValid(); 


} 


void CTelnetView: :Dump(CDumpContext &dc) const 
{ 
CScrollView: : Dump (dc) ; 
} 
定义 函数 GetDocument0， 用 于 在 非 调试 环境 下 运行 此 函数 ， 具 体 代码 如 下 : 
CTelnetDoc* CTelnetView::GetDocument () 
t 
ASSERT (m pDocument-»IsKindOf (RUNTIME CLASS (CTelnetDoc))); 
return (CTelnetDoc*)m pDocument; 


) 
#endif // DEBUG 


(9 定义 函数 ProcessMessage()， 用 于 接受 并 分 析 数 据 ， 具 体 代码 如 下 : 
// 接 收 分 析 数 据 


void CTelnetView::ProcessMessage (CClientSocket *pSock) 
{ 
if (!IsWindow(m hWnd)) return; 
if (!IsWindowVisible()) return; 
// 保 存 数据 到 m bBuf 
int nBytes = pSock->Receive(m bBuf, ioBuffSize); 
if(nBytes != SOCKET ERROR) 
t 
int ndx = 0; 
// 每 次 读 入 一 行 数据 
while (GetLine (m bBuf, nBytes, ndx) != TRUE); 
// 进 行 协商 
ProcessOptions () 7 
MessageReceived (m strNormalText); 
} 
m strLine.Empty (); 
m strResp.Empty(); 
} 


定义 函数 ProcessOptions()， 用 于 设置 协商 的 方法 ， 具 体 代码 如 下 : 
// 进 行 协商 


void CTelnetView::ProcessOptions() 
{ 

CString m strTemp; 

CString m strOption; 

unsigned char ch; 

int ndx; 

int ldx; 

// 将 初始 扫描 完成 变量 设置 为 假 

BOOL bScanDone = FALSE; 

// 给 临时 变量 赋值 为 当前 行 


m strTemp = m strLine; 
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// 根 据 状态 来 判定 ， 当 数据 在 扫描 并 且 还 有 数据 时 进行 下 面 的 协商 
while(!m strTemp.IsEmpty() && bScanDone!-TRUE) 
t 


ndx = m strTemp.Find(IAC); 
if(ndx !- -1) 
{ 
m strNormalText += m strTemp.Left (ndx) ; 
ch = m strTemp.GetAt (ndx + 1); 
switch (ch) 
{ 
case DO: 
case DONT: 
case WILL: 
case WONT: 
m strOption = m strTemp.Mid(ndx, 3); 
m strTemp =m strTemp.Mid(ndx + 3); 
m strNormalText = m strTemp.Left (ndx); 
m ListOptions.AddTail(m strOption); 
break; 
case IAC: 
m strNormalText 
m strTemp 
break; 
case SB: 
m strNormalText = m strTemp.Left (ndx); 
ldx = Find(m strTemp, SE); 


m strTemp.Left (ndx); 
m strTemp.Mid(ndx + 1); 


m strOption = m strTemp.Mid(ndx, ldx); 
m ListOptions.AddTail(m strOption) ; 
m strTemp = m strTemp.Mid(ldx); 
//AfxMessageBox(m strOption, MB OK); 
break; 

default: 


bScanDone - TRUE; 


} 
us 
t 
m strNormalText = m strTemp; 
bScanDone = TRUE; 
J 
} 
RespondToOptions () ; 


i 
四 ”定义 函数 RespondToOptions0， 用 于 设置 选项 协议 状态 ， 有 具体 代码 如 下 : 


void CTelnetView: :RespondTooptions () 
t 
CString strOption; 
while(!m ListOptions.IsEmpty () ) 
{ 
strOption = m ListOptions.RemoveHead(); 
ArrangeReply (strOption); 


} 


42 定义 函数 ArrangeReply0， 用 于 设置 回应 选项 状态 ， 
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} 
DispatchMessage (m strResp) ; 
m strResp.Empty(); 


具体 代码 如 下 : 


void CTelnetView::ArrangeReply(CString strOption) 


{ 


unsigned char Verb; 
unsigned char Option; 
unsigned char Modifier; 
unsigned char ch; 

BOOL bDefined = FALSE; 


if (strOption.GetLength() < 3) return; 


Verb = strOption.GetAt (1); 
Option = strOption.GetAt (2); 


switch (Option) 

{ 

case 1: // 回 显 

case 3: // Suppress Go-Ahead 
bDefined = TRUE; 
break; 


m strResp += IAC; 


if(bDefined == TRUE) 
t 

switch (Verb) 

{ 

case DO: 
ch = WILL; 
m strResp += ch; 
m strResp += Option; 
break; 

case DONT: 
ch = WONT; 
m strResp += ch; 
m strResp += Option; 
break; 

case WILL: 
ch = DO; 
m strResp += ch; 
m strResp += Option; 
break; 

case WONT: 
ch = DONT; 
m strResp += ch; 
m_strResp += Option; 
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} 


49 ”定义 函数 DispatchMessage()， 用 于 发 送 数 据 ， 具 体 代码 如 下 : 


) 


break; 
case SB: 
Modifier = 
if (Modifier == 
{ 


ch = SB; 
m_strResp 
m strResp 
m strResp 
m strResp 
m strResp 

) 

break; 


else 


t 


switch (Verb) 

{ 

case DO: 
ch = WONT; 
m_strResp += 
m_strResp += 
break; 

case DONT: 
ch = WONT; 
m strResp += 
m strResp += 
break; 

case WILL: 
ch = DONT; 
m strResp += 
m strResp += 
break; 

case WONT: 
ch = DONT; 
m_strResp += 
m_strResp += 
break; 


// 发 送 数据 


void CTelnetView: :DispatchMessage (CString strText) 


t 


5 


定义 函数 GetLine0， 用 于 获得 一 行 数据 ， 有 具体 代码 如 下 : 


ASSERT (cSock) ; 


cSock-»Send(strText, strText.GetLength()); 


strOption.GetAt (3); 


SEND) 


ch; 
Option; 


ch; 
Option; 


ch; 
Option; 


ch; 
Option; 


// 获 得 一 行 数据 


BOOL CTelnetView::GetLine (unsigned char *bytes, int nBytes, int &ndx) 


t 


} 


® 


{ 


BOOL bLine = FALSE; 
while (bLine==FALSE && ndx<nBytes) 
t 

unsigned char ch - bytes[ndx]; 


// 原 来 设计 的 时 候 要 去 掉 回 车 换行 的 ， 但 是 后 来 发 现 不 能 去 掉 


Switch (ch) 

t 

case NE vli 
m strLine += "Wr"; // 回 车 
break; 

case '\n': // 行 结尾 
m strLine += "An"; 
break; 

default: ”// 其 他 数据 
m strLine += ch; 
break; 

} 

ndx ++; 

if (ndx == nBytes) 

{ 
bLine = TRUE; 

} 


} 
return bLine; 
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定义 函数 MessageReceived()， 用 于 实现 数据 处 理 ， 具 体 代 码 如 下 : 


// 数 据 处 理 
void CTelnetView: :MessageReceived(LPCSTR pText) 


BOOL bSkip = FALSE; 

int loop=0; 

CString tempStr = "0123456789;"; 
CString tempStr2; 

int ColorVal; 

int tempY = 0; 


CDC *pDC = GetDC(); 
OnPrepareDC (pDC) ; 
DrawCursor(pDC, FALSE); 


CRect clip; 
pDC-»GetClipBox (clip); 


CMainFrame *frm = (CMainFrame*)GetTopLevelFrame(); 


// 设 置 颜色 
pDC->SetTextColor (cTextColor); 
pDC->SetBkColor (cBackgroundColor) ; 
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pDC-»SelectObject (GetStockObject (ANSI FIXED FONT) ) 7 
int length = strlen(pText); 
char text[2] = (0x00, 0x00); 
while (loop < length) 
t 
switch (pText [loop]) 
{ 


case 8: // 删 除 
CurrentXX--; 
if(CurrentXX « 0) CurrentXX - 0; 
loop++; 
break; 


case 9: //Tab 键 
Currentxx++; // 
loop++; 
break; 


case 13: // 换 行 CR 
m strline.Empty(); 
CurrentXX = 0; 
loop++; 
break; 


case 27: 
loop++; 
// 分 析 紧 接 着 27 的 字符 是 否 是 91， 如 果 不 是 91， 则 这 两 个 字符 都 不 作 处 理 ， 直 接 跳出 
if (pText [loop] !=91) 
{ 
loop++; 
break; 


} 
// 如 果 是 91， 则 接 下 来 的 数据 则 是 系统 相关 数据 
else 
{ 
loop++; 
while (tempStr.Find(pText[loop]) != -1) 
{ 
tempStr2 += pText[loop]; 
loop; 


if (pText[loop]--'m') // 如 果 接 下 来 的 数据 是 m， 则 分 析 前 面 获 得 的 字符 串 


// 循 环 获得 字符 串 中 的 值 ， 其 中 字符 串 中 的 值 都 是 以 分 号 隔 开 的 
while (tempStr2 != "") 
t 
if (tempStr2.Find(";") !- -1) 
t 
ColorVal = atoi (tempStr2.Mid(0,tempStr2.Find(";"))); 
tempStr2 = tempStr2.Mid(tempStr2.Find(";") + 1); 
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else 
i 
ColorVal = atoi (tempStr2) ; 


tempStr?.Empty (); 


} 

// 获 得 一 个 值 

// 改 变 前 景 颜色 ， 这 个 颜色 可 以 按照 一 定 的 规则 自 定义 

if (ColorVal>29 && ColorVal<38) 
//cTextColor = RGB(0,0,255); 

// 设 置 背景 颜色 

if (ColorVal>39 && ColorVal<48) 
//cBackgroundColor = RGB(0,255,ColorVal); 

// 恢 复 基 本 设置 

if (ColorVal--0) 

t 
//cBackgroundColor = RGB(0,0,0); 
//cTextColor = RGB(255,255,255); 


5 
// 如 果 为 1， 则 设置 前 景色 
//if ColorVal-- 
// 表 示 要 反 色 
//if ColorVal--7 
) 


) 
// 如 果 为 字符 K， 表 示 要 画 一 条 背景 色 的 矩形 区 域 


if (pText[loop] == 'K') 
t 
int xz; yr 
CString myStr; 
// 保 持原 来 的 坐标 
// 画 出 矩形 区 域 ， 因 为 以 背景 色 画 ， 所 以 相当 于 移动 光标 
// 将 坐标 变量 改变 到 目前 的 位 置 


x = CurrentXX; 

y = CurrentYY; 

for (int l-CurrentXX; 1«80; 1++) 

ii 
cText[1][CurrentYY] = ' '; 
myStr += ' '; 

} 

pDC-»TextOut (x*dtX, y*dtY, myStr); 

CurrentXX = x; 

CurrentYY = y; 


} 
// 如 果 字 符 为 c， 表 示 要 改变 当前 的 横 坐 标 
if (pText[loop] == 'C') 


t 


// 获 得 横 坐 标的 改变 量 
if (tempStr2.Find(";") != -1) 
{ 
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ColorVal = atoi(tempStr2.Mid(0, tempStr2.Find(";"))); 
tempStr2 = tempStr2.Mid(tempStr2.Find(";") + 1); 
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} 

else 

t 
ColorVal = atoi(tempStr2) 7 
tempstr2.Empty(); 


D 
// 然 后 增 建 坐标 值 ， 注 意 这 里 要 加 上 字符 宽度 


CurrentXX = CurrentXX + ColorVal; 


) 
// 如 果 字 符 为 E， 表 示 重 新 设置 横 坐 标 和 纵 坐 标 
if (pText[loop] == 'H') 
t 
// 获 得 纵 坐 标 值 ， 在 服务 器 发 送 的 过 程 中 ， 先 发 送 纵 坐标 值 
TRACEO ("H") ; 
int tX-0, tY-0; 
//char buffer3[20]; 
tY = atoi(tempstr2.Mid(0, tempstr2.Find(";"))); 
tempStr2 = tempStr2.Mid(tempStr2.Find(";") + 1); 
// 获 得 横 坐标 值 ， 注 意 这 里 获得 的 值 是 没有 加 字符 宽度 的 
tX = atoi (tempStr2); 
if (tX>0 && tY>0) 
{ 


CurrentYY 
CurrentXX 


jeg =; 
EX =i; 


i; 


} 
// 如 果 为 字符 J， 表 示 要 清除 整个 屏幕 
if (pText[loop] == 'J') 
t 
ClearWindows (pDC) ; 
} 
} 
loop++; 
IfOutput = false; 
break; 


case 0: 
loop++; 


case 10: // 换 行 
t 
CurrentYY = CurrentYY + 1; 
if (CurrentYY >= bufferLines) 
{ 
for(int row=0; row<bufferLines; Fow++) 
f 
for(int col=0; col<80; col++) 
ü 
cText[col][row] = cText[col] [row+1]; 
} 


i 
for(int col=0; col<80; col++) 


cText[col][bufferLines-1] = ' 
5 
CurrentYY = CurrentYY = 1; 
DoDraw (pDC) ; 
) 
) 
loop++; 
break; 
default: // 输 出 数据 
t 
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cText[CurrentXX] [CurrentYY] = pText[loop]; 


m strline.Empty(); 
for (int i-0; i«80; i++) 
t 
if (cText[i][CurrentYY] != 27) 


m strline += cText [i] [CurrentYY]; 


else 
break; 
} 


pDC->TextOut (0, CurrentYY*dtY, m strline); 


CurrentxX++; 
} 
tempStr2.Empty (); 
loopt++; 
break; 
} 
} 
DrawCursor (pDC, TRUE); 
ReleaseDC (pDC) ; 
} 


© 定义 函数 OnChar()， 用 于 实现 按键 处 理 ， 具 体 代码 如 下 : 


// 按 键 处 理 
void CTelnetView::OnChar(UINT nChar, UINT nRepCnt, 
t 

// 发 出 回 车 键 

if (nChar == VK RETURN) 

t 

DispatchMessage ("Vr Wn") ; 
} 
else 


if 
DispatchMessage (nChar) ; 


} 


UINT nFlags) 


@® i MHA DrawCursor0， 用 于 在 屏幕 上 绘制 光标 ， 有 具体 代码 如 下 : 


// 画 光标 
void CTelnetView::DrawCursor(CDC *pDC, BOOL pDraw) 


{ 
COLORREF color; 
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CMainFrame *frm = (CMainFrame*) GetTopLevelFrame (); 
if(pDraw) //draw 
{ 
color = cTextColor; 
} 
else //erase 
{ 
color = cBackgroundColor; 
} 
CRect rect (CurrentXX * dtX + 2, CurrentYY * dtY + 1, 
CurrentXX * dtX + dtX - 2, CurrentYY * dtY + dtY -1); 
pDC-»FillSolidRect (rect, color); 


} 


void CTelnetView::OnSize(UINT nType, int cx, int cy) 
{ 
CScrollView::OnSize(nType, cx, cy); 
if (IsWindow(m hWnd)) 
{ 
if (IsWindowVisible() ) 
{ 
//ScrollToPosition( 
CPoint(0, bufferLines * 1000)); //go way past the end 


} 
@® 定义 函数 OnEraseBkgnd0， 用 于 清除 背景 颜色 ， 有 具体 代码 如 下 : 


BOOL CTelnetView: :OnEraseBkgnd (CDC* pDC) 
CRect clip; 
pDC-»GetClipBox (clip); 
CMainFrame *frm = (CMainFrame*)GetTopLevelFrame|(); 
pDC-»FillSolidRect (clip, cBackgroundColor); 
return TRUE; 

} 


O 定义 函数 Find0， 用 于 查找 指定 的 字符 ， 有 具体 代码 如 下 : 
// 查 找 字符 


int CTelnetView::Find(CString str, char ch) 
t 

char *data = str.GetBuffer(0); 

int len = str.GetLength(); 

int i = 0; 

for(i-0; i«len; i++){ 

if (data[i] == ch) 
break; 

H 

str.ReleaseBuffer(); 

return i; 


定义 函数 OnKeyDown(), HF 


// 方 向 键 处 理 


void CTelnetView::OnKeyDown(UINT nChar, UINT nRepCnt, UINT nFlags) 


t 


H 


unsigned char myChar[3]; 
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实现 方向 键 处 理 ， 具 体 代 码 如 下 : 


远程 传输 处 理 


// TODO: Add your message handler code here and/or call default 


// 左 方向 键 

if (nChar == 37) 

t 
myChar[0] = 27; 
myChar[1] = 91; 
myChar[2] = 68; 


DispatchMessage (myChar) ; 


) 
// 右 方向 键 
else if (nChar == 39 
ü 
myChar[0] - 27; 


myChar[1] = 91; 
myChar[2] = 67; 
DispatchMessage (myChar) ; 

} 

// 上 方向 键 

else if (nChar — 38) 

t 
myChar[0] = 27; 
myChar[1] = 91; 
myChar[2] = 65; 


DispatchMessage (myChar) ; 


) 

// 下 方向 键 

else if (nChar == 40) 

t 
myChar[0] = 27; 
myChar[1] 91; 
myChar[2] 66; 
DispatchMessage (myChar) ; 


} 


CView::OnKeyDown(nChar, nRepCnt, nFlags); 


/ /MessageBox ( (char*) nChar) ; 


@ 定义 函数 ClearWindows 0， 用 
// 清 除 屏幕 


void CTelnetView: :ClearWindows (CDC *pDc) 


f 


for(int x=0; x<80; x++) 
t 


于 清除 屏幕 元 素 ， 具 体 代码 如 下 : 


for(int y-0; y«bufferLines; y++) 


t 


Visual CH GEE SED 


cfext [x] [y] =" "7 


} 
} 
DoDraw (pDc) ; 
Currentyy = 0; 
CurrentXX = 0; 
} 


@ 定义 函数 OnFileNew()， 用 于 创建 新 的 Socket， 并 实现 与 服务 器 的 连接 。 有 具体 代 
码 如 下 : 

void CTelnetView: :OnFileNew() 

{ 


BOOL bOK; 


// 弹 出 设 定 服务 器 对 话 杠 
CHostDialog host; 

host .DoModal (); 

cHostName = host.m_HostName; 


// 创 建 socket 
cSock = new CClientSocket (this); 


if(cSock !- NULL) 
t 
bOK = cSock-»Create(); 
if(bOK == TRUE) 
t 
cSock-»AsyncSelect ( 
FD READ | FD WRITE | FD CLOSE | FD CONNECT | FD OOB); 
// 连 接 服务 器 
cSock-»Connect (cHostName, 23); 
// 设 定 标题 
GetDocument () -»SetTitle (cHostName); 
Sleep(90); 
} 
else 
{ 
ASSERT (FALSE) ; 
delete cSock; 
cSock = NULL; 
} 
} 
else 
t 
AfxMessageBox (" 不 能 创建 socket", MB OK); 
} 
} 


到 此 为 止 ， 整 个 项 目的 核心 代码 就 介绍 完毕 了 。 为 节省 本 书 的 篇 幅 ， 没 有 对 其 他 代码 
进行 讲解 ， 读 者 只 需 参考 本 书 的 附带 光盘 即 可 了 解 。 
项 目 执行 后 的 初始 界面 如 图 3-15 所 示 。 
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3-15 ”初始 效果 


单 击 “ 文 件 ” 一 “连接 远程 服务 器 ”命令 后 ， 弹 出 “Telnet 服务 器 ”对 话 框 ， 如 
图 3-16 所 示 。 


Em [x] 


[17:71 [ibs est eds 一 - 


3-16 “Telnet 服 务 器” 对话 框 


在 如 图 3-16 所 示 的 对 话 框 中 输入 一 个 远程 BBS 地 址 后 ， 即 可 访问 此 BBS 服务 器 ， 如 
图 3-17 所 示 。 


文件 查看 帮助 


o2) 


Ready 


图 3-17 连接 到 清华 BBS 


自从 互联 网 诞生 那 一 刻 起 ， 网 上 冲浪 就 成 了 互联 网 迅速 发 展 的 
关键 因素 之 一 。 网 上 冲浪 必须 使 用 浏览 器 ， 所 以 市 面 上 出 现 了 很 多 
浏览 器 产品 ， 例 如 于、 火狐 等 。 在 Visual C++ 开发 领域 中 ， 可 以 使 


\ X 
Visual C++ GAEREN 


4.1 不 得 不 说 的 HTTP 协 议 


网 页 浏览 的 过 程 是 一 个 客户 端 向 服务 器 发 送 访问 请 求 ， 而 服务 器 向 客户 端 发 送 结果 的 
过 程 。 网 页 客户 端的 请 求 是 通过 HTTP 协议 发 送 的 ， 整 个 发 送 过 程 是 一 个 C/S( 客 户 端 /服务 
器 ) 模 式 。 客 户 端的 任务 只 是 负责 解析 服务 器 返回 的 网 页 内 容 。 整 个 请 求 和 响应 过 程 需要 使 
HTTP 协议 来 实现 ， 在 本 节 的 内 容 中 ， 将 简要 介绍 HTTP 协议 的 基本 知识 。 


4.1.1 再 看 C/S 编 程 模型 


CIS 编程 模型 是 基于 可 靠 连接 的 通信 模型 。 在 通信 的 双方 必须 使 用 各 自 的 TP. 地 址 以 及 
端口 进行 通信 。 和 否则 ， 通 信 过 程 将 无 法 实现 。 通 常情 况 下 ， 当 用 户 使 用 C/S 模型 进行 通信 
时 ， 其 通信 的 任意 一 方 若 为 客户 端 ， 则 另 一 方 为 服务 器 端 。 

服务 器 端 等 待 客户 端 连接 请 求 的 到 来 ， 这 个 过 程 称 为 监听 过 程 。 通 常 ， 服 务 器 监听 功 
能 是 在 特定 的 TP 地 址 和 端口 上 进行 。 然 后 ， 客 户 端 向 服务 器 发 出 连接 请 求 ， 服 务 器 响应 该 
请 求 则 连接 成 功 ， 否 则 ， 客 户 端的 连接 请 求 将 失败 。C/S 编程 模型 如 图 4-1 所 示 。 


向 服务 器 发 出 连接 请 求 


服务 器 应 答 客户 端 请 求 


服务 器 | iane 和 | 客户 请 


客户 端 关闭 与 服务 器 之 间 
的 连接 


图 4-1 C/S 编 程 模型 


由 于 客户 端 连接 服务 器 时 ， 需 要 使 用 服务 器 的 卫 地 址 和 监听 端口 号 才能 完成 连接 。 所 
以 ， 服 务 器 的 IP 地 址 和 端口 必须 是 固定 的 。 在 这 里 ， 向 用 户 介绍 部 分 协议 所 使 用 的 端口 号 
人 码 。 例 如 ，HTTP 协议 (用 于 网 页 浏览 服务 ) 所 使 用 的 端口 号 为 80，FTP 协议 (用 于 文件 传输 ) 
所 使 用 的 端口 号 是 21。 
其 实 开 发 一 个 浏览 器 工具 的 目的 就 是 开发 一 个 客户 端 程序 ， 以 便 能 够 访问 Web 网 页 ， 
访问 网 页 的 过 程 也 是 使 用 HTTP 的 过 程 。 在 Web 开发 领域 中 ， 开 发 的 Web 程序 一 般 都 遵 
循 B/S 模型 。B/S 模型 和 C/S 模型 的 原理 类 似 。 在 Web 开发 领域 中 ， 客 户 端 对 应 的 是 个 人 
机 器 的 浏览 器 ， 服 务 器 端 对 应 的 是 远程 站 点 服务 器 。 浏 览 器 是 WWW 系统 的 重要 组 成 部 
分 ， 它 是 运行 在 本 地 计算 机 的 程序 ， 负 责 向 服务 器 发 送 请 求 ， 并 且 将 服务 器 返回 的 结果 显 


示 给 用 户 。 用 户 就 是 通过 浏览 器 这 个 窗口 来 分 享 网 上 丰富 的 资源 。 常 见 的 网 页 浏览 器 包括 
Internet Explorer(IE)、Firefox、Opera 和 Safari. 

远程 服务 器 是 一 种 高 性 能 计算 机 ， 作 为 网 络 的 节点 ， 存 储 、 处 理 网 络 上 80% 的 数据 、 
信息 ， 因 此 也 被 称 为 网 络 的 灵魂 。 它 是 网 络 上 一 种 为 客户 端 计 算 机 提供 各 种 服务 的 高 性 能 
的 计算 机 ， 它 在 网 络 操作 系统 的 控制 下 ， 将 与 其 相连 的 硬盘 、 磁 带 、 打 印 机 、Modem 及 各 
种 专用 通讯 设备 提供 给 网 络 上 的 客户 站 点 共享 ， 也 能 为 网 络 用 户 提供 集中 计算 、 信 息 发 表 
及 数据 管理 等 服务 。 它 的 高 性 能 主要 体现 在 高 速 的 运算 能 力 、 长 时 间 的 可 靠 运行 、 强 大 的 
外 部 数据 吞吐 能 力 等 方面 。 
务 器 的 主要 功能 是 接收 客户 浏览 器 发 来 的 请 求 ， 分 析 请 求 ， 并 给 予 响应 ， 响 应 的 信 
息 通 过 网 络 返回 给 用 户 浏览 器 。 本 地 计算 机 和 远程 服务 器 的 工作 流程 如 图 4-2 所 示 。 


用 户 输入 请 求 


V MM 


<body> 

<title> 显 示 内 容 </title> 

服务 器 响应 时 会 给 客户 
da M 端 发 回 相关 的 Web 数 据 广 
Response Wits s 件 ， 比 如 HTML 文件 等 
%> 

</body> 


图 4-2 本 地 计算 机 和 远程 服务 器 的 工作 流程 


4.1.2 HTTP 基础 


在 客户 端 浏览 器 和 远程 服务 器 之 间 的 交互 请 求 是 通过 HTTP 实现 的 ，HTTP 起 到 了 非 
常 重要 的 作用 。 在 接 下 来 的 内 容 中 ， 将 简要 介绍 HTTP. 协议 的 基本 知识 。 

超 文本 传输 协议 (HyperText Transfer Protocol，HTTP) 是 互联 网 上 应 用 最 为 广泛 的 一 种 
网 络 协 议 。 所 有 的 WWW 文件 都 必须 遵守 这 个 标准 。 设 计 HTTP 最 初 的 目的 是 为 了 提供 一 
种 发 布 和 接收 HTML 页 面 的 方法 。HTTP 协议 的 主要 特点 如 下 : 

a ”支持 客户 /服务 器 模式 。 

Q ”简单 快速 一 一 客户 向 服务 器 请 求 服务 时 ， 只 需 传送 请 求 方法 和 路 径 。 请 求 方法 常 

用 的 有 GET、HEAD、POST。 每 种 方法 规定 了 客户 与 服务 器 联系 的 类 型 不 同 。 
由 于 HTTP 协议 简单 ， 使 得 HTTP 服务 器 的 程序 规模 小 ， 因 而 通信 速度 很 快 。 


Q “灵活 一 HITP 允许 传输 任意 类 型 的 数据 对 象 。 正 在 传输 的 类 型 由 Content-Type 
加 以 标识 。 
口 无 连接 一 一 无 连接 的 含义 是 限制 每 次 连接 只 处 理 一 个 请 求 。 服 务 器 处 理 完 客户 的 


4.1.3 
HTTP 请 求 由 三 部 分 组 成 ， 分 别 是 请 求 行 、 消 息 报 头 和 请 求 正文 。 
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请 求 ， 并 收 到 客户 的 应 答 后 ， 即 断 开 连接 。 采 用 这 种 方式 可 以 节省 传输 时 间 。 

无 状态 一 HTTP 协议 是 无 状态 协议 。 无 状态 是 指 协议 对 于 事务 处 理 没有 记忆 能 
力 。 缺 少 状态 意味 着 如 果 后 续 处 理 需 要 前 面 的 信息 ， 则 必须 重 传 ， 这 样 可 能 导致 
每 次 连接 传送 的 数据 量 增 大 。 另 一 方面 ， 在 服务 器 不 需要 先前 信息 时 它 的 应 答 就 


HTTP 请 求 


请 求 行 以 一 个 方法 符号 开头 ， 以 空格 分 开 ， 后 面 跟着 请 求 的 URI 和 协议 的 版 本 ， 具 体 
格式 如 下 : 


Method RequestURI HTTP-Version CRLF 


口 


口 
口 
口 


Method: 表示 请 求 方法 。 

Request-URI: 是 一 个 统一 资源 标识 符 。 

HTTP-Version: 表示 请 求 的 HTTP 协议 版 本 。 

CRLF: 表示 回 车 和 换行 ， 除 了 作为 结尾 的 CRLF 外 ， 不 允许 出 现 单独 的 CR 或 
LF 字符 。 


Method 请 求 方法 (所 有 方法 全 为 大 写 ) 有 多 种 ， 各 个 方法 的 具体 说 明 如 下 。 


oooooooaoo 


GET: 请 求 获取 Request-URI 所 标识 的 资源 。 

POST: 在 Request-URI 所 标识 的 资源 后 附加 新 的 数据 。 

HEAD: 请 求 获取 由 Request-URI 所 标识 的 资源 的 响应 消息 报头 。 

PUT: 请 求 服务 器 存储 一 个 资源 ， 并 用 Request-URI 作为 其 标识 。 
DELETE: 请 求 服务 器 删除 Request-URI 所 标识 的 资源 。 

TRACE: 请 求 服务 器 回 送 收 到 的 请 求 信息 ， 主 要 用 于 测试 或 诊断 。 
CONNECT: 保留 将 来 使 用 。 

OPTIONS: 请 求 查询 服务 器 的 性 能 ， 或 者 查询 与 资源 相关 的 选项 和 需求 。 


例如 下 面 的 请 求 格式 : 

«request-line» 

«headers» 

«blank line» 

«request- body» 

在 HTTP 请 求 中 ， 第 一 行 必 须 是 一 个 请 求 行 (Request Line)， 用 来 说 明 请 求 类 型 、 要 访 
问 的 资源 以 及 使 用 的 HTTP 版 本 。 紧 接着 是 一 个 首部 (header) 小 节 ， 用 来 说 明 服 务 器 要 使 用 
的 附加 信息 。 在 首部 之 后 是 一 个 空 行 ， 在 此 之 后 可 以 添加 任意 的 其 他 数据 。 

在 HTTP 中 ， 定 义 了 大 量 的 请 求 类 型 ， 不 过 作为 开发 人 员 ， 往 往 只 关心 GET 请 求 和 
POST 请 求 ， 因 为 这 两 种 方式 最 为 常用 。 

(1) GET 请 求 

只 要 在 Web 浏览 器 上 输入 一 个 URL， 浏 览 器 就 将 基于 该 URL 向 服务 器 发 送 一 个 GET 


请 求 ， 以 告诉 服务 器 获取 并 返回 什么 资源 。 例 如 ， 对 于 www.wrox.com 的 GET 请 求 如 下 : 


GET / HTTP/1.1 

Host: www.wrox.com 

User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.6) 
Gecko/20050225 Firefox/1.0.1 

Connection: Keep-Alive 


请 求 行 的 第 一 部 分 说 明了 该 请 求 是 GET 请 求 。 该 行 的 第 二 部 分 是 一 个 斜 本 0)， 用 来 说 
明 请 求 的 是 该 域名 的 根 目录 。 该 行 的 最 后 一 部 分 说 明 使 用 的 是 HTTP 1.1 版 本 ( 另 一 个 可 选 
项 是 1.0)。 那 么 请 求 发 到 哪里 去 呢 ? 这 就 是 第 二 行 的 内 容 。 

第 2 行 是 请 求 的 第 一 个 首部 HOST。 首 部 HOST 将 指出 请 求 的 目的 地 。 结 合 HOST 和 
上 一 行 中 的 斜 杠 (/)， 可 以 通知 服务 器 请 求 的 是 www.wrox.com(HTTP 1.1 才 需 要 使 用 首部 
HOST， 而 原来 的 1.0 版 本 则 不 需要 使 用 )。 第 3 行 中 包含 的 是 首部 User-Agent， 服 务 器 端 
和 客户 端 脚本 都 能 够 访问 它 ， 它 是 浏览 器 类 型 检测 逻辑 的 重要 基础 。 该 信息 由 用 户 使 用 的 
浏览 器 来 定义 (在 本 例 中 是 Firefox 1.0.1)， 并 且 在 每 个 请 求 中 将 自动 发 送 。 

最 后 一 行 是 首部 Connection， 通 常 将 浏览 器 操作 设置 为 Keep-Alive( 当 然 也 可 以 设置 为 
其 他 值 ， 但 这 已 经 超出 了 本 书 讨论 的 范围 )。 注 意 ， 在 最 后 一 个 首部 之 后 有 一 个 空 行 。 即 使 
不 存在 请 求 主体 ， 这 个 空 行 也 是 必需 的 

(2) POST 请 求 

POST 请 求 在 请 求 主体 中 为 服务 器 提供 了 一 些 附加 的 信息 。 通 常 ， 当 填写 一 个 在 线 表 
单 并 提交 它 时 ， 这 些 填 入 的 数据 将 以 POST 请 求 的 方式 发 送 给 服务 器 。 下 面 就 是 一 个 典型 
的 POST 请 求 : 

POST / HTTP/1.1 

Host: www.wrox.com 

User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.6) 

Gecko/20050225 Firefox/1.0.1 

Content-Type: application/x-www-form-urlencoded 


Content-Length: 40 
Connection: Keep-Alive 


name-Professional$20Ajax&publisher-Wiley 


从 上 面 可 以 发 现 ，POST 请 求 和 GET 请 求 之 间 有 一 些 区 别 。 首 先 ， 请 求 行 开始 处 的 
GET 改 为 了 POST， 以 表示 不 同 的 请 求 类 型 。 你 会 发 现 首 部 Host 和 User-Agent 仍然 存 
在 ， 在 后 面 有 两 个 新 行 。 其 中 首部 Content-Type 说 明了 请 求 主体 的 内 容 是 如 何 编码 的 。 浏 
览 器 始终 以 application/x-www-form-urlencoded 的 格式 编码 来 传送 数据 ， 这 是 针对 简单 
URL 编码 的 MIME 类 型 。 首 部 Content-Length 说 明了 请 求 主体 的 字 节 数 。 在 首部 
Connection 后 是 一 个 空 行 ， 再 后 面 就 是 请 求 主体 。 与 大 多 数 浏览 器 的 POST 请 求 一 样 ， 这 
是 以 简单 的 “名 称 - 值 ” 对 的 形式 给 出 的 ， 其 中 name 是 Professional Ajax, publisher 是 
Wiley。 你 可 以 用 同样 的 格式 来 组 织 URL 的 查询 字符 串 参数 。 


4.14 HTTP 


在 接收 和 解释 请 求 消息 后 ， 服 务 器 会 返回 一 个 HTTP 响应 消息 。HTTP 响应 也 是 由 三 
个 部 分 组 成 ， 分 别 是 状态 行 、 消 息 报头 和 响应 正文 。 其 中 状态 行 的 格式 如 下 : 
HTTP-Version Status-Code Reason-Phrase CRLF 


O HTTP-Version: 表示 服务 器 HTTP 协议 的 版 本 。 

Q Status-Code: 表示 服务 器 发 回 的 响应 状态 代码 。 

Q  Reason-Phrase: 表示 状态 代码 的 文本 描述 。 

状态 代码 由 三 位 数字 组 成 ， 第 一 个 数字 定义 了 响应 的 类 别 ， 并 且 具 有 如 下 S 种 可 能 的 
取 值 。 


lxx: 指示 信息 一 一 表示 请 求 已 接收 ， 继 续 处 理 。 
2xx: 成 功 一 一 表示 请 求 已 被 成 功 接收 、 理 解 、 接 受 。 
: 重 定 向 一 一 要 完成 请 求 必须 进行 更 进一步 的 操作 。 
4xx: 客户 端 错误 一 一 请 求 有 语法 错误 或 请 求 无 法 实现 。 
5xx: 服务 器 端 错 误 一 一 服务 器 未 能 实现 合法 的 请 求 。 
HTTP 响应 中 常见 的 状态 代码 的 状态 描述 和 具体 说 明 如 表 4-1 所 示 。 


表 4-1 HTTP 状 态 代码 说 明 


OOOO O 
uo 
E] 
x 


状态 码 描 R 说 AA 

200 OK 客户 端 请 求 成 功 

400 Bad Request 客户 端 请求 有 语法 错误 ， 不 能 被 服务 器 所 理解 

401 Unauthorized 请 求 未 经 授权 ， 这 个 状态 代码 必须 和 WWW-Authenticate 报头 域 
-起 使 用 

403 Forbidden 服务 器 收 到 请 求 ， 但 是 拒绝 提供 服务 

404 Not Found 请 求 资源 不 存在 ， 输 入 了 错误 的 URL 

500 Internal Server Error | 服务 器 发 生 不 可 预期 的 错误 

503 Server Unavailable | 服务 器 当前 不 能 处 理 客户 端的 请 求 ， 一 段 时 间 后 可 能 恢复 正常 


415 消息 头 域 


HTTP 的 头 域 的 主要 功能 是 完成 浏览 器 和 服务 器 之 间 的 协作 。 相 当 于 一 个 协商 和 控制 
的 作用 。 比 如 浏览 器 高 速 服务 器 自己 可 以 接受 的 文件 类 型 ， 可 以 接受 何 种 方式 的 字符 编 
码 ， 本 地 的 浏览 器 版 本 。 

(1) 通用 头 域 

通用 头 域 包含 请 求 和 响应 消息 都 支持 的 头 域 ， 通 用 头 域 包含 Cache-Control 、 
Connection、Date、Pragma、Transfer-Encoding、Upgrade、Via。 对 通用 头 域 的 扩展 要 求 通 


讯 双 方 都 支持 此 扩展 ， 如 果 存 在 不 支持 的 通用 头 域 ， 一 般 将 会 作为 实体 头 域 处 理 。 
(D Cache-Control 头 域 
Cache-Control 指定 请 求 和 响应 遵循 的 缓存 机 制 。 在 请 求 消息 或 响应 消息 中 设置 Cache- 
Control 并 不 会 修改 另 一 个 消息 处 理 过 程 中 的 缓存 处 理 过 程 。 请 求 时 的 缓存 指令 包括 no- 
cache、no-store、max-age、max-stale、min-fresh、only-if-cached， 响 应 消息 中 的 指令 包括 
public, private, no-cache, no-store, no-transform, must-revalidate, proxy-revalidate, max- 
age。 各 个 消息 中 的 指令 含义 如 下 。 
Q public: 指示 响应 可 被 任何 缓存 区 缓存 。 
Q private: 指示 对 于 单个 用 户 的 整个 或 部 分 响应 消息 ， 不 能 被 共享 缓存 处 理 。 这 
允许 服务 器 仅仅 描述 当 用 户 的 部 分 响应 消息 ， 此 响应 消息 对 于 其 他 用 户 的 请 求 
无 效 。 
O no-cache: 指示 请 求 或 响应 消息 不 能 缓存 。 
Q no-store: 用 于 防止 重要 的 信息 被 无 意 地 发 布 。 在 请 求 消息 中 发 送 将 使 得 请 求 和 响 
应 消息 都 不 使 用 缓存 。 
O  maxage: 指示 客户 机 可 以 接收 生存 期 不 大 于 指定 时 间 ( 以 秒 为 单位 ) 的 响应 。 
O min-fresh: 指示 客户 机 可 以 接收 响应 时 间 小 于 当前 时 间 加 上 指定 时 间 的 响应 。 
O  max-stale: 指示 客户 机 可 以 接收 超出 超时 期 间 的 响应 消息 。 如 果 指 定 max-stale 消 
息 的 值 ， 那 么 客户 机 可 以 接收 超出 超时 期 指定 值 之 内 的 响应 消息 。 
Q) Date 头 域 
Date 头 域 表示 消息 发 送 的 时 间 ， 时 间 的 描述 格式 由 RFC 822 定义 。 
例如 Date:Mon,31Dec200104:25:57GMT。Date 描述 的 时 间 表 示 世 界 标准 时 ， 换 算 成 本 
地 时 间 ， 需 要 知道 用 户 所 在 的 时 区 。 


®© Pragma 头 域 
Pragma 头 域 用 来 实现 特定 的 指令 ， 最 常用 的 是 Pragma:no-cache。 在 HTTP/1.1 协议 


中 ， 它 的 含义 与 Cache-Control:no-cache 相同 。 

(2) 请 求 头 域 

(D Host 头 域 

Host 头 域 指定 请 求 资源 的 Internet 主机 和 端口 号 ， 必 须 表 示 请 求 URL 的 原始 服务 器 或 
网 关 的 位 置 。HTTP/1.1 请 求 必须 包含 主机 头 域 ， 否 则 系统 会 以 400 状态 码 返回 。 

@) Referer 头 域 

Referer 头 域 允 许 客户 端 指定 请 求 URI 的 源 资源 地 址 ， 这 可 以 允许 服务 器 生成 回 退 链 
表 ， 可 用 来 登录 、 优 化 cache 等 。 它 也 允许 废除 的 或 错误 的 连接 由 于 维护 的 目的 被 追踪 。 
如 果 请 求 的 URI 没有 自己 的 URI 地 址 ，Referer 不 能 被 发 送 。 如 果 指 定 的 是 部 分 URI 地 
址 ， 则 此 地 址 应 该 是 一 个 相对 地 址 。 

@ Range 头 域 

Range 头 域 可 以 请 求实 体 的 一 个 或 者 多 个 子 范围 ， 例 如 下 面 的 格式 说 明 。 

口 ”表示 头 500 个 字 节 : bytes-0-499 

口 ”表示 第 二 个 500 Fi: bytes-500-999 

口 “ 表 示 最 后 500 个 字 节 : bytes--500 
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Q ”表示 500 字 节 以 后 的 范围 : bytes=500- 
o “第 一 个 和 最 后 一 个 字 节 : bytes=0-0,-1 
口 “” 同 时 指定 几 个 范围 : bytes=500-600.601-999 
其 实 服务 器 可 以 忽略 此 请 求 头 ， 如 果 无 条 件 GET 包含 Range 请 求 头 ， 响 应 会 以 状态 
码 206(PartialContent) 返 回 而 不 是 以 200(OK) 返 回 。 在 迅雷 等 HTTP 下 载 软件 中 就 是 使 用 这 
个 头 域 来 完成 多 线程 的 下 载 的 。 

() User-Agent 头 域 

User-Agent 头 域 的 内 容 包含 发 出 请 求 的 用 户 信息 ， 比 如 浏览 器 的 内 核 版 本 。 

(3) 响应 头 域 

响应 头 域 允许 服务 器 传递 不 能 放 在 状态 行 的 附加 信息 ， 这 些 域 主要 描述 服务 器 的 信息 
和 Request-URI 进一步 的 信息 。 响 应 头 域 含 Age, Location, Proxy-Authenticate, Public, 
Retry-After、Server、Vary、Waming、WWW-Authenticate。 对 响应 头 域 的 扩展 要 求 通信 双 
方 都 支持 ， 如 果 存 在 不 支持 的 响应 头 域 ， 一 般 将 会 作为 实体 头 域 处 理 。 

Q Location 响应 头 : 用 于 重 定向 接收 者 到 一 个 新 URI 地 址 。 

Q Server 响应 头 : 包含 处 理 请 求 的 原始 服务 器 的 软件 信息 。 此 域 能 包含 多 个 产品 标 

识 和 注释 ， 产 品 标识 一 般 按 照 重要 性 排序 。 

(4) 实体 头 域 

请 求 消息 和 响应 消息 都 可 以 包含 实体 信息 ， 实 体 信息 一 般 由 实体 头 域 和 实体 组 成 。 实 
体 头 域 包含 关于 实体 的 原 信息 ， 实 体 头 包 括 Allow、Content-Base、Content-Encoding、 
Content-Language ~ Content-Length 、 Content-Location ~ Content-MD5 、 Content-Range 、 


Content-Type、Etag、Expires、Last-Modified、extension-header。extension-header 人 允许 客户 
端 定义 新 的 实体 头 ， 但 是 这 些 域 可 能 无 法 为 接受 方 识别 。 实 体 可 以 是 一 个 经 过 编码 的 字 节 
流 ， 它 的 编码 方式 由 Content-Encoding 或 Content-Type 定义 ， 它 的 长 度 由 Content-Length 
或 Content-Range 定义 。 
Q Content-Type 实体 头 : 用 于 向 接收 方 指示 实体 的 介质 类 型 ， 指 定 HEAD 方法 送 到 
接收 方 的 实体 介质 类 型 或 GET 方法 发 送 的 请 求 介 质 类 型 Content-Range 实体 头 。 
Q Content-Range 实体 头 : 用 于 指定 整个 实体 中 的 一 部 分 的 插入 位 置 ， 也 指示 了 整个 
实体 的 长 度 。 在 服务 器 向 客户 返回 一 个 部 分 响应 ， 必 须 描 述 响应 覆盖 的 范围 和 整 
个 实体 长 度 。 
Q Last-modified 实体 头 : 指定 服务 器 上 保存 内 容 的 最 后 修订 时 间 。 


4.2 CHtmlView 类 


在 MFC 中 ， 可 以 使 用 CHtmlView 类 来 实现 网 页 浏览 器 。CHtmlView 类 在 文档 /视图 结 
构 的 上 下 文中 提供 WebBrowser 控件 的 功能 。WebBrowser 控件 是 客户 可 浏览 网 址 以 及 本 地 
文件 系统 和 网 络 文件 夹 的 窗口 。WebBrowser 控件 支持 超级 链接 、 统 一 资源 定位 符 (URL) 导 
航 器 并 维护 一 张 历史 列表 。 

在 本 节 的 内 容 中 ， 将 简要 介绍 CHtmlView 类 的 基本 知识 。 


4.2.1 CHtmlView 类 的 作用 


在 标准 框架 应 用 中 (基于 SDI 或 MDD， 视 图 对 象 通常 由 指定 系列 的 类 派生 。 这 些 类 都 
CView 派生 ， 提 供 高 于 CView 提供 的 指定 功能 。 

基于 CHtmlView 的 应 用 视图 类 用 WebBrowser 控件 提供 视图 。 这 使 此 应 用 成 为 一 个 网 
络 浏览 器 。 创 建 网 络 浏览 器 的 更 好 方法 是 使 用 MFC AppWizard， 并 将 CHtmlView 指定 为 
视图 类 。 

要 了 解 在 MFC 应 用 中 实现 和 使 用 WebBrowser 控件 的 信息 ， 请 参阅 “WebBrowser 风 

格 的 应 用 ”。CHtmlView 的 功能 是 为 访问 网 络 ( 和 /或 HTML 文件 ) 的 应 用 而 设计 的 。 下 列 
CHtmlView 成 员 函 数 只 适用 于 Internet Explorer 应 用 。 这 些 函 数 可 以 替代 WebBrowser 控 
件 ， 但 它们 无 可 见 的 效果 。 


4.2.2 CHtmlView 类 的 成 员 


(1) 属性 

CHtmlView 类 属性 的 具体 说 明 如 下 。 

Q GetType: 获取 文档 对 象 的 类 型 名 。 

GetLeft: 获取 Internet Explorer 主 窗口 的 左边 缘 的 屏幕 坐标 。 
SetLeft: 设置 Internet Explorer 主 窗 口 的 水 平 位 置 。 

GetTop: 获取 Internet Explorer 主 窗口 的 上 边缘 的 屏幕 坐标 。 
SetTop: 设置 Internet Explorer 主 窗 口 的 垂直 位 置 。 

GetHeight: 获取 Internet Explorer 主 窗口 的 高 度 。 

SetHeight: 设置 Internet Explorer 主 窗 口 的 高 度 。 

SetVisible: 设置 表示 对 象 是 可 见 还 是 隐藏 的 值 。 

GetVisible: 获取 表示 对 象 是 可 见 还 是 隐藏 的 值 。 
GetLocationName: 获取 WebBrowser 当前 显示 的 资源 名 。 
GetReadyState: 获取 WebBrowser 的 就 绪 状 态 。 

GetOffline: 获取 确定 控件 是 否 离 线 的 值 。 

SetOffline: 设置 确定 控件 是 否 离线 的 值 。 

GetSilent: 指示 所 有 对 话 框 是 否 能 显示 出 来 。 

SetSilent: 设置 确定 控件 是 否 显示 在 对 话 框 的 值 。 
GetTopLevelContainer: 获取 指示 当前 对 象 是 否 是 WebBrowser 控件 的 顶级 包容 器 
的 值 。 

GetLocationURL: 获取 WebBrowser 当前 显示 的 资源 的 URL. 
GetBusy: 获取 指示 是 否 下 载 或 其 他 活动 仍 在 处 理 中 的 值 。 
GetApplication: 获取 代替 包含 当前 Internet Explorer 应 用 实例 的 应 用 对 象 。 
GetParentBrowser: 获取 指向 Idispatch 界面 的 指针 。 
GetContainer: 获取 WebBrowser 控件 的 包容 器 。 
GetHtmlDocument: 获取 活动 的 HTML 文档 。 
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口 


口 
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GetFullName: 获取 显示 在 WebBrowser 中 (只 考虑 Internet Explorer) 的 资源 的 全 
名 ， 包 括 路 径 。 

GetToolBar: 获取 确定 工具 条 是 否 可 见 的 值 。 

SetToolBar: 设置 确定 工具 条 是 否 可 见 的 值 。 

GetMenuBar: 获取 确定 菜单 条 是 否 可 见 的 值 。 

SetMenuBar: 设置 确定 菜单 条 是 否 可 见 的 值 (只 考虑 Internet Explorer). 
GetFullScreen: 指示 WebBrowser 控件 正 操作 在 全 屏 模式 还 是 普通 窗口 模式 。 
SetFullScreen: 设置 指示 WebBrowser 控件 正 操作 在 全 屏 模式 还 是 普通 窗口 模式 
的 值 ( 只 考虑 Internet Explorer). 

QueryStatusWB: 对 正 由 WebBrowser 控件 执行 的 命令 的 状态 的 查询 。 
GetRegisterAsBrowser: 指示 是 否 WebBrowser 控件 为 目标 名 字 的 分 解 而 登录 为 一 
个 顶级 浏览 器 。 

SetRegisterAsBrowser: 设置 指示 是 否 WebBrowser 控件 为 目标 名 字 的 分 解 而 登录 
为 一 个 顶级 浏览 器 的 值 。 

GetRegisterAsDropTarget: 指示 是 否 WebBrowser 控件 为 导航 登录 为 一 个 落 放 目 标 。 
SetRegisterAsDropTarget: 设置 指示 是 否 WebBrowser 控件 为 导航 登录 为 一 个 落 放 
目标 的 值 。 

GetTheaterMode: 指示 WebBrowser 控件 是 否 为 影院 模式 。 

SetTheaterMode: 设置 指示 WebBrowser 控件 是 否 为 影院 模式 的 值 。 
GetAddressBar: 确定 Internet Explorer 对 象 地 址 栏 是 否 可 见 ( 只 考虑 Internet 
Explorer). 

SetAddressBar: 显示 或 隐藏 Intemet Explorer 对 象 地 址 栏 (忽略 WebBrowser， 只 考 
IÈ Internet Explorer). 

GetStatusBar: 指示 Internet Explorer 对 象 状 态 栏 是 否 可 见 ( 只 考虑 Internet 
Explorer). 

SetStatusBar: 设置 指示 Internet Explorer 对 象 状态 栏 是 否 可 见 的 值 ( 忽 略 
WebBrowser， 只 考虑 Internet Explorer). 


Q) 操作 
CHtmlView 类 操作 的 具体 说 明 如 下 。 


口 
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GoBack: 导航 到 历史 列表 的 前 一 项 。 

GoForward: 导航 到 历史 列表 的 下 一 项 。 

GoHome: 导航 到 当前 主页 或 起 始 页 。 

GoSearch: 导航 到 当前 查找 页 。 

Navigate: 导航 到 由 URL 标识 的 资源 。 

Navigate2: 导航 到 由 URL 标识 的 资源 ， 或 由 完整 路 径 标识 的 文件 。 
Refresh: 重 载 当前 文件 。 

Refresh2: 重 载 当前 文件 并 避免 “pragma:nocache” 标 题 被 发 。 
Stop: 停止 打开 文件 。 
PutProperty: 设置 与 指定 对 象 有 关 的 特性 值 。 


口 
口 
口 


(3) 


GetProperty: 获取 与 指定 对 象 有 关 的 特性 的 当前 值 。 
ExecWB: 执行 一 个 命令 。 

LoadFromResource: 装载 WebBrowser 控件 中 的 资源 。 
可 覆盖 的 函数 


CHtmlView 类 中 可 履 盖 的 函数 的 具体 说 明 如 下 。 


口 


口 
口 
口 
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OnDraw: 调用 使 一 个 图 像 屏 幕 显示 打印 或 者 打印 先前 值 。 需 要 实现 。 

Create: 创建 WebBrowser 控件 。 

OnNavigateComplete2: 在 到 一 个 超级 链接 的 导航 完成 后 调用 (窗口 或 框架 元 素 )。 
OnBeforeNavigate2: 在 导航 发 生 在 指定 WebBrowser 中 之 前 调用 (窗口 或 框架 元 
素 )。 

OnStatusTextChange: 调用 以 通知 一 个 应 用 一 一 与 WebBrowser 控件 有 关 的 状态 条 
文本 已 改变 。 

OnProgressChange: 调用 以 通知 一 个 应 用 下 载 操作 的 过 程 被 更 新 。 
OnDownloadBegin: 调用 以 通知 一 个 应 用 一 一 导航 操作 开始 了 。 
OnDownloadComplete: 当 导 航 操作 结束 、 中 断 或 失败 时 调用 。 

OnTitleChange: 调用 以 通知 一 个 应 用 一 一 是 否 WebBrowser 控件 的 文档 标题 有 效 
OnPropertyChange: 调用 以 通知 一 个 应 用 一 一 PutProperty 方法 已 改变 了 特性 的 值 。 
OnNewWindow2: 当 新 窗口 被 创建 来 显示 资源 时 被 调用 。 

OnDocumentComplete: 调用 以 通知 一 一 文档 已 达 READYSTATE COMPLETE 的 
OnQuit: 调用 以 通知 应 用 一 一 Intermet Explorer 应 用 准备 退出 (只 适用 于 Internet 
Explorer). 

OnVisible: 当 WebBrowser 控件 窗口 应 被 显示 /隐藏 时 调用 。 

OnToolBar: 当 ToolBar 特性 改变 时 被 调用 。 
OnMenuBar: 当 MenuBar 特性 改变 时 被 调用 。 
OnStatusBar: 当 StatusBar 特性 改变 时 被 调用 。 
OnFullScreen: 当 FullScreen 特性 改变 时 被 调用 。 
OnTheaterMode: 当 TheaterMode 特性 改变 时 被 调用 。 


4.3 小 试 牛 刀 一 一 打造 一 个 网 页 浏览 


实例 功能 使 用 Visual C++ 开发 一 个 网 页 浏览 


源码 路 径 光盘 \yuanmaWVHTTP 


4.3.1 


使 有 


设计 界面 
MFC 中 的 CHtmlView 类 可 以 迅速 开发 网 页 浏览 器 程序 ， 也 可 以 使 用 ActiveX 控 


件 来 开发 一 个 网 页 浏览 器 程序 。 本 节 将 首先 讲解 设计 浏览 器 界面 的 过 程 。 


Visual CH CHEREN 


在 浏览 器 中 ， 工 具 栏 的 作用 十 分 重要 ， 所 有 的 浏览 器 都 有 灵活 的 工具 栏 。 例 如 E 的 
工具 栏 有 “编辑 ”、“ 收 藏 天 ”、“ 查 看 ”和 “工具 ”选项 ， 如 图 4-3 所 示 。 
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图 4-3 IE 浏览 器 的 工具 栏 
(1) 设计 地 址 栏 
在 工程 中 添加 一 个 对 话 框 作 为 地 址 栏 控 件 面板 ，ID 为 “ID_DILOG”， 最 终 设计 效果 
如 图 4-4 所 示 。 


图 4-4 地址 栏 界面 


然后 为 上 述 对 话 框 关联 一 个 新 类 ， 将 该 对 话 框 的 类 名 设置 为 CToolDlg， 设 置 其 基 类 为 
CDialog。 对 应 代码 如 下 : 
CToolDlg::CToolDlg(CWnd *pParent /*=NULL*/) 
: CDialog(CToolDlg::IDD, pParent) 
t 
//((AFX DATA INIT (CToolDlg) 
//))AFX DATA INIT 


// GetDlgItem(ID COM)-»SetWindowText ("faasdsd"); 
} 


Q) 添加 对 话 框 

接 下 来 在 工具 栏 中 添加 对 话 框 ， 将 CToolDlg 类 对 象 设置 为 CMainFrame 类 的 成 员 变 
量 。 看 下 面 的 具体 实现 流程 。 

C) 在 文件 MainFrm.h 中 添加 CToolDlg 的 头 文件 CToolDlgh， 具 体 代码 如 下 : 


#include "ToolDlg.h" 


@ 在 CMainFrame 类 中 声明 CTooIDlg 类 的 对 象 dlg， 并 设置 保护 属性 protected. H 
体 代 码 如 下 : 


protected: 
CStatusBar m wndStatusBar; 
CToolBar m wndToolBar; 
CReBar m wndReBar; 
CDialogBar m wndDlgBar; 
CToolDlg dlg; 
CMenu *m; 
CWebBrowser2 web; 


@ 定义 函数 CMainFrame::OnCreate(LPCREATESTRUCT lpCreateStruct)， 用 于 创建 
CToolDlg 类 的 对 象 dlg， 并 将 此 对 象 添加 到 工具 栏 中 。 具 体 代码 如 下 : 


int CMainFrame: :OnCreate (LPCREATESTRUCT lpCreateStruct) 


{ 
if (CFrameWnd::OnCreate(lpCreateStruct) == -1) 


return -1; 


if (!m wndToolBar.CreateEx (this) 
|| !m wndToolBar.LoadToolBar(IDR MAINFRAME)) 


TRACEO ("Failed to create toolbar\n"); 
return -1; // 创建 失败 

} 

if (!m wndDlgBar.Create(this, IDR MAINFRAME, 

CBRS ALIGN TOP, AFX IDW DIALOGBAR)) 

t 
TRACEO ("Failed to create dialogbarWn"); 
return -1; // 创建 失败 


if (!m wndReBar.Create (this) 
|| !m wndReBar.AddBar(&m wndToolBar) 
|| !m wndReBar.AddBar(&m wndDlgBar)) 


TRACEO ("Failed to create rebar\n"); 
return -1; // 创建 失败 


if (!m wndStatusBar.Create (this) 
|| !m wndStatusBar.SetIndicators (indicators, 
sizeof (indicators) /sizeof (UINT))) 
{ 
TRACEO ("Failed to create status bar\n"); 
return -1; // 创建 失败 
} 
m wndToolBar.SetBarStyle (m wndToolBar.GetBarStyle() 
| CBRS TOOLTIPS | CBRS FLYBY); 
this-»SetTitle ("网 页 浏览 器 示例 ") ; 
return 0; 
} 


G) 添加 工具 栏 按钮 


在 网 页 浏览 器 中 很 有 必要 添加 工具 栏 按钮 ， 例 如 刷新 、 上 一 步 、 下 一 步 和 浏览 记录 
等 。 通 过 Visual C++ 6.0 可 以 很 方便 地 实现 工具 栏 选 项 按钮 。 在 本 实例 中 ， 我 们 添加 了 刷 
新 、 上 一 步 、 下 一 步 和 浏览 记录 这 4 个 按钮 。 设 计 完 毕 后 的 效果 如 图 4-5 所 示 。 
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图 4-5 工具 栏 按钮 


4.3.2 编码 


为 “访问 ”按钮 添加 响应 函数 ， 在 Visual C++ 6.0 主 界面 中 按 下 Ctrit+W 快捷 键 ， 弹 出 
“MFC 向 导 ” 对 话 框 ， 如 图 4-6 Pros. 


IHTML1 [=] crooiDig 


MAND 
UPDATE. COMMAND. UI 


[M DoDataExchange 


IW OnButton ON_IDC_BUTTON:BN_CLICKED 


46 “MFC 向 导 ” 对 话 框 


找到 “访问 ”按钮 标识 “IDC_COM1”， 为 其 添加 鼠标 单 击 响应 函数 On_Button()， 如 
图 4-7 所 示 。 


第 4 章 网 页 浏览 器 
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[M DoDataExchange 
|W OnButton ON IDC BUTTON:BN CLICKED 


图 4-7 添加 鼠标 单 击 响应 函数 On_Button() 
单 击 “ 确 定 ” 按 钮 完成 设置 ， 响 应 函数 On_Button0 的 具体 实现 代码 如 下 : 


void CToolDlg: :OnButton () 
{ 
// 定义 字符 串 变 量 


CString str; 


GetDlgItem(IDC COM)-»GetWindowText(str); // 获 取 地 址 栏 中 输入 的 字符 串 
web.Navigate (str, NULL, NULL, NULL, NULL); 
} 


要 想 使 用 上 述 函 数 ， 必 须 在 类 视图 中 进行 定义 ， 首 先 在 文件 HTMLIViewh 中 定义 函 
数 getpage()， 具 体 代码 如 下 : 


public: 
void getpage (CString str); 
virtual ~CHTML1View(); 


#ifdef DEBUG 
virtual void Dump(CDumpContext &dc) const; 
#endif 


在 文件 HTML 1 View.cpp 中 定义 函数 getpage0 的 具体 实现 ， 具 体 代码 如 下 : 


void CHTML1View: :getpage (CString str) 
{ 

this->Navigate2 (str, NULL, NULL); 
) 


另外 在 文件 HTMLIView.cpp 中 还 定义 了 其 他 实现 函数 ， 具 体 代 码 如 下 : 


// 添 加 菜单 命令 消息 宏 
IMPLEMENT DYNCREATE (CHTML1View, CHtmlView) 
BEGIN MESSAGE MAP(CHTML1View, CHtmlView) 
//{{AFX MSG MAP (CHTML1View) 
ON COMMAND(ID REFRUSH, OnRefrush) 


ON COMMAND(ID VIEWMENU, OnViewmenu) 

ON COMMAND(ID VIEWRECORD, OnViewrecord) 

ON COMMAND(ID PRE, OnPre) 

ON COMMAND(ID NEXT, OnNext) 

ON BN CLICKED(IDC CONNECT, OnConnect) 

//)) AFX MSG MAP 

// Standard printing commands 

ON COMMAND(ID FILE PRINT, CHtmlView::OnFilePrint) 
END MESSAGE MAP() 
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// CHTML1View construction/destruction 


CHTML1View: :CHTML1View() 
{ 
) 


CHTML1View: :~CHTML1View() 
t 
) 


// 在 现 有 应 用 程序 中 更 改 样式 

BOOL CHTML1View: :PreCreateWindow (CREATESTRUCT &cs) 

f 
// TODO: Modify the Window class or styles here by modifying 
// the CREATESTRUCT cs 
return CHtmlView::PreCreateWindow (cs) ; 

) 


// 调 用 画 刷 
void CHTML1View: :OnDraw(CDC *pDC) 
t 
CHTML1Doc *pDoc = GetDocument (); 
ASSERT VALID (pDoc); 
// pDC-»SetBkMode (TRANSPARENT) ; 
// pDC->SetTextColor (RGB (255,0,0)); 
// TODO: add draw code for native data here 


} 


// 初 始 化 更 新 
void CHTML1View: :OnInitialUpdate() 


{ 
CHtmlView: :OnInitialUpdate(); 


// 设置 浏览 器 的 默认 主页 地 址 
getpage ( ("http://www.163.com/")); 
} 


#ifdef DEBUG 


void CHTMLlView::Dump(CDumpContext &dc) const 
t 
CHtmlView::Dump (dc); 


CHTML1Doc* CHTML1View::GetDocument() // non-debug version is inline 
t 
ASSERT (m pDocument-»IsKindOf (RUNTIME CLASS (CHTML1Doc) ) ) ; 
return (CHTML1Doc*)m pDocument; 
} 
#endif // DEBUG 


// 剧 新 按钮 响应 函数 

void CHTML1View: :OnRefrush () 

t 
// TODO: Add your command handler code here 
this-»Refresh(); 


void CHTML1View: :OnViewmenu () 


{ 
// TODO: Add your command handler code here 


void CHTML1View: :OnViewrecord () 
{ 

// TODO: Add your command handler code here 
} 


// 上 一 页 响应 函数 

void CHTML1View: :OnPre () 

{ 
// TODO: Add your command handler code here 
this-»GoBack|(); 

} 


// 下 一 页 响应 函数 

void CHTML1View: :OnNext () 

{ 
// TODO: Add your command handler code here 
this-»GoForward(); 

} 


// 访 问 响应 函数 
void CHTML1View: :OnConnect () 
t 
// TODO: Add your control notification handler code here 
this-»Navigate2 ("HTTP://www.163.com", 0, NULL, NULL, NULL, 0); 
} 


到 此 为 止 ， 整 个 实例 介绍 完毕 ， 执 行 后 的 效果 如 图 4-8 所 示 。 
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图 4-8 执行 效果 
44 小 试 牛 刀 一 一 使 用 浏览 器 控件 打造 一 个 网 页 浏览 器 


在 Visual C++ 6.0 中 ， 可 以 使 用 Microsoft Web 浏览 器 控件 开发 浏览 器 客户 端 。 接 下 来 
将 介绍 在 MFC 中 使 用 Microsoft Web 浏览 器 控件 的 基本 方法 。 
实例 功能 使 用 Microsoft Web 浏览 器 控件 开发 一 个 网 页 浏览 器 
光盘 \yuanmavAHTTP 
4.4.1 建立 MFC 工 程 
(1) 以 Visual C++ 6.0 新 建 一 个 MFC 工程 ， 将 工程 类 型 设置 为 单 文档 ， 如 图 4-9 所 示 。 


KIE 


中 文 [中 国 ] (APPWZCHS.DLL) = 


图 4-9 工程 类 型 设置 为 单 文档 
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Q) 在 第 4 步 (Step 4) 中 将 工具 栏 样式 设置 为 类 似 正 样式， 如 图 4-10 所 示 。 


TT a 


4-10 ”设置 为 类 似 IE 样 式 
(3) 在 第 6 步 (Step 6) 中 单 击 Finish 按钮 完成 工程 创建 ， 如 图 4-11 所 示 。 


CMy123View 


图 4-11 单 击 Finish 按 钮 完成 工程 创建 


442 添加 控件 


(1) 依次 选择 Project Add To Project—New 菜单 命令 ， 可 以 为 此 工程 添加 新 的 控件 ， 
如 图 4-12 所 示 。 


412 ”添加 新 控件 


(2) 选择 Components and Controls 菜单 命令 (如 图 4-13 所 示 )， 来 到 插入 组 件 对 话 框 界 
面 ， 如 图 4-14 所 示 。 


Bl Worksp: 
E-E 123 files 


413 ”插入 组 件 
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4-14 ”插入 组 件 对 话 框 


(3) 双击 Registered ActiveX Controls 文件 夹 ， 选 择 Microsoft Web Browser 组 件 并 单 击 
Insert 按钮 ， 如 图 4-15 所 示 。 

(4) 在 弹出 的 对 话 框 中 单 击 OK 按钮 ， 将 Microsoft Web Browser 组 件 添加 到 本 工程 
中 ， 如 图 4-16 所 示 。 


Æ 4-15 插入 Microsoft Web Browser 组 件 


4-16 单 击 OK 按钮 


4.4.3 创建 CWebBrowser2 对 象 


插入 浏览 器 组 件 之 后 ， 需 要 为 其 创建 组 件 类 对 象 ， 然 后 调用 此 对 象 的 相应 方法 来 实现 
网 页 浏览 功能 。 

(1) 编写 定义 类 的 头 文件 webbrowser2.h， 在 里 面 定义 组 件 类 对 象 ， 并 定义 实现 浏览 功 
能 的 方法 。 具 体 代码 如 下 : 

class CWebBrowser2 : public CWnd 


ji 
protected: 

DECLARE DYNCREATE (CWebBrowser2) 
public: 

CLSID const& GetClsid() 

t 


static CLSID const clsid 
= ( 0x8856f961, 0x340a, 0x11d0, 
{ Oxa9, Ox6b, 0x0, OxcO, Ox4f, Oxd7, 0x5, Oxa2 } }; 
return clsid; 
} 
virtual BOOL Create(LPCTSTR lpszClassName, 
LPCTSTR lpszWindowName, DWORD dwStyle, 
const RECT &rect, 
CWnd *pParentWnd, UINT nID, 
CCreateContext *pContext-NULL) 
( return CreateControl(GetClsid(), lpszWindowName, 
dwStyle, rect, pParentWnd, nID); } 


BOOL Create (LPCTSTR lpszWindowName, DWORD dwStyle, 
const RECT &rect, CWnd *pParentWnd, UINT nID, 
CFile *pPersist-NULL, BOOL bStorage-FALSE, 
BSTR bstrLicKey-NULL) 
{ return CreateControl(GetClsid(), lpszWindowName, 
dwStyle, rect, pParentWnd, nID, pPersist, bStorage, bstrLicKey); ) 


// Attributes 
public: 


// Operations 
public: 
void GoBack(); 
void GoForward(); 
void GoHome () ; 
void GoSearch(); 
void Navigate(LPCTSTR URL, VARIANT *Flags, 
VARIANT *TargetFrameName, VARIANT *PostData, VARIANT *Headers); 
void Refresh(); 
void Refresh2 (VARIANT *Level) ; 
void Stop(); 
LPDISPATCH GetApplication(); 
LPDISPATCH GetParent (); 


LPDISPATCH GetContainer(); 

LPDISPATCH GetDocument () ; 

BOOL GetTopLevelContainer(); 

CString GetType(); 

long GetLeft(); 

void SetLeft (long nNewValue); 

long GetTop(); 

void SetTop(long nNewValue); 

long GetWidth(); 

void SetWidth(long nNewValue); 

long GetHeight (); 

void SetHeight (long nNewValue) ; 

CString GetLocationName () ; 

CString GetLocationURL () ; 

BOOL GetBusy(); 

void Quit(); 

void ClientToWindow (long *pcx, long *pcy); 

void PutProperty(LPCTSTR Property , const VARIANT& vtValue); 

VARIANT GetProperty (LPCTSTR Property ); 

CString GetName () 7 

long GetHwnd(); 

CString GetFullName () ; 

CString GetPath(); 

BOOL GetVisible(); 

void SetVisible (BOOL bNewValue) ; 

BOOL GetStatusBar (); 

void SetStatusBar(BOOL bNewValue) ; 

CString GetStatusText (); 

void SetStatusText (LPCTSTR lpszNewValue) ; 

long GetToolBar(); 

void SetToolBar(long nNewValue); 

BOOL GetMenuBar(); 

void SetMenuBar (BOOL bNewValue); 

BOOL GetFullScreen(); 

void SetFullScreen(BOOL bNewValue); 

void Navigate2 (VARIANT *URL, VARIANT *Flags, 
VARIANT *TargetFrameName, VARIANT *PostData, VARIANT *Headers); 

long QueryStatusWB (long cmdID); 

void ExecWB(long cmdID, long cmdexecopt, 
VARIANT *pvaIn, VARIANT *pvaOut); 

void ShowBrowserBar(VARIANT *pvaClsid, 
VARIANT *pvarShow, VARIANT *pvarSize) ; 

long GetReadyState(); 

BOOL GetOffline(); 

void Setoffline (BOOL bNewValue) ; 

BOOL GetSilent(); 

void SetSilent (BOOL bNewValue); 

BOOL GetRegisterAsBrowser(); 

void SetRegisterAsBrowser (BOOL bNewValue); 

BOOL GetRegisterAsDropTarget (); 

void SetRegisterAsDropTarget (BOOL bNewValue); 

BOOL GetTheaterMode () ; 

void SetTheaterMode (BOOL bNewValue) ; 


BOOL GetAddressBar (); 

void SetAddressBar (BOOL bNewValue); 
BOOL GetResizable(); 

void SetResizable (BOOL bNewValue); 


n 


(2) 在 文件 webbrowser2.cpp 中 定义 各 个 方法 的 具体 实现 ， 以 实现 浏览 器 的 各 个 功 
能 。 具 体 代 码 如 下 : 


// 得 到 当前 应 用 对 象 的 句柄 

LPDISPATCH CWebBrowser2: :GetApplication () 

{ 
LPDISPATCH result; 
InvokeHelper (0xc8, DISPATCH PROPERTYGET, VT DISPATCH, (void*)&result, NULL); 
return result; 


h 

// 得 到 父 页 

LPDISPATCH CWebBrowser2::GetParent () 

t 
LPDISPATCH result; 
InvokeHelper(0xc9, DISPATCH PROPERTYGET, VT DISPATCH, (void*)&result, NULL); 
return result; 


H 

// 得 到 容器 

LPDISPATCH CWebBrowser2: :GetContainer () 

{ 
LPDISPATCH result; 
InvokeHelper(0xca, DISPATCH PROPERTYGET, VT DISPATCH, (void*)&result, NULL); 
return result; 


b 

// 获 取 字符 串 

LPDISPATCH CWebBrowser2: :GetDocument () 

{ 
LPDISPATCH result; 
InvokeHelper (0xcb, DISPATCH PROPERTYGET, VT DISPATCH, (void*)&result, NULL); 
return result; 


} 

// 得 到 最 高 级 容器 

BOOL CWebBrowser2: :GetTopLevelContainer () 

{ 
BOOL result; 
InvokeHelper(0xcc, DISPATCH PROPERTYGET, VT BOOL, (void*)&result, NULL); 
return result; 

} 


// 设 置 集合 可 重新 调整 
void CWebBrowser2::SetResizable (BOOL bNewValue) 
t 
static BYTE parms[] = VTS BOOL; 
InvokeHelper(0x22c, DISPATCH PROPERTYPUT, VT EMPTY, NULL, parms, bNewValue); 


到 此 为 止 ， 使 用 Microsoft Web 浏览 器 控件 开发 浏览 器 客户 端的 工作 结束 。 本 节 的 实 
例 和 上 一 节 的 实例 合 在 了 一 起 ， 都 保存 在 “光盘 \yuanmaM4\HTTP” 目 录 下 ， 读 者 在 浏览 时 
需要 注意 用 “//” 标 识 的 代码 ， 使 用 “//” 标 识 后 的 代码 不 再 起 作用 。 本 实例 执行 后 的 效果 
如 图 4-17 所 示 。 
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自从 互联 网 诞生 那 一 刻 起 ， 人 们 之 间 日 常 交互 的 方式 又 多 了 一 
种 新 的 渠道 。 从 此 以 后 ， 交 流 变 得 更 加 迅速 快捷 ， 更 具有 实时 性 。 
一 时 之 间 ， 很 多 网 络 通讯 产品 出 现在 大 家 面前 ， 例 如 QQ、MSN 和 


AN 
C+ 网 络 编程 开发 与 实战 


5.1 邮件 是 一 种 全 新 的 通信 方式 


电子 邮件 简称 E-mail， 又 称 电子 信箱 、 电 子 邮 政 ， 它 是 一 种 用 电子 手段 提供 信息 交换 
的 通信 方式 ， 是 Intemet 应 用 最 广 的 服务 。 通 过 网 络 的 电子 邮件 系统 ， 用 户 可 以 用 非常 低 
廉 的 价格 (不 管 发 送 到 哪里 ， 都 只 需 负 担 电话 费 和 网 费 即 可 )， 以 非常 快速 的 方式 ( 几 秒 钟 之 
内 可 以 发 送 到 世界 上 任何 你 指定 的 目的 地 )， 与 世界 上 任何 一 个 角落 的 网 络 用 户 联系 ， 这 些 
电子 邮件 可 以 是 文字 、 图 像 、 声 音 等 各 种 方式 。 同 时 ， 用 户 可 以 得 到 大 量 免费 的 新 闻 、 专 
题 邮 件 ， 并 实现 轻松 的 信息 搜索 。Windows 系统 自 带 了 邮件 工具 ， 如 图 5-1 所 示 。 


图 5-1 Windows 自 带 的 邮件 工具 


5.1.1 电子 邮件 原理 


可 以 很 形象 地 用 我 们 日 常生 活 中 的 邮寄 包 吾 来 形容 电子 邮件 。 当 需要 寄 送 一 个 包 吾 的 
时 候 ， 首 先 要 找到 任何 一 个 有 这 项 业务 的 邮局 ， 在 填写 完 收 件 人 姓名 、 地 址 等 之 后 ， 包 于 
就 寄 出 ， 到 达 收 件 人 所 在 地 的 邮局 ， 那 么 对 方 取 包 庄 的 时 候 就 必须 去 这 个 邮局 才能 取出 。 

同样 ， 当 发 送 电子 邮件 的 时 候 ， 这 封 邮 件 是 由 邮件 发 送 服务 器 (任何 一 个 都 可 以 ) 发 
出 ， 并 根据 收 信人 的 地 址 判断 对 方 的 邮件 接收 服务 器 ， 而 将 这 封 信 发 送 到 该 服务 器 上 ， 收 
信人 要 收取 邮件 时 ， 也 只 能 通过 访问 这 个 服务 器 才能 够 完成 。 

电子 邮件 地 址 的 格式 由 三 部 分 组 成 。 第 一 部 分 为 用 户 信箱 的 账号 ， 对 于 同一 个 邮件 接 
收服 务 器 来 说 ， 这 个 账号 必须 是 唯一 的 ; 第 二 部 分 是 @ 分 隔 符 ; 第 三 部 分 是 用 户 信箱 的 邮 
件 接收 服务 器 域名 ， 用 以 标志 其 所 在 的 位 置 。 例 如 : 

u  bjznyl23(2126.com 

Q  zhangjing1985(2)163.com 
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5.1.2 邮件 协议 


邮件 发 送 功能 是 基于 邮件 协议 的 ， 常 见 的 电子 邮件 协议 有 SMTP( 简 单 邮 件 传输 协 
议 )、POP3( 邮 局 协议 )、IMAP(Intemet 邮件 访问 协议 )。 这 几 种 协议 都 是 由 TCP/IP 协议 族 定 
义 的 。 

(1) SMTP: 是 Simple Mail Transfer Protocol 的 缩写 ， 主 要 负责 底层 的 邮件 系统 如 何 将 
邮件 从 一 台 机 器 传 至 另外 一 台 机 器 。 

(2) POP: 是 Post Office Protocol 的 缩写 ， 目 前 的 版 本 为 POP3，POP3 是 把 邮件 从 电 
子 邮箱 中 传输 到 本 地 计算 机 的 协议 。 

(3) IMAP: 是 Internet Message Access Protocol 的 缩写 ， 目 前 的 版 本 为 IMAP4， 是 
POP3 的 一 种 替代 协议 ， 提 供 了 邮件 检索 和 邮件 处 理 的 新 功能 ， 这 样 用户 可 以 完全 不 必 下 
载 邮件 正文 就 可 以 看 到 邮件 的 标题 摘要 ， 从 邮件 客户 端 软 件 就 可 以 对 服务 器 上 的 邮件 和 文 
件 夹 目录 等 进行 操作 。IMAP 协议 增强 了 电子 邮件 的 灵活 性 ， 同 时 也 减少 了 垃圾 邮件 对 本 
地 系统 的 直接 危害 ， 同 时 相对 节省 了 用 户 查 看 电子 邮件 的 时 间 。 除 此 之 外 ，IMAP 协议 可 
以 记忆 用 户 在 脱 机 状态 下 对 邮件 的 操作 (例如 移动 邮件 、 删 除 邮件 等 ) 在 下 一 次 打开 网 络 连 
接 的 时 候 会 自动 执行 。 

当前 的 两 种 邮件 接收 协议 和 一 种 邮件 发 送 协 议 都 支持 安全 的 服务 器 连接 (SSL)。 在 大 多 
数 流行 的 电子 邮件 客户 端 程序 里 面 都 集成 了 对 SSL 的 支持 。 除 此 之 外 ， 很 多 加 密 技 术 也 应 
用 到 电子 邮件 的 发 送 接收 和 阅读 过 程 中 。 它 们 可 以 提供 128 位 到 2048 位 不 等 的 加 密 强 
度 。 无 论 是 单 向 加 密 还 是 对 称 密 钥 加 密 ， 也 都 得 到 广泛 支持 。 


5.2 邮件 系统 编程 


了 解 了 电子 邮件 的 基本 知识 之 后 ， 从 本 节 开 始 ， 讲 解 使 用 Visual C++ 开发 电子 邮件 系 
统 的 基本 知识 。 要 想 使 用 编程 方式 实现 邮件 发 送 功能 ， 既 可 以 采用 调用 Windows 自 带 邮件 
发 送 程序 的 方式 实现 ， 也 可 以 采用 SMTP 协议 编程 来 实现 。 


5.2.1 调用 Windows 自 带 的 邮件 发 送 程序 


Windows 系统 自 带 Outlook Express， 通 过 Outlook Express 可 以 发 送 电子 邮件 。 在 操作 
系统 中 ， 可 以 使 用 操作 系统 命令 打开 邮件 程序 。 如 果 想 在 自己 编写 的 程序 中 调用 Outlook 
Express， 则 需要 使 用 函数 CreateProcess() 或 函数 ShellExecute() 来 调用 。 


1. 调用 Windows 进 程 


(1) 依次 选择 “开始 ”一 “运行 ”命令 ， 如 图 5-2 所 示 。 
(2) 在 弹出 的 “运行 ”对 话 框 中 ， 输 入 命令 “mailto:bjrzny123@126.com”， 如 图 5-3 
所 示 。 


5-2 “运行 ”命令 图 5-3 输入 命令 
(3) 此 时 会 调用 Outlook Express， 弹 出 编写 邮件 界面 ， 如 图 5-4 所 示 。 


[=I5Ix] 


图 5-4 编写 邮件 界面 
2. 使 用 CreateProcess() 函 数 


函数 CreateProcess() 是 一 个 Win32 API 函数 ， 用 来 创建 一 个 新 的 进程 和 它 的 主线 程 ， 
这 个 新 进程 运行 指定 的 可 执行 文件 。 函 数 CreateProcessO 的 原型 如 下 : 


BOOL CreateProcess 
( 
LPCTSTR lpApplicationName, 
LPTSTR lpCommandLine, 
LPSECURITY ATTRIBUTES lpProcessAttributes, 
LPSECURITY ATTRIBUTES lpThreadAttributes, 
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BOOL bInheritHandles, 

DWORD dwCreationFlags, 

LPVOID lpEnvironment, 

LPCTSTR lpCurrentDirectory, 

LPSTARTUPINFO lpStartupInfo, 

LPPROCESS INFORMATION lpProcessInformation 

) 7 

各 个 参数 的 具体 说 明 如 下 。 

(1) IpApplicationName: 指向 一 个 NULL 结尾 的 、 用 来 指定 可 执行 模块 的 字符 串 。 这 
个 字符 串 可 以 是 可 执行 模块 的 绝对 路 径 ， 也 可 以 是 相对 路 径 ， 在 后 一 种 情况 下 ， 函 数 使 用 
当前 驱动 器 和 目录 建立 可 执行 模块 的 路 径 。 这 个 参数 可 以 被 设置 为 NULL， 此 时 可 执行 模 
块 的 名 字 必 须 处 于 IpCommandLine 参数 的 最 前 面 ， 并 由 空格 符 与 后 面 的 字符 分 开 。 

这 个 被 指定 的 模块 可 以 是 一 个 Win32 应 用 程序 。 如 果 适 当 的 子 系统 在 当前 计算 机 上 可 
用 的 话 ， 它 也 可 以 是 其 他 类 型 的 模块 (如 MS-DOS 或 OS/2). 

在 Windows NT 中 ， 如 果 可 执行 模块 是 一 个 16 位 的 应 用 程序 ， 那 么 这 个 参数 应 该 被 设 
HA NULL 并 且 应 该 在 IpCommandLine 参数 中 指定 可 执行 模块 的 名 称 。16 位 的 应 用 程序 
是 以 DOS 虚拟 机 或 Win32 上 的 Windows(WOW) 进 程 的 方式 运行 。 

(2) lpCommandLine: 指向 一 个 NULL 结尾 的 要 运行 的 命令 行 。 此 参数 可 以 为 空 ， 那 么 
函数 将 使 用 参数 指定 的 字符 串 当 作 要 运行 的 程序 的 命令 行 。 如 果 IpApplicationName 和 
IpCommandLine ZARAZ, HSA IpApplicaionName 参数 指定 将 要 被 运行 的 模块 ， 
IpCommandLine 参数 指定 将 被 运行 的 模块 的 命令 行 。 新 运行 的 进程 可 以 使 用 GetCommandLine 
函数 获得 整个 命令 行 。 

如 果 IpApplicationName 参数 为 空 ， 那 么 这 个 字符 串 中 的 第 一 个 被 空格 分 隔 的 要 素 指 定 
可 执行 模块 名 。 如 果 文件 名 不 包含 扩展 名 ， 那 么 .exe 将 被 假定 为 默认 的 扩展 名 。 如 果 文 件 
名 以 一 个 点 () 结 尾 且 没有 扩展 名 ， 或 文件 名 中 包含 路 径 ，.exe 将 不 会 被 加 到 后 面 。 

如 果 被 创建 的 进程 是 一 个 以 MS-DOS 或 16 位 Windows 为 基础 的 应 用 程序 ， 
IpCommandLine 参数 应 该 是 一 个 以 可 执行 文件 的 文件 名 作为 第 一 个 要 素 的 绝对 路 径 ， 因 
为 这 样 做 可 以 使 32 位 Windows 程序 工作 得 很 好 ， 这 样 设 置 IpCommandLine 参数 是 最 强 
壮 的 。 

(3) IpProcessAttributes: 指向 一 个 SECURITY ATTRIBUTES 结构 体 ， 这 个 结构 体 决 
定 是 否 返 回 的 句柄 可 以 被 子 进程 继承 。 如 果 IpProcessAttributes 参数 为 空 NULL)， 那 么 名 
柄 不 能 被 继承 。 

在 Windows NT 中 ，SECURITY ATTRIBUTES 结构 的 IpSecurityDescriptor 成 员 指定 
了 新 进程 的 安全 描述 符 ， 如 果 参 数 为 空 ， 新 进程 使 用 默认 的 安全 描述 符 。 

在 Windows 95 中 SECURITY ATTRIBUTES 结构 的 IpSecurityDescriptor 成 员 被 忽略 。 

(4) bInheritHandles: 指示 新 进程 是 否 从 调用 进程 处 继承 了 句柄 。 如 果 参 数 的 值 为 
真 ， 调 用 进程 中 的 每 一 个 可 继承 的 打开 句柄 都 将 被 子 进 程 继 承 。 被 继承 的 句柄 与 原 进程 拥 
有 完全 相同 的 值 和 访问 权限 。 

(5) dwCreationFlags: 指定 附加 的 、 用 来 控制 优先 类 和 进程 的 创建 的 标志 。 以 下 的 创 
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建 标 志 可 以 以 除 下 面 列 出 的 方式 外 的 任何 方式 组 合 后 指定 。 


口 


CREATE DEFAULT ERROR MODE: 新 的 进程 不 继承 调用 进程 的 错误 模式 。 
CreateProcess 函数 赋予 新 进程 当前 的 默认 错误 模式 作为 替代 。 应 用 程序 可 以 调用 
SetErrorMode 函数 设置 当前 的 默认 错误 模式 。 此 标志 对 于 那些 运行 在 没有 硬件 错 
误 环 境 下 的 多 线程 外 壳 程 序 是 十 分 有 用 的 。 对 于 CreateProcess 函数 ， 默 认 的 行为 
是 为 新 进程 继承 调用 者 的 错误 模式 。 设 置 这 个 标志 以 改变 默认 的 处 理 方式 。 
CREATE NEW_CONSOLE: 新 的 进程 将 使 用 一 个 新 的 控制 台 ， 而 不 是 继承 父 进 
程 的 控制 台 。 这 个 标志 不 能 与 DETACHED_PROCESS 标志 一 起 使 用 。 

CREATE NEW PROCESS GROUP: 新 进程 将 是 一 个 进程 树 的 根 进程 。 进 程 树 
中 的 全 部 进程 都 是 根 进程 的 子 进程 。 新 进程 树 的 用 户 标 识 符 与 这 个 进程 的 标识 符 
是 相同 的 ， 由 IpProcessInformation 参数 返回 。 进 程 树 经 常 使 用 GenerateConsole 
CtrlEvent 函数 允许 发 送 CTRL+C 或 CTRL+BREAK 信号 到 一 组 控制 台 进程 。 
CREATE SEPARATE WOW_VDM: 只 适用 于 Windows NT， 此 标志 只 有 当 运 行 
一 个 16 位 的 Windows 应 用 程序 时 才 是 有 效 的 。 如 果 被 设置 ， 新 进程 将 会 在 一 个 
私有 的 虚拟 DOS 机 (VDM) 中 运行 。 另 外 ， 默 认 情况 下 所 有 的 16 位 Windows 应 用 
程序 都 会 在 同一 个 共享 的 VDM 中 以 线程 的 方式 运行 。 单 独 运行 一 个 16 位 程序 的 
优点 是 一 个 应 用 程序 的 崩溃 只 会 结束 这 一 个 VDM 的 运行 ， 其 他 那些 在 不 同 
VDM 中 运行 的 程序 会 继续 正常 的 运行 。 同 样 地 ， 在 不 同 VDM 中 运行 的 16 位 
Windows 应 用 程序 拥有 不 同 的 输入 队列 ， 这 意味 着 如 果 一 个 程序 暂时 失去 响应 ， 
在 独立 的 VDM 中 的 应 用 程序 能 够 继续 获得 输入 。 

CREATE SHARED WOW VDM: 只 适用 于 Windows NT， 此 标志 只 有 当 运 行 一 
个 16 位 的 Windows 应 用 程序 时 才 是 有 效 的 。 如 果 WIN.INI 中 的 Windows 段 的 
DefaultSeparateVDM 选项 被 设置 为 真 ， 这 个 标识 使 得 CreateProcess 函数 越过 这 个 
选项 并 在 共享 的 虚拟 DOS 机 中 运行 新 进程 。 

CREATE SUSPENDED: 新 进程 的 主线 程 会 以 暂停 的 状态 被 创建 ， 直 到 调用 
ResumeThread 函数 时 才 运 行 。 

CREATE _ UNICODE ENVIRONMENT: 如 果 被 设置 ， 由 IpEnvironment 参数 指定 
的 环境 块 使 用 Unicode 字符 ， 如 果 为 空 ， 环 境 块 使 用 ANSI 字 符 。 

DEBUG PROCESS: 如 果 这 个 标志 被 设置 ， 调 用 进程 将 被 当 作 一 个 调试 程序 ， 并 
且 新 进程 会 被 当 作 被 调试 的 进程 。 系 统 把 被 调试 程序 发 生 的 所 有 调试 事件 通知 给 
调试 器 。 如 果 使 用 此 标志 创建 进程 ， 只 有 调用 进程 (调用 CreateProcess 函数 的 进 
程 ) 可 以 调用 WaitForDebugEvent 函数 。 

DEBUG ONLY THIS PROCESS: 如 果 此 标志 没有 被 设置 且 调 用 进程 正在 被 调 
试 ， 新 进程 将 成 为 调试 调用 进程 的 调试 器 的 另 一 个 调试 对 象 。 如 果 调 用 进程 没有 
被 调试 ， 有 关 调 试 的 行为 就 不 会 产生 

DETACHED PROCESS: 对 于 控制 台 进程 ， 新 进程 没有 访问 父 进 程控 制 台 的 权 
限 。 新 进程 可 以 通过 AllocConsole 函数 自己 创建 一 个 新 的 控制 台 。 这 个 标志 不 可 
以 与 CREATE NEW CONSOLE 标志 一 起 使 用 。 
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dwCreationFlags 参数 还 可 以 控制 新 进程 的 优先 类 ， 优 先 类 用 来 决定 此 进程 的 线程 调度 
的 优先 级 。 如 果 下 面 列 出 的 优先 级 类 标志 都 没有 被 指定 ， 那 么 默认 的 优先 类 是 NORMAL - 
PRIORITY _ CLASS， 除非 被 创建 的 进程 是 IDLE PRIORITY _ CLASS。 在 这 种 情况 下 子 进 
程 的 默认 优先 类 是 IDLE PRIORITY CLASS。 可 以 为 下 面 的 标志 之 一 。 
Q HIGH PRIORITY CLASS: 指示 这 个 进程 将 执行 时 间 临 界 的 任务 ， 所 以 它 必 须 被 
立即 运行 以 保证 正确 。 这 个 优先 级 的 程序 优先 于 正常 优先 级 或 空闲 优先 级 的 程 
序 。 一 个 例子 是 Windows 任务 列表 ， 为 了 保证 当 用 户 调用 时 可 以 立刻 响应 ， 放 弃 
了 对 系统 负荷 的 考虑 。 确 保 在 使 用 高 优先 级 时 应 该 足够 谨慎 ， 因 为 一 个 高 优先 级 
的 CPU 关联 应 用 程序 可 以 占用 几乎 全 部 的 CPU 可 用 时 间 。 

Q IDLE PRIORITY CLASS: 指示 这 个 进程 的 线程 只 有 在 系统 空闲 时 才 会 运行 并 可 
以 被 任何 高 优先 级 的 任务 打 断 。 例 如 屏幕 保护 程序 。 空 闲 优先 级 会 被 子 进程 继承 。 

Q NORMAL PRIORITY CLASS: 指示 这 个 进程 没有 特殊 的 任务 调度 要 求 。 

口 REALTIME PRIORITY CLASS: 指示 这 个 进程 拥有 可 用 的 最 高 优先 级 。 一 个 拥 
有 实时 优先 级 的 进程 的 线程 可 以 打 断 所 有 其 他 进程 线程 的 执行 ， 包 括 正 在 执行 重 
要 任务 的 系统 进程 。 例 如 ， 一 个 执行 时 间 稍 长 一 点 的 实时 进程 可 能 导致 磁盘 缓存 
不 足 或 鼠标 反应 迟钝 。 

(6) IpEnvironment: 指向 一 个 新 进程 的 环境 块 。 如 果 此 参数 为 空 ， 新 进程 使 用 调用 进 
程 的 环境 。 一 个 环境 块 存在 于 一 个 由 以 NULL 结尾 的 字符 串 组 成 的 块 中 ， 这 个 块 也 是 以 
NULL 结尾 的 。 每 个 字符 串 都 是 name=value 的 形式 。 

(7) IpCurrentDirectory: 指向 一 个 以 NULL 结尾 的 字符 串 ， 这 个 字符 串 用 来 指定 子 进 
程 的 工作 路 径 。 这 个 字符 串 必 须 是 一 个 包含 驱动 器 名 的 绝对 路 径 。 如 果 这 个 参数 为 空 ， 新 
进程 将 使 用 与 调用 进程 相同 的 驱动 器 和 目录 。 这 个 选项 是 一 个 需要 启动 应 用 程序 并 指定 它 
们 的 驱动 器 和 工作 目录 的 外 壳 程 序 的 主要 条 件 。 

(8) IpStartupInfo: 指向 一 个 用 于 决定 新 进程 的 主 窗 体 如 何 显示 的 STARTUPINFO £i 
构 体 。 

(9) IpProcessInformation: 指向 一 个 用 来 接收 新 进程 的 识别 信息 的 PROCESS_INFOR- 
MATION 结构 体 。 


3. 使 用 函数 ShellExecute() 
ShellExecute 函数 定义 格式 如 下 : 


HINSTANCE ShellExecute (HWND hWnd, 
LPCTSTR lpOperation, LPCTSTR lpFile, 
LPCTSTR lpParameters, LPCTSTR lpDirectory, 
INT nShowCmd) ; 

各 个 参数 的 具体 说 明 如 下 。 

Q hWnd: 用 于 指定 父 窗口 句柄 。 当 函数 调用 过 程 出 现 错误 时 ， 它 将 作为 Windows 
消息 窗口 的 父 窗口 。 例 如 可 设置 为 应 用 程序 主 窗口 句柄 (Application.Handle)， 也 
可 以 将 其 设置 为 桌面 窗口 句柄 (用 GetDesktopWindow 函数 获得 )。 

Q IpOperation: 用 于 指定 要 进行 的 操作 。 其 中 “open” 操 作 表 示 执 行 由 FileName 参 
数 指定 的 程序 ， 或 打开 由 FileName 参数 指定 的 文件 或 文件 来， 而 “print” 操 作 表 
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示 打 印 由 FileName 参数 指定 的 文件 ， 另 外 “explore” 操 作 表 示 浏 览 由 FileName 
参数 指定 的 文件 夹 。 当 参数 设 为 nil 时 ， 表 示 执 行 默认 操作 “open”。 
a ”lpFile: 用 于 指定 要 打开 的 文件 名 、 要 执行 的 程序 文件 名 或 要 浏览 的 文件 夹 名 。 
ū lpParameters: #7 lpFile 参数 是 一 个 可 执行 程序 ， 则 此 参数 指定 命令 行 参数 ， 否 则 
此 参数 应 为 NULL. 
O ”lpDirectory: 用 于 指定 默认 目录 。 
Q nShowCmd: 如 果 IpFile 参数 是 一 个 可 执行 程序 ， 则 此 参数 指定 程序 窗口 的 初始 
显示 方式 ， 否 则 此 参数 应 设置 为 0。 
如 果 ShellExecute 函数 调用 成 功 ， 则 返回 值 为 被 执行 程序 的 实例 句柄 。 若 返回 值 小 于 
32， 则 表示 出 现 错误 。 
4. 函数 ShellIExecute() 的 特殊 用 法 
如 果 将 FileName 参数 设置 为 “http:” 协 议 格式 ， 那 么 该 函数 将 打开 默认 浏览 器 并 链接 
到 指定 的 URL 地 址 。 如 果 用 户 的 机 器 中 安装 了 多 个 浏览 器 ， 则 该 函数 将 根据 Windows 
9x/NT 注册 表 中 http 协议 处 理 程序 (Protocols Handler) 的 设置 确定 启动 哪个 浏览 器 。 
格式 1 一 一 “http:// 网 站 域名 ”， 例 如 : 
ShellExecute (handle, 'open', 'http://www.neu.edu.cn', 
nil, nil, SW_SHOWNORMAL) ; 
格式 2 一 一 “http:// 网 站 域名 /网 页 文件 名 ”， 例 如 : 
ShellExecute (handle, 'open', 'http://www.neu.edu.cn/default.htm', 
nil, nil, SW_SHOWNORMAL) ; 
如 果 将 FileName 参数 设置 为 “mailto:” 协 议 格式 ， 那 么 该 函数 将 启动 默认 邮件 客户 程 
序 ， 如 Microsoft Outlook( 也 包括 Microsoft Outlook Express) 或 Netscape Messanger。 若 用 户 
机 器 中 安装 了 多 个 邮件 客户 程序 ， 则 该 函数 将 根据 Windows 9x/NT 注册 表 中 mailto 协议 处 
理 程序 的 设置 确定 启动 哪个 邮件 客户 程序 。 
格式 1 一 一 “mailto:”， 例 如 : 


ShellExecute (handle, 'open', 'mailto:', nil, nil, SW SHOWNORMAL); 


这 样 可 以 打开 新 邮件 窗口 。 
格式 2 一 一 “mailto: 用 户 账号 @ 邮 件 服务 器 地 址 ”， 例 如 : 


ShellExecute (handle, 'open', ' mailto:who@mail.neu.edu.cn', 
nil, nil, SW SHOWNORMAL); 
这 样 可 以 打开 新 邮件 窗口 ， 并 自动 填 入 收 件 人 地 址 。 若 指定 多 个 收 件 人 地 址 ， 则 收 件 
人 地 址 之 间 必 须 用 分 号 或 逗号 分 隔 开 ( 下 同 )。 
格式 3 一 一 “mailto: 用 户 账号 @ 邮 件 服务 器 地 址 ?subject= 邮 件 主题 &body= 邮 件 正文 ”， 
例如 : 
ShellExecute (handle, 'open', 


"mailto:who@mail.neu.edu.cn?subject=Hello&Body=This is a test', 
nil, nil, SW_SHOWNORMAL) ; 
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这 样 打开 新 邮件 窗口 ， 并 自动 填 入 收 件 人 地 址 、 邮 件 主 题 和 邮件 正文 。 若 邮件 正文 包 
括 多 行文 本 ， 则 必须 在 每 行文 本 之 间 加 入 换行 转 义 字符 %0a。 

为 了 加 深 读者 对 函数 ShellExecute() 的 理解 ， 看 下 面 一 段 邮 件 发 送 代 码 : 

#include <stdio.h> 

#include <windows.h> 


main() 
{ 


int i = 0; 

char ch; 

bool a = true; 
printf(" 打 开 邮 件 程序 ! (Y/N) Nn") ; 
scanf("$c", &ch); 

if(ch=="Y' || ch=='y") 


{ 
printE(" 邮 件 程序 正在 打开 ……\n") ; 
while(i <= 10) 
t 
i += 1; 
} 
::ShellExecute (NULL, NULL, "mailto:bjrzny123@126.com", 
NULL, NULL, SW SHOW); 
printf ("邮件 程序 已 经 打开 ! Nn") ; 
i 
else 
{ 
printf (" 谢 谢 使 用 ! \n") ; 
) 


return true; 
) 


在 上 述 代 码 中 ， 通 过 函数 ShellExecute0) 调 用 了 Windows 的 Outlook Express. 4472 
果 如 图 5-5 所 示 。 
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2.2 ” SMTP 协议 


SMTP(Simple Mail Transfer Protocol) 即 简单 邮件 传输 协议 ， 它 是 一 组 用 于 由 源 地 址 到 
的 地 址 传送 邮件 的 规则 ， 由 它 来 控制 信件 的 中 转 方式 。SMTP 协议 属于 TCP/IP 协议 族 ， 
帮助 每 台 计 算 机 在 发 送 或 中 转 信 件 时 找到 下 一 个 目的 地 。 通 过 SMTP 协议 所 指定 的 服务 
就 可 以 把 E-mail 寄 到 收 信人 的 服务 器 上 了 。SMTP 服务 器 则 是 遵循 SMTP 协议 的 发 送 
件 服务 器 ， 用 来 发 送 或 中 转发 出 的 电子 邮件 。 

1. 工作 过 程 
简单 邮件 传输 协议 (SMTP) 是 一 种 基于 文本 的 电子 邮件 传输 协议 ， 是 在 因特网 中 用 于 在 
件 服务 器 之 间 交 换 邮 件 的 协议 。SMTP 是 应 用 层 的 服务 ， 可 以 适应 于 各 种 网 络 系 统 。 


SMTP 的 命令 和 响应 都 是 基于 文本 的 ， 以 命令 行为 单位 ， 换 行 符 为 CRMLF。 响 应 信息 一 般 
只 有 一 行 ， 由 一 个 3 位 数 的 代码 开始 ， 后 面 可 附 上 很 简短 的 文字 说 明 。 


SMTP 要 经 过 建立 连接 、 传 送 邮件 和 释放 连接 3 个 阶段 。 具 体 过 程 如 下 。 
(1) 建立 TCP 连接 。 
(2) 客户 端 向 服务 器 发 送 HELLO 命令 以 标识 发 件 人 自己 的 身份 ， 然 后 客户 端 发 送 


MAIL 命令 。 


G) 服务 器 端 以 OK 作为 响应 ， 表 示 准 备 接收 。 

(4) 客户 端 发 送 RCPT 命令 。 

(5) 服务 器 端 表 示 是 否 愿意 为 收 件 人 接收 邮件 。 

(6) 协商 结束 ， 发 送 邮 件 ， 用 命令 DATA 发 送 输入 内 容 。 

(7) 结束 此 次 发 送 ， 用 QUIT 命令 退出 。 

SMTP 服务 器 基于 DNS 中 的 邮件 交换 (MX) 记 录 路 由 电子 邮件 。 电 子 邮 件 系 统 发 邮件 


时 是 根据 收 信人 的 地 址 后 级 来 定位 邮件 服务 器 的 。SMTP 通过 用 户 代理 程序 (UA) 完 成 邮件 


的 


编辑 、 收 取 和 阅读 等 功能 ， 通 过 邮件 传输 代理 程序 (MTA) 将 邮件 传送 到 目的 地 。 
2. SMTP 命 令 
SMTP 命令 是 发 送 于 SMTP 主机 之 间 的 ASCI 信 息 ， 常 用 的 SMTP 命令 如 表 5-1 所 示 。 


表 5-1 常用 的 SMTP 命 令 


命令 描 述 
DATA 开始 信息 写作 
EXPN<string> 验证 给 定 的 邮箱 列表 是 否 存 在 ， 扩 充 邮 箱 列表 ， 也 常 被 禁用 
HELO<domain> 向 服务 器 标识 用 户 身份 ， 返 回 邮件 服务 器 身份 


HELP<command> 查询 服务 器 支持 什么 命令 ， 返 回 命令 中 的 信息 
MAIL FROM<host> 在 主机 上 初始 化 一 个 邮件 会 话 


NOOP 无 操作 ， 服 务 器 应 响应 OK 
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续 表 
命令 描 述 
QUIT 终止 邮件 会 话 
RCPT TO<user> 标识 单个 的 邮件 接收 入; 常 在 MAIL 命令 后 面 可 有 多 个 RCPT TO 
RSET 重 置 会 话 ， 当 前 传输 被 取消 
SAML FROM<host> | 发 送 邮 件 到 用 户 终端 和 邮箱 
SEND FROM<host> 发 送 邮件 到 用 户 终端 
SOML FROM<host> | 发 送 邮 件 到 用 户 终端 或 邮箱 
TURN 接收 端 和 发 送 端 交换 角色 
VRFY<user> 用 于 验证 指定 的 用 户 /邮箱 是 否 存在 ， 由 于 安全 方面 的 原因 ， 服 务 器 常 禁止 此 
命令 


3. 邮件 路 由 过 程 


SMTP 服务 器 基于 域名 服务 DNS 中 计划 收 件 人 的 域名 来 路 由 电子 邮件 。SMTP 服务 器 
基于 DNS 中 的 MX 记录 来 路 由 电子 邮件 ，MX 记录 注册 了 域名 和 相关 的 SMTP PAE 
机 ， 属 于 该 域 的 电子 邮件 都 应 向 该 主机 发 送 。 若 SMTP 服务 器 mailabc.com 收 到 一 封 信 要 
发 到 xxxxx@126.com， 则 执 下 面 的 过 程 。 

(1) Sendmail 请 求 DNS 给 出 主机 sh.abe.com 的 CNAME 记录 ， 如 有 ， 若 CNAME( 别 
名 记录 ) 到 shmail.abc.com， 则 再 次 请 求 shmailabc.com 的 CNAME 记录 ， 直 到 没有 为 止 。 

(2) 假定 被 CNAME 到 shmail.abc.com， 然 后 sendmail 请 求 @abc.com 域 的 DNS 给 出 
shmail.abc.com 的 MX 记录 shmail MX 5 shmail.abc.com 10 shmail2.abc.com。 

(3) Sendmail 组 合 请 求 DNS 给 出 shmail.abc.com 的 A 记录 (主机 名 (或 域名 ) 对 应 的 IP 
地 址 记录 )， 即 IP 地 址 ， 返 回 值 为 1.2.3.4( 假 设 值 )。 

(4) Sendmail 与 1.2.3.4 连接 ， 传 送 这 封 给 shuser@sh.abe.com 的 信 到 1.2.3.4 这 台 服 务 
器 的 SMTP 后 台 程 序 。 


4. 编程 模式 


由 前 面 的 工作 过 程 和 路 由 过 程 知 识 ， 可 以 很 明确 SMTP 邮件 发 送 的 编程 模式 了 。 

(1) 分 析 会 话 流程 

在 进行 程序 设计 之 前 ， 有 必要 和 弄 清 SMTP 协议 的 会 话 流程 ， 其 实 前 面 介 绍 的 内 容 已 
经 可 以 大 致 勾勒 出 用 SMTP 发 送 邮 件 的 框架 了 ， 对 于 一 次 普通 的 邮件 发 送 ， 其 过 程 大 致 
如 下 : 

先 建 立 TCP 连接 ， 随 后 客户 端 发 出 HELLO 命令 以 标识 发 件 人 自己 的 身份 ， 并 继续 由 
客户 端 发 送 MAIL 命令 ， 如 服务 器 应 答 为 “OK”， 可 继续 发 送 RCPT 命令 来 标识 电子 邮 
件 的 收 件 人 ， 在 这 里 可 以 有 多 个 RCPT 行 ， 而 服务 器 端 则 表示 是 否 愿 意 为 收 件 人 接收 该 邮 
件 。 在 双方 协商 结束 后 ， 用 命令 DATA 将 邮件 发 送出 去 ， 其 中 对 表示 结束 的 “.” 也 一 并 
发 送出 去 。 随 后 结束 本 次 发 送 过 程 ， 以 QUIT 命令 退出 。 

下 面 通过 一 个 实例 ， 从 bjrzny@sohu.com 发 送 邮 件 到 bjrzny123@sina.com 来 更 详细 直 


网 络 编程 开发 与 实战 


观 地 描述 此 会 话 流程 : 


R:220 sina.com Simple Mail Transfer Service Ready 
S:HELLO sohu.com 

R:250 sina.com 

S:MAIL FROM: <bjrzny@sohu.com> 

R:250 OK 

S:RCPT TO:<bjrznyl23@sina.com> 

R:250 OK 

S:DATA 

R:354 Start mail input;end with "<CRLF>.<CRLF>" 
Siene 

R:250 OK 

S:QUIT 

R:221 sina.com Service closing transmission channel 


Q) 邮件 的 格式 化 
由 于 电子 邮件 结构 上 的 特殊 性 ， 在 传输 时 是 不 能 当 作 简 单 的 文本 来 直接 处 理 的 ， 而 必 


须 按照 一 定 的 格式 对 邮件 头 和 邮件 体 进行 格式 化 处 理 之 后 才 可 以 被 发 送 。 需 要 进行 格式 化 


的 部 分 主要 有 


发 件 人 地 址 、 收 件 人 地 址 、 主 题 和 发 送 日 期 等 。 在 RFC 文档 的 RFC 822 


里 对 邮件 的 格式 化 有 详细 的 说 明 ， 有 关 详 情 请 参阅 该 文档 。 下 面 通过 Visual C++ 6.0， 按 照 
RFC 822 文档 规定 ， 将 格式 化 邮件 的 部 分 编写 如 下 (部 分 代码 ): 


// 邮 件 头 准备 

strTemp = T("From: ") + m strFrom; // 发 件 人 地 址 

add header line ((LPCTSTR) strTemp) ; 

strTemp = T("To: ") + m strTo; // 收 件 人 地 址 

add header line((LPCTSTR)strTemp); 

m tDateTime = m tDateTime.GetCurrentTime(); / /发 送 时 间 

strTemp - T("Data: "); 

strTemp += m tDateTime.Format("$a, %d $b $y $H:$M:$S $2"); 

add header line((LPCTSTR)strTemp); 

strTemp = T("Subject: ") + m strSubject; // 主 题 

add header line((LPCTSTR)strTemp); 

// 邮 件 头 结束 

m strHeader += _T("\r\n"); 

// 邮 件 体 准备 

if(m strBody.Right(2) != T("\r\n")) // 确 认 最 后 以 回 车 换行 结束 
m strBody += _T("\r\n"); 


其 中 add header line(LPCTSTR szHeaderLine) 函 数 用 于 把 szHeaderLine 指向 的 字 串 追 


加 到 m strHeader 后 面 。 格 式 化 后 的 邮件 头 保存 在 m strHeader 里 ， 格 式 化 后 的 邮件 体 保 
存在 m_strBody 中 。 


FTP 和 SMTP 等 协议 ) 的 编程 也 是 基于 套 接 字 程 序 的 ， 只 是 端口 号 不 再 是 随意 设 定 ， 而 要 上 


(3) 由 Socket 套 接 字 为 SMTP 提供 网 络 通讯 基础 
许多 网 络 程序 都 是 采用 Socket 套 接 字 实现 的 ， 对 于 一 些 标准 的 网 络 协议 (如 HTTP. 


协议 来 指定 ， 比 如 HTTP 端口 在 80、FTP 是 21， 而 SMTP 则 是 25. Socket 只 是 提供 在 指 


定 的 端口 上 同 指定 的 服务 器 从 事 网 络 上 的 通讯 能 力 ， 至 于 客户 和 服务 器 之 间 是 如 何 通讯 的 


则 


网 络 协 议 来 规定 ， 这 对 于 套 接 字 是 完全 透明 的 。 因 此 可 以 使 用 Socket 套 接 字 为 程序 提 
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供 网 络 通讯 的 能 力 ， 而 对 于 网 络 通讯 链 路 建立 好 之 后 采取 什么 样 的 通讯 应 答 则 要 按 SMTP 
协议 的 规定 去 执行 了 。Socket 套 接 字 网 络 编程 方面 的 文章 资料 非常 丰富 ， 限 于 篇 幅 ， 在 此 
不 再 歼 述 ， 有 关 详 情 请 参阅 相关 的 文档 。 为 简便 起 见 ， 我 们 没有 采用 编写 较 复 杂 的 
Windows Sockets API 进行 编程 ， 而 是 使 用 经 过 较 好 封装 的 MFC 的 CSocket 类 。 在 正式 使 
用 套 接 字 之 前 ， 也 要 先 用 AfxSocketInit0 函 数 对 套 接 字 进 行 初始 化 ， 然 后 用 Create0 创 建 套 
接 字 对 象 ， 并 由 该 套 接 字 通过 Connect() 建 立 同 邮件 服务 器 的 连接 。 如 果 一 切 正常 ， 在 后 续 
的 工作 中 就 是 遵循 SMTP 协议 的 约定 来 使 用 Send 站 、Receive0 函 数 来 发 送 SMTP 命令 和 接 
收 邮件 服务 器 发 来 的 应 答 码 以 完成 对 邮件 的 传送 。 

(4) SMTP 会 话 应 答 的 实现 

在 同 邮件 服务 器 建立 好 链 路 连接 后 ， 就 可 以 按 前 面 介绍 过 的 会 话 流程 进行 程序 设计 
了 ， 对 于 SMTP 命令 的 发 送 ， 可 按 命令 格式 将 其 组 帧 完毕 后 用 CSocket 类 的 Send0 函 数 发 
送 到 服务 器 ， 并 通过 CSocket 类 的 ReceiveO 函 数 接收 从 邮件 服务 器 发 来 的 应 答 码 ， 并 根据 
SMTP 协议 的 应 答 码 表 对 其 做 出 相应 的 处 理 。 下 面 是 用 于 接收 应 答 码 的 函数 get response() 
的 部 分 实现 代码 : 

BOOL CSMTP: :get response(UINT response expected) // 输 入 参数 为 希望 的 应 答 码 

{ 


// m wsSMTPServer Jy CSocket 的 类 对 象 ， 调 用 Receive () 将 应 答 码 接收 到 缓存 
// response buf 中 

m wsSMTPServer.Receive(response buf, RESPONSE BUFFER SIZE); 
sResponse - response buf; 

sSscanf((LPCTSTR)sResponse.Left(3), T("%d"), &response); 

pResp - &response table[response expected]; 

// 检 验收 到 的 应 答 码 是 否 是 所 希望 得 到 的 

if(response != pResp->nResponse) 


. . .// 不 相等 的 话 进行 错误 处 理 
return FALSE; 


} 
return TRUE; 


} 

会 话 的 各 个 部 分 比较 类 似 ， 都 是 “命令 -应 答 ” 方 式 ， 而 且 均 成 对 出 现 。 接 下 来 在 程序 
控制 下 完成 对 SMTP 命令 的 格式 化 ， 以 及 对 命令 的 发 送 和 对 邮件 服务 器 应 答 码 的 检验 处 
理 。 具 体 代码 如 下 : 

// 格 式 化 并 发 送 HELLO 命令 ， 并 接收 、 验 证 服务 器 应 答 码 

gethostname (local host, 80); 

sHello.Format( T("HELO %s\r\n"), local host); 

m wsSMTPServer.Send((LPCTSTR)sHello, sHello.GetLength () ); 

if(!get response (GENERIC SUCCESS)) // 检 验 应 答 码 是 否 为 250 

t 


return FALSE; 


} 
// 格式 化 并 发 送 MAIL 命令 ， 并 接收 、 验 证 服务 器 应 答 码 


sFrom.Format( T("MAIL From: <%s>\r\n"), (LPCTSTR)msg->m_strFrom) ; 


Visual C++ Gere 


m wsSMTPServer.Send((LPCTSTR)sFrom, sFrom.GetLength()); 

if(!get response(GENERIC SUCCESS)) // 检 验 应 答 码 是 否 为 250 
return FALSE; 

// 格 式 化 并 发 送 RCPT 命令 ， 并 接收 、 验 证 服务 器 应 答 码 

sEmail = (LPCTSTR)msg->m_strTo; 

STo.Format( T("RCPT TO: <%s>\r\n"), (LPCTSTR) sEmail) ; 

m wsSMTPServer.Send((LPCTSTR)sTo, sTo.GetLength()); 

if(!get response(GENERIC SUCCESS)) // 检 验 应 答 码 是 否 为 250 
return FALSE; 

// 格 式 化 并 发 送 DATA 命令 ， 并 接收 、 验 证 服务 器 应 答 码 

sTemp = T("DATA\r\n"); 

m wsSMTPServer.Send((LPCTSTR)sTemp, sTemp.GetLength () ); 

if(!get response (DATA SUCCESS)) // 检 验 应 答 码 是 否 为 354 
return FALSE; 

// 发 送 根据 REC 822 文档 规定 格式 化 过 的 邮件 头 

m wsSMTPServer.Send((LPCTSTR)msg-»m strHeader, 

msg-»m strHeader.GetLength () ); 


// 发 送 根据 RFC 822 文档 规定 格式 化 过 的 邮件 体 
sTemp = msg->m strBody; 
if(sTemp.Left(3) == T(".\r\n")) 
sTemp = T(".") + sTemp; 
while ((nPos=sTemp.Find(szBad)) > -1) 
{ 
sCooked = sTemp.Mid(nStart, nPos); 
sCooked += szGood; 
sTemp = sCooked + sTemp.Right (sTemp.GetLength() - (nPos + nBadLength) ); 
} 
m wsSMTPServer.Send((LPCTSTR)sTemp, sTemp.GetLength () ); 
// 发 送 内 容 数 据 结束 标志 "<CRLF> .<CRLF>>"， 并 检验 返回 应 答 码 
sTemp = _T("\r\n.\r\n"); 
m wsSMTPServer.Send((LPCTSTR)sTemp, sTemp.GetLength () ); 
if (!get_response (GENERIC SUCCESS) ) // 检 验 应 答 码 是 否 为 250 
return FALSE; 


到 此 为 止 ， 已 基本 在 程序 中 体现 出 了 SMTP 协议 的 会 话 流程 ， 能 在 Socket 套 接 字 所 提 
供 的 网 络 通讯 能 力 基础 之 上 实现 以 SMTP 命令 和 SMTP 应 答 码 为 基本 会 话 内 容 的 通讯 交互 
过 程 ， 从 而 最 终 实现 SMTP 协议 对 电子 邮件 的 发 送 。 


5.23 POP3 协议 


POP(Post Office ProtocoD) 是 适用 于 C/S 结构 的 脱 机 模型 的 电子 邮件 协议 ， 目 前 已 发 展 
到 第 3 版 ， 所 以 称 POP3。 它 规定 怎样 将 个 人 计算 机 连接 到 Intemet 的 邮件 服务 器 和 下 载 电 
子 邮件 的 电子 协议 。 它 是 因特网 电子 邮件 的 第 一 个 离线 协议 标准 。 

POP3 允许 用 户 从 服务 器 上 把 邮件 存储 到 本 地 主机 ( 即 自己 的 计算 机 ) 上 ， 同 时 删除 保存 
在 邮件 服务 器 上 的 邮件 ， 而 POP3 服务 器 则 是 遵循 POP3 协议 的 接收 邮件 服务 器 ， 是 用 来 
接收 电子 邮件 的 。 总 地 来 说 ，POP3 协议 是 让 用 户 把 服务 器 上 的 信件 收 到 本 地 所 需要 的 一 
种 协议 。 
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1. POP3 模型 和 会 话 过 程 


POP3 使 用 C/S 工作 模式 ， 在 接收 邮件 的 PC 中 运行 POP3 客户 机 程序 ， 在 用 户 连 接 的 
ISP 的 邮件 服务 器 中 运行 POP3 服务 器 程序 ， 两 者 之 间 按 照 POP3 相互 发 送信 息 ，POP3 客 
户 机 发 送 给 POP3 服务 器 的 消息 为 POP3 命令 ，POP3 服务 器 返回 的 消息 为 POP3 响 

POP3 服务 的 TCP 默认 端口 为 110， 当 客户 主机 需要 服务 器 上 的 邮件 时 ， 它 向 服务 器 
发 出 建立 一 条 TCP 连接 的 请 求 。 在 连接 成 功 后 客户 与 服务 器 之 间 使 用 POP3 协议 会 话 的 过 
程 分 为 如 下 3 个 阶段 。 

(1) 认证 阶段 

每 一 个 用 户 只 有 提供 了 正确 的 用 户 名 和 口令 之 后 才 有 权 访 问 自己 的 邮箱 ， 在 这 个 阶段 
里 ， 可 以 使 用 USER、PASS 和 QUIT 这 3 个 POP3 命令 。 

Q) 邮件 操作 阶段 

用 户 通过 了 认证 就 相当 于 打开 了 服务 器 上 的 用 户 邮 箱 ， 客 户 就 有 权 进 行 检 查 、 下 载 或 
者 删除 邮件 等 操作 了 。 这 时 会 话 过 程 进 入 事物 状态 ， 此 时 可 以 使 用 的 POP3 命令 有 
NOOP, STAT, QUIT, LIST, RETR, TOP, DELE, RSET 和 UIDL. 

(3) 更 新 阶段 

当 客户 发 送 了 QUIT 命令 后 ， 系 统 就 进入 了 更 新 阶段 ，POP3 服务 器 释放 在 操作 阶段 
中 取得 的 资源 ， 并 将 逻辑 删除 的 邮件 进行 物理 删除 ， 然 后 发 送 消息 ， 关 闭 客户 与 服务 器 之 
间 的 TCP 连接 ， 邮 件 处 理 的 会 话 层 结束 。 

2. POP3 命令 

POP3 的 命令 由 ASCH 字符 组 成 ， 它 们 之 间 用 空格 分 隔 。 命 令 一 般 由 3-4 个 字母 组 
成 。 一 个 命令 可 以 带 有 一 些 参数 ， 每 个 参数 可 长 达 40 个 字符 ， 命 令 应 当 以 回 车 换行 符 结 


g 


表 5-2 POPS 的 常用 命令 


命 令 *& X 
USER 登录 验证 的 用 户 名 
PASS 登录 验证 口令 
APOP 转换 验证 机 制 
QUIT 服务 器 物理 删除 已 逻辑 删除 的 文件 ， 然 后 关闭 连接 
UIDL 返回 邮件 的 唯一 标识 
STAT 查询 客户 邮箱 中 邮件 的 总 长 度 和 邮件 总 数 
LIST 命令 服务 器 给 出 各 邮件 长 度 
RETR 从 邮箱 中 取出 邮件 
TOP 取出 信 头 和 邮件 的 前 N 行 
DELE 对 指定 的 邮件 做 删除 标记 
RSET 复位 POP3 会 话 
NOOP 空 操作 ， 返 回 一 个 有 效应 答 ， 不 做 任何 操作 


aT 
Visual CHE = 发 与 实战 
V | CHF 网络 编 程 开发 与 实战 
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5.3 ”小 试 牛刀 一 一 基于 POP3 的 邮件 系统 


实例 功能 使 用 Visual C++ 开发 一 个 基于 POP3 的 邮件 系统 
源码 路 径 光盘 \yuanmavSVHTTP 


在 本 实例 中 ， 将 使 用 POP3 技术 开发 一 个 邮件 接收 系统 。 接 收 邮 件 服务 器 上 的 邮件 之 
后 ， 把 邮件 下 载 并 保存 到 本 地 计算 机 上 。 本 实例 可 以 提取 邮箱 里 的 邮件 数量 和 标题 字段 等 
内 容 。 


5.3.1 设计 界面 


本 实例 使 用 Visual C++ 6.0 开发 ， 使 用 MFC 创建 一 个 名 为 “pop3” 的 工程 。 设 计 之 后 
的 界面 效果 如 图 5-6 所 示 。 


图 5-6 设计 界面 


在 实例 中 特意 设计 了 如 下 3 个 重要 类 。 

口 ”WSocket: 创建 套 接 字 ， 实 现 客户 端 和 服务 器 端的 数据 传输 。 

Q  CPop3: 分 析 客 户 端 和 服务 器 端的 消息 及 应 答 ， 将 邮件 从 服务 器 下 载 到 本 地 。 

Q CPop3Dlg: 是 CDialog 的 子 类 ， 实 现 界面 设计 和 操作 响应 ， 实 现 对 邮件 客户 端的 
操作 。 


5.32 具体 编码 


(1) 在 文件 wsocketh 中 定义 类 WSocket， 实 现 客户 端 与 服务 器 端的 数据 传输 。 具 体 
代码 如 下 : 


#ifndef HEGANG WSOCKET H 
#define HEGANG WSOCKET H 
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#ifdef WIN32 
#include «winsock.h» 
typedef int socklen t; 

#else 
#include <sys/socket .h> 
#include «netinet/in.h» 
#include <netdb.h> 
#include «fcntl.h» 
#include <unistd.h> 
#include «sys/stat.h» 
#include <sys/types.h> 
#include «arpa/inet.h» 
typedef int SOCKET; 
#define INVALID SOCKET -1 
#define SOCKET ERROR -1 

#endif 


class WSocket { 


public: 
WSocket (SOCKET sock = INVALID SOCKET); 
~WSocket () ; 
// 创 建 套 接 字 
bool Create (int af, int type, int protocol = 0); 
// 建 立 连 接 
bool Connect (const char *ip, unsigned short port); 
// 发 送 数 据 
int Send(const char *buf, int len, int flags = 0); 
// 接 收 数据 
int Recv(char *buf, int len, int flags = 0); 
// 关 闭 套 接 字 
int Close(); 
// 初始 化 套 接 字 
static int Init(); 
// 清除 套 接 字 
static int Clean(); 
// 域名 解析 
static bool DnsParse(const char *domain, char *ip); 
protected: 
SOCKET m sock; 
Ps 
#endif 


(2) 在 文件 wsocket.cpp 中 定义 类 WSocket 的 具体 功能 ， 具 体 代码 如 下 : 


#include "StdAfx.h" 
#include <stdio.h> 
#include <iostream.h> 
#include <winsock2.h> 
#include "wsocket.h" 
#ifdef WIN32 
#pragma comment (lib, "wsock32") 


Visual CH CZE 


人 


#endif 
/ /WSocket 构造 函数 
WSocket: :WSocket (SOCKET sock) 
f 
m sock - sock; 
$ 
/ /WSocket 析 构 函数 
WSocket: :~WSocket () 
f 


j 
// 套 接 字 初 始 化 
int WSocket::Init() 
t 
#ifdef WIN32 
WSADATA wsaData; 
WORD version - MAKEWORD(2, 0); 
int ret - WSAStartup(version, &wsaData); 


if (ret) ( 
cerr «« "Initilize winsock error !" «« endl; 
return -1; 
} 
#endif 
return 0; 
$ 
// 清 除 套 接 字 


int WSocket::Clean() 
t 
#ifdef WIN32 
return (WSACleanup()); 
#endif 
return 0; 
} 


// 创 建 套 接 字 
bool WSocket::Create(int af, int type, int protocol) 
{ 

m sock = socket (af, type, protocol); 

if (m sock == INVALID SOCKET) { 

return false; 
} 
return true; 


} 
// 与 服务 器 连接 
bool WSocket::Connect(const char *ip, unsigned short port) 
$ 
struct sockaddr in svraddr; 
svraddr.sin family = AF INET; 
svraddr.sin addr.s addr = inet addr (ip); 
svraddr.sin port = htons (port); 
int ret = connect (m sock, (struct sockaddr*)&svraddr, sizeof (svraddr)); 
if (ret == SOCKET_ERROR) { 


return false; 
} 
return true; 


} 
// 套 接 字 发 送 数据 
int WSocket::Send(const char *buf, int len, int flags) 
t 
int bytes; 
int count = 0; 
while (count « len) ( 
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bytes = send(m sock, buf + count, len - count, flags); 


if (bytes == -1 || bytes = 0) 
return -1; 
count += bytes; 
) 
return count; 


} 
// 套 接 字 接收 数据 


int WSocket::Recv(char *buf, int len, int flags) 
{ 
return (recv(m sock, buf, len, flags)); 


i: 
// 关 闭 套 接 字 
int WSocket::Close() 
t 
#ifdef WIN32 
return (closesocket (m sock)); 


#else 
return (close(m sock) ); 
#endif 
} 
// 服 务 器 域名 解析 


bool WSocket::DnsParse(const char *domain, char *ip) 
t 
struct hostent *p; 
if ((p=gethostbyname(domain)) == NULL) 
return false; 
// 如 果 是 域名 转换 成 IP 地 址 
sprintf (ip, 
UU 
(unsigned char)p->h addr list[0][0], 
(unsigned char)p->h addr list[0] [1], 
(unsigned char)p-»h addr list[0][2], 
(unsigned char)p->h addr list[0][31); 
return true; 
} 
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(3) 在 文件 pop.h 中 定义 类 CPop3， 用 于 分 析 客户 端 和 服务 器 端的 消息 和 应 答 分 析 ， 


将 邮件 从 服务 器 下 载 到 本 地 。 具 体 代码 如 下 : 


#ifndef HEGANG POP3_H_ 
#define HEGANG POP3 H 
#include "wsocket.h" 
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class CPop3 ( 
public: 
// 构 造 函 数 
CPop3 () 7 
// 析 构 函数 
~CPop3 () ; 
// 初 始 化 PoP3 客户 端 
bool Init(const char *username, const char *userpwd, 
const char *svraddr, unsigned short port-110); 
// 连 接 服务 器 
bool Connect () 
// 登 录 服 务 器 
bool Login(); 
// 列 出 邮件 信息 
bool List(int &sum); 
// 获 得 邮件 
bool Retrieve(int num=1) 
// 关 闭 与 服务 器 的 连接 
bool Quit () 
// 获得 邮件 主题 
bool CPop3::GetSubject(char *subject, const char *buf); 
// 保 存 邮 件 主题 
CString Subject; 
protected: 
// 获 得 邮件 数量 
int GetMailSum(const char *buf); 
// 套 接 字 
WSocket m sock; 
// 用 户 名 
char m username[32]; 
// 用 户 密码 
char m password[32]; 
// 服 务 器 地 址 
char m svraddr[32]; 
// 服 务 器 端口 号 
unsigned short m port; 
private: 
// 接 收服 务 器 数据 
int Pop3Recv(char *buf, int len, int flags=0) 
u 
#endif 


(4) 在 文件 pop.cpp 中 实现 类 CPop3 的 具体 功能 ， 实 现代 码 如 下 : 


#include "StdAfx.h" 
#include <stdio.h> 
#include <string.h> 
#include <iostream.h> 
#include "pop.h" 
//CPop 类 构造 函数 
CPop3: :CPop3 () 
{ 

WSocket::Init(); 
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j 
/ /CPop 类 析 构 函数 
CPop3: :~CPop3 () 
{ 
WSocket::Clean(); 


$ 
//POP3 接收 服务 器 消息 函数 
int CPop3::Pop3Recv(char *buf, int len, int flags) 
t 
int rs: 
int offset = 0; 
do 
t 
if (offset » len-2) 
return offset; 
rs = m sock.Recv(buf+offset, len-offset, flags); 
if (rs « 0) /* error occur */ 
return -1; 
offset += rs; 
buf[offset] = '\0'; 
) while (strstr(buf, "\r\n.\r\n") == (char*) NULL); 


return offset; 


} 
// 初 始 化 PoP3 
bool CPop3::Init(const char *username, const char *userpwd, 
const char *svraddr, unsigned short port) 
ü 
// 给 用 户 名 、 密 码 和 服务 器 地 址 赋值 
strcpy(m username, username); 
strcpy(m password, userpwd); 
strcpy(m svraddr, svraddr); 
m port - port; 
return true; 


} 
// 与 邮件 服务 器 建立 连接 
bool CPop3::Connect () 
t 
// 创建 套 接 字 
m sock.Create(AF INET, SOCK STREAM, 0); 
// 解析 域名 
char ipaddr[16]; 
if (WSocket::DnsParse(m svraddr, ipaddr) !- true) 
t 
return false; 
} 
// 发 送 连接 
if (m sock.Connect(ipaddr, m port) !- true) 
t 


return false; 


} 
// 接收 服务 器 消息 
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char buf[128]; 

int rs = m sock.Recv(buf, sizeof (buf), 0); 
if (rs<=0 || strncmp(buf, "+OK", 3)!-0) 

t 


return false; 
} 
#ifdef DEBUG 
bu£[rs] = *\0"; 
printf("Recv POP3 Resp: %s", buf); 
#endif 
return true; 


} 
// 向 邮件 服务 器 发 送 用 户 名 和 密码 登录 邮件 服务 器 
bool CPop3::Login() 
t 
// 发 送 USER 命令 ， 向 服务 器 发 送 用 户 名 
char sendbuf[128]; 
char recvbuf[128]; 


sprintf(sendbuf, "USER %s\r\n", m username); 
m sock.Send(sendbuf, strlen(sendbuf), 0); 


int rs = m sock.Recv(recvbuf, sizeof(recvbuf), 0); 


if (rs«-0 || strncmp(recvbuf, "+OK", 3)!-0) 
t 
return false; 

) 
#ifdef  DEBUG 

recvbuf[rs] = '\0'; 

printf ("Recv USER Resp: $s", recvbuf) ; 
#endif 


// 发 送 PASS 命令 ， 向 服务 器 发 送 密码 
sprintf(sendbuf, "PASS %s\r\n", m password); 
m_sock.Send(sendbuf, strlen(sendbuf), 0); 
rs = m sock.Recv(recvbuf, sizeof(recvbuf), 0); 
if (rs<=0 || strncmp(recvbuf, "+OK", 3) !=0) 
{ 
return false; 
} 
#ifdef DEBUG 
recvbuf[rs] = '\0'; 
printf ("Recv PASS Resp: $s", recvbuf) ; 
#endif 


return true; 


} 

// 列 出 邮件 主要 信息 

bool CPop3::List(int &sum) 

t 
// 发 送 LIST 命令 ， 获 得 邮件 信息 
char sendbuf[128]; 
char recvbuf [256]; 
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sprintf(sendbuf, "LIST \r\n"); 
m sock.Send(sendbuf, strlen(sendbuf), 0); 
int rs = Pop3Recv(recvbuf, sizeof(recvbuf), 0); 
if (rs<=0 || strncmp(recvbuf, "+OK", 3) !=0) 
{ 
return false; 
} 
recvbuf[rs] = '\0'; 
#ifdef DEBUG 
printf ("Recv LIST Resp: %s", recvbuf); 
#endif 
sum = GetMailSum(recvbuf) ; 
return true; 


$ 

// 获 取 邮 件 并 保存 邮件 

bool CPop3::Retrieve(int num) 

f 
int rs; 
FILE *fp; 
int flag = 0; 
unsigned int len; 
char filename[32]; 
char sendbuf[128]; 
char recvbuf[10240]; 


// 发 送 RETR 命令 ， 获 取 邮 件 内 容 
sprintf(sendbuf, "RETR $d\r\n", num); 
m sock.Send(sendbuf, strlen(sendbuf), 0); 


do ( 
rs = Pop3Recv(recvbuf, sizeof(recvbuf), 0); 
arse) 
return false; 
} 
recvbuf[rs] = '\0'; 
// 获得 邮件 主题 ， 并 生成 保存 邮件 的 文件 名 
if (flag == 0) 
t 
GetSubject ( (char*) (LPCTSTR) Subject, recvbuf); 
GetSubject(filename, recvbuf); 
strcat (filename, ".eml"); 
flag = 1; 
if ((fp=fopen(filename, "wb")) == NULL) 
return false; 
} 
#ifdef DEBUG 
printf ("Recv RETR Resp: %s", recvbuf); 
#endif 
// 获 得 邮件 大 小 
len = strlen(recvbuf); 
// 保 存 邮 件 
if (fwrite(recvbuf, 1, len, fp) != len) { 


fclose (fp); 
return false; 


} 
fflush (fp); 
} while (strstr(recvbuf, "\r\n.\r\n") == (char*)NULL); 


fclose (fp); 
return true; 


} 

// 与 邮件 服务 器 断 开 

bool CPop3::Quit () 
char sendbuf[128]; 
char recvbuf [128]; 


// 发 送 QUIT 命令 ， 断 开 与 邮件 服务 器 的 连接 
sprintf (sendbuf, "QUIT\r\n"); 
m sock.Send(sendbuf, strlen(sendbuf), 0); 
int rs = m sock.Recv(recvbuf, sizeof(recvbuf), 0); 
if (rs<=0 || strncmp(recvbuf, "+OK", 3) !=0) 
{ 
return false; 
} 


#ifdef DEBUG 

recvbuf[rs] = '\0'; 

printf ("Recv QUIT Resp: $s", recvbuf) ; 
endif 

// 关 闭 套 接 字 

m sock.Close(); 

return true; 


} 
// 获 得 邮件 主题 
bool CPop3::GetSubject(char *subject, const char *buf) 
{ 
char *p = strstr(buf, "Subject: "); 
if (p == NULL) 
return false; 
p=p+9; 
for (int i=0; i<32; i++) ( 
eHe of Nl a= i 
subject[i] = '\0'; 
break; 
} 
subject [i] = p[i]; 
} 
return true; 
} 
// 获 得 邮箱 邮件 数量 
int CPop3::GetMailSum(const char *buf) 
f 
int sum = 0; 
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char *p = strstr (buf, rn" 
if (p == NULL) 
return sum; 
p = strstr(p+2, "\r\n"); 
if (p == NULL) 
return sum; 
while ((p=strstr(p+2, "\r\n")) != NULL) 
{ 
sumtt; 
) 
return sum; 
} 


(5) 在 文件 pop3Dig.h 中 定义 类 CDialog 的 子 类 CPop3Dlg， 实 现 界面 设计 和 操作 响应 
和 对 邮件 客户 端的 操作 。 有 具体 代码 如 下 : 


#include "pop.h" 
class CPop3Dlg : public CDialog 
{ 
// Construction 
public: 
CPop3 m pop3; 
CPop3Dlg(CWnd *pParent=NULL) ; 
protected: 
HICON m hIcon; 
// 控 件 消息 映射 函数 
virtual BOOL OnInitDialog(); 
afx msg void OnSysCommand(UINT nID, LPARAM lParam); 
afx msg void OnPaint(); 
afx msg HCURSOR OnQueryDragIcon(); 
afx msg void OnConnect (); 
afx msg void OnCheck(); 
afx msg void OnDisconnect () ; 
afx msg void OnExit(); 
//))AFX MSG 


DECLARE MESSAGE MAP() 


u 
#endif 


(6) 在 文件 pop3Dlg.cpp 中 定义 CPop3Dlg 类 的 实现 功能 代码 ， 具 体 代 码 如 下 : 


class CAboutDlg : public CDialog 
{ 
public: 
CAboutDlg(); 
//{{AFX DATA (CAboutDlg) 
enum ( IDD = IDD ABOUTBOX }; 
//}}AEX DATA 
protected: 
virtual void DoDataExchange (CDataExchange *pDX); // DDX/DDV support 
//}}AFX VIRTUAL 
protected: 
//4(AFX MSG (CAboutD1g) 


$ 


//) ) AFX MSG 
DECLARE MESSAGE MAP () 


CAboutDlg::CAboutDlg() : CDialog (CAboutD1g: : IDD) 


{ 
//((AFX DATA INIT (CAboutDlg) 
//)) AFX DATA INIT 


void CAboutDlg::DoDataExchange (CDataExchange *pDX) 
t 


CDialog::DoDataExchange (pDX) ; 
BEGIN MESSAGE MAP(CAboutDlg, CDialog) 
END MESSAGE MAP() 


CPop3Dlg::CPop3Dlg(CWnd *pParent /*=NULL*/) 
: CDialog(CPop3Dlg::IDD, pParent) 


//{{AFX DATA INIT (CPop3Dlg) 


m password = T(""); 
m user - T(""); 

m address = T(""); 
m mailinfo = T(""); 


//) ) AFX DATA INIT 
m hlIcon = AfxGetApp()->LoadIcon (IDR MAINFRAME) ; 


void CPop3Dlg::DoDataExchange (CDataExchange *pDX) 
{ 

CDialog: : DoDataExchange (pDX) ; 

//((AFX DATA MAP (CPop3D1g) 

DDX Text(pDX, IDC PASSWORD, m password); 

DDX Text(pDX, IDC USER, m user); 

DDX Text(pDX, IDC ADDRESS, m address); 

DDX Text(pDX, IDC MAILINFO, m mailinfo); 

//))AFX DATA MAP 


BEGIN MESSAGE MAP(CPop3Dlg, CDialog) 
//{{AFX MSG MAP (CPop3Dlg) 
ON WM SYSCOMMAND() 
ON WM PAINT () 
ON WM QUERYDRAGICON () 
ON BN CLICKED(IDC CONNECT, OnConnect) 
ON BN CLICKED(IDC CHECK, OnCheck) 
ON BN CLICKED(IDC DISCONNECT, OnDisconnect) 
ON BN CLICKED(IDC EXIT, OnExit) 
//}}AFX_MSG_ MAP 

END MESSAGE MAP () 
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dl 
// CPop3Dlg message handlers 


BOOL CPop3Dlg: :OnInitDialog() 

t 
CDialog::OnInitDialog(); 
ASSERT((IDM ABOUTBOX & OxFFF0) == IDM ABOUTBOX); 
ASSERT(IDM ABOUTBOX « OxF000); 


CMenu *pSysMenu = GetSystemMenu (FALSE); 
if (pSysMenu != NULL) 
{ 
CString strAboutMenu; 
strAboutMenu.LoadString (IDS ABOUTBOX) ; 
if (!strAboutMenu. IsEmpty () ) 
{ 
pSysMenu-»AppendMenu (MF SEPARATOR) ; 
pSysMenu->AppendMenu (MF_STRING, IDM ABOUTBOX, strAboutMenu) ; 


} 
SetIcon(m_hIcon, TRUE); 
SetIcon(m hIcon, FALSE); 


return TRUE; 


void CPop3Dlg::OnSysCommand(UINT nID, LPARAM 1Param) 
{ 
if ((nID & OxFFFO) == IDM ABOUTBOX) 
{ 
CAboutDlg dlgAbout; 
dlgAbout . DoModal () 7 
H 
else 
t 
CDialog::OnSysCommand (nID, lParam); 


} 
void CPop3D1g: :OnPaint () 
t 
if (IsIconic()) 
t 
CPaintDC dc(this); // device context for painting 
SendMessage(WM ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0); 
int cxIcon = GetSystemMetrics (SM CXICON) ; 
int cyIcon = GetSystemMetrics (SM CYICON) ; 
CRect rect; 
GetClientRect (&rect) ; 
int x = (rect.Width() - cxIcon + 1) / 2; 
int y = (rect.Height() - cyIcon + 1) / 2; 
dc.DrawIcon(x, y, m_hIcon); 
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} 
else 
{ 
CDialog: :OnPaint (); 
} 


HCURSOR CPop3D1g: :OnQueryDragIcon () 


{ 


return (HCURSOR)m hIcon; 


} 
// 与 服务 器 连接 映射 函数 


void CPop3D1g: :OnConnect () 


t 


// TODO: Add your control notification handler code here 
UpdateData (TRUE) ; 
// 初 始 化 PoP3， 给 用 户 名 、 密 码 、 服 务 器 地 址 赋值 
m pop3.Init(m user, m password, m address, 110); 
// 与 服务 器 连接 
m pop3.Connect () ; 
// 验 证 用 户 名 和 密码 、 登 录 服务 器 
if(m pop3.Login()) 
t 
GetDlgItem(IDC MAILINFO)-»SetWindowText ("已 经 成 功 登 录 !"); 
} 
else 
{ 
GetDlgItem(IDC MAILINFO) ->SetWindowText (" 登 录 失 败 !") ; 
) 


) 
// 查 看 邮箱 邮件 信息 并 保存 邮件 的 映射 函数 
void CPop3D1g: :OnCheck () 


{ 


// TODO: Add your control notification handler code here 
CString mailsinfo; 

CString temp; 

int mailsum; 

// 获 取 邮 件数 量 

m pop3.List (mailsum); 
mailsinfo.Format ("你 的 邮箱 里 有 sd SF", mailsum); 


GetDlgItem(IDC MAILINFO)-»SetWindowText (mailsinfo) ; 

for (int i-1; i<=mailsum; i++) 

{ 
// 调 用 获取 邮件 函数 保存 邮件 
m_pop3.Retrieve (i); 
// 显 示 邮 箱 中 邮件 数量 和 相应 的 主题 
temp.Format ("\r\n 第 sd 封 邮件 的 主题 是 : $s", i, m pop3.Subject); 
mailsinfo += temp; 
GetDlgItem(IDC MAILINFO)-»SetWindowText (mailsinfo) ; 


void CPop3D1g: :OnDisconnect () 

t 
// TODO: Add your control notification handler code here 
// 与 邮件 服务 器 断 开 连接 
m pop3.Quit () ; 


5 

// 关 闭 PoP3 邮件 接收 端 程序 

void CPop3D1g: :OnExit () 

{ 
// TODO: Add your control notification handler code here 
CDialog::OnOK(); 

5 


到 此 为 止 ， 整 个 实例 的 实现 过 程 介绍 完毕 ， 执 行 之 后 的 效果 如 图 5-7 所 示 。 


图 5-7 执行 效果 


5.4 小 试 牛刀 一 一 基于 SMTP 的 邮件 系统 


本 实例 使 用 Visual C++ 6.0 开发 ， 使 用 MFC 分 别 创 建 4 个 窗 体 。 
(D ID 为 IDD ABOUTBOX 的 窗 体 ， 设 计 界 面 如 图 5-8 所 示 。 
(2) ID 4 IDD_DIALOGI 的 窗 体 ， 设 计 界面 如 图 5-9 所 示 。 


邮件 传输 系统 


实例 功能 使 用 SMTP 技术 开发 一 个 邮件 收发 系统 
光盘 yuanmavS\VSMTP 


5.4.1 设计 界面 


图 5-8 IDD_ABOUTBOX 图 5-9 IDD DIALOG1 


" 
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(3) ID » IDD DIALOG? 的 窗 体 ， 设 计 界 面 如 图 5-10 所 示 。 
(4) ID IDD MY DIALOG 的 窗 体 ， 设 计 界 面 如 图 5-11 所 示 。 


5-10 IDD_DIALOG2 5-11 IDD MY DIALOG 


542 具体 编码 
(1) 定义 类 CMyDlg， 具 体 代 码 如 下 : 


class CMyDlg : public CDialog 
t 
// Construction 
public: 
CMyDlg(CWnd *pParent-NULL); // standard constructor 
CFile file; 
// Dialog Data 
//{{AEX DATA (CMyD1g) 
enum ( IDD = IDD MY DIALOG }; 
// NOTE: the ClassWizard will add data members here 
//) )AFX DATA 
SOCKET s; 
sockaddr in addr; // 定 义 网 络 地 址 结构 对 象 
hostent *host; 
// ClassWizard generated virtual function overrides 
// ((AEX. VIRTUAL (CMyD1g) 
protected: 
virtual void DoDataExchange (CDataExchange *pDX); // DDX/DDV support 
//) )AFX VIRTUAL 
HWND statu; 
// Implementation 
protected: 
HICON m hicon; 
CSet set; 
CRecv recvdlg; 


Q) 定义 函数 OnInitDialog0 实 现 初始 化 处 理 ， 设 置 各 个 控件 的 状态 是 否 可 用 。 有 具体 代 
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人 码 如 下 : 
BOOL CMyDlg::OnInitDialog() 
t 
CDialog::OnInitDialog(); 
// TODO: Add extra initialization here 
statu = ::CreateStatusWindow(WS CHILD|WS VISIBLE, 
"欢迎 使 用 本 软件 ! (作者 : Liangwei)", this-»m hWnd, IDC 123); 
this->SetWindowText (" 邮 件 收发 器 v1.0"); 
//::SendMessage(h, SB SETBKCOLOR, 0, RGB(255,0,0)); 
file.Open ("状态 配置 文件 .lw"， 
CFile: :modeNoTruncate|CFile: :modeCreate|CFile: :modeReadWrite) ; 
char d; 
file.Read(&d, 1); 
file.Close(); 
if(d == 'Y') 
t 
GetDlgItem(IDC HELP)-»EnableWindow (false); 
GetDlgItem(IDC PEIZHI)-»EnableWindow (true); 
} 
else 
{ 
GetDlgItem(IDC PEIZHI)-»EnableWindow (false); 
} 
GetDlgItem(IDC_SENDER) ->EnableWindow (false); // 设 置 各 个 控件 的 状态 
GetDlgItem(IDC RECVER) -»EnableWindow (false); 
GetDlgItem(IDC SUBJECT) ->EnableWindow (false) ; 
GetDlgItem(IDC SENDMAIL) —->EnableWindow (false); 
GetDlgItem(IDC RECVMAIL) —->EnableWindow (false); 
GetDlgItem(IDC MAILTEXT)-»EnableWindow (false); 
CString str=" 请 用 户 首先 查看 “使 用 前 须知 ” "; 
GetDlgItem(IDC SENDER)-»SetWindowText (str); 
//CFile file ("培植 文件 .txt"，CFile: :modeReadWrite); 
//CString str = "爱迪生 大 会 酒家 挥 酒 机 "7 
//file.Write(str.GetBuffer(1),sizeof(str)); 
return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 
} 


(3) 编写 消息 响应 函数 OnHelp, ii OK 按钮 后 能 够 返回 到 代码 编辑 器 中 编写 代 
码 ， 即 将 本 实例 的 使 用 方法 显示 在 编辑 框 中 。 具 体 代码 如 下 : 


void CMyDlg::OnHelp() 
(i 


// TODO: Add your control notification handler code here 
CString str; 

str += "本 程序 的 使 用 方法 : "; 

sime T= UNE 

str += "第 一 步 : 设置 SMTP 服务 器 ， 包 括 服务 器 地 址 、 端 口号 码 "; 

BER Uber 

str += "第 二 步 : 设置 发 件 人 地 址 、 收 件 人 地 址 、 邮 件 主 题 、 邮 件 内 容 ，"; 
str += "其 中 ,发 件 人 地 址 与 邮件 内 容 可 以 为 空 ， 其 余 均 不 能 为 空 。"; 


ste t= "Nr\ans 


$ 


str += " (注意 ， 如 果 需 要 将 邮件 发 送 到 多 人 ， 请 在 收 件 人 地 址 内 使 用 逗号 将 地 址 区 分 开 即 可 ) "; 
str += "\r\n"; 
str += "作者 : liangwei,QQ:393817181"; 
if (MessageBox (str) == IDOK) { 
GetDlgItem(IDC_HELP) ->SetWindowText (" 功 能 待 用 ") ; 
GetDlgItem(IDC HELP)->EnableWindow (false) ; 
GetDlgItem(IDC PEIZHI)->EnableWindow (true); 
CFile filel (" 状 态 配置 文件 .1w"， 
CFile: :modeReadWrite|CFile: :modeNoTruncate |CFile: :modeCreate) ; 
char d vr; 
filel.Write(&d, sizeof (d)); 
filel.Close(); 


} 


(4) 定义 类 CSet， 设 置 变 量 m severadd 和 m_port， 分 别 来 表示 服务 器 的 地 址 和 端口 
号 。 具 体 代码 如 下 : 


class CSet : public CDialog 
{ 
public: 
CSet(CWnd *pParent-NULL);  // standard constructor 
enum ( IDD = IDD DIALOG] }; 
CString m severadd; 
int m port; 


(5) 在 文件 Setl.cpp 中 编写 初始 化 函数 以 及 按钮 响应 函数 ， 有 具体 代码 如 下 : 


CSet::CSet(CWnd *pParent /*-NULL*/) 
: CDialog(CSet::IDD, pParent) 
t 
//{{AFX DATA INIT (CSet) 
// NOTE: the ClassWizard will add member initialization here 
//) )JAFX DATA INIT 
} 


void CSet::DoDataExchange (CDataExchange *pDX) 
{ 
CDialog: : DoDataExchange (pDX) ; 
//{{AFX_DATA_MAP (CSet) 
// NOTE: the ClassWizard will add DDX and DDV calls here 
//}}AEX DATA MAP 
} 
void CSet::OnOK() 
{ 
// TODO: Add your control notification handler code here 


CString str; // 临 时 变量 
GetDlgItem(IDC EDITl1)-»GetWindowText (m severadd); // 获 得 服务 器 地 址 
GetDlgItem(IDC EDIT2)-»GetWindowText (str); // 获 取 端 口号 码 

m port = atoi(str.GetBuffer (1)); // 转 换 端口 为 数字 型 


::SendMessage (this->m hWnd, WM CLOSE, 0, 0); 
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void CSet::OnReset () 
t 


GetDlgItem(IDC_EDIT1) ->SetWindowText ("" // 设 置 两 个 编辑 框 为 空 
GetDlgItem(IDC EDIT2) ->SetWindowText( 

) 

BOOL CSet::OnInitDialog() 

{ 
CDialog: :OnInitDialog(); 
m severadd = "mail.163.com"; // 初 始 化 变量 
GetD1gItem(IDC EDIT1)-»SetWindowText (m severadd); // 设 置 服务 器 地 址 
GetD1gItem (IDC_EDIT2) ->SetWindowText ("25"); // 设 置 端口 号 


return TRUE; 
} 


(6) 定义 函数 OnPeizhi(), “4 SMTP 服务 器 参数 设置 完毕 后 ， 界 面 中 的 所 有 按钮 和 控 
件 都 可 用 。 有 具体 代码 如 下 : 


void CMyDlg::OnPeizhi () 
t 
set.DoModal () ; // 调 用 模式 对 话 框 
addr.sin family = AF INET; // 为 地 址 结构 中 的 成 员 赋 值 
addr.sin port = htons(set.m port); 
/ /host-: :gethostbyname (set.m_severadd.GetBuffer (1) ) :// 从 服务 器 名 获 主机 地 址 
addr.sin addr.S un.S addr = 
inet addr (/*host-»h addr list[0] */ Set.m severadd.GetBuffer(1)); 
S = ::socket(AF INET, SOCK STREAM, IPPROTO TCP); // 创 建 套 接 字 
char buf[1024]; // 定 义 缓冲 区 
recv(s, buf, 1024, 0); // 接 收 响应 数据 
: :SendMessage (statu, SB_SETTEXT, 0, (long) "已 经 连接 服务 器 , 并 已 就 绪 ! ") ; /**/ 
GetD1gItem (IDC SENDER) ->EnableWindow (true); // 设 置 各 个 控件 状态 
GetDlgItem(IDC RECVER)-»EnableWindow (true); 
GetDlgItem(IDC SUBJECT) ->EnableWindow (true); 
GetDlgItem(IDC SENDMAIL) —>EnableWindow (true); 
GetDlgItem(IDC RECVMAIL) —->EnableWindow (true); 
GetDlgItem(IDC MAILTEXT) —>EnableWindow (true); 
GetDlgItem(IDC SENDER) ->SetWindowText (""); 
//::SendMessage (statu, SB SETTEXT, 0, (long) "邮件 发 送 成 功 ! "); 
} 


(7) 定义 发 送 邮件 函数 OnSendmail0， 实 现 邮 件 发 送 处 理 。 具 体 代 码 如 下 : 


void CMYD1g: :OnSendmail () 
t 
char buf[4]; 
CString data = "Data: Tue,04 Feb 2009 21:18:03+0800\r\n"; 
CString sender = "MAIL FROM:"; 
CString recver = "RCPT TO:"; 
CString subject - "Subject:"; 
CString s2, r, sl, mailtext; 
GetDlgItem(IDC SENDER)-»GetWindowText (32); 
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GetDlgItem(IDC SUBJECT)-»GetWindowText (s1); 
GetDlgItem(IDC RECVER)-»GetWindowText (r); 
GetDlgItem(IDC MAILTEXT)-»GetWindowText (mailtext); 
sender += s2; 
recver += r; 
subject += sl; 
CString sendmail; 
sendmail += "HELO"; 
sendmail += sender; 
sendmail += recver; 
sendmail += "DATA\r\n"; 
sendmail += subject; 
sendmail += mailtext; 
sendmail += "QUIT\r\n"; 
sendmail += "\0"; 
send(s, sendmail, sizeof(sendmail), 0); 
recv(s, but, 4, 0); 
if(buf != NULL) 
t 

if(atoi(buf) == 250) 

t 

::SendMessage (statu, SB SETTEXT, 0, (long) "邮件 发 送 成 功 ") ; 


::SendMessage(statu, SB SETTEXT, 0, (long) "邮件 发 送 失 败 ") ; 


::SendMessage(statu, SB SETTEXT, 0, (long) "邮件 正在 发 送 ") ; 


} 


到 此 为 止 ， 整 个 邮件 发 送 模块 介绍 完毕 。 至 于 接收 模块 ， 是 使 用 了 POP3 协议 ， 有 具体 
原理 请 读者 参考 本 章 5.2 节 中 的 实例 。 有 关 具 体 的 实现 代码 ， 请 读者 参考 本 书 附带 光盘 中 
的 源 代码 。 执 行 后 的 效果 如 图 5-12 所 示 。 
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ER 串口 通信 pu 


串口 通信 是 Visual C++ 开发 的 重要 领域 之 一 ， 可 以 接受 来 自 
CPU 的 并 行 数据 字符 ， 转 换 为 连续 的 串 行 数 据 流 发 送出 去 ， 同 时 可 
将 接收 的 串 行 数 据 流转 换 为 并 行 的 数据 字符 供给 CPU MBH. 在 


T 
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网 络 编程 开发 与 实战 


6.1 串口 通信 基础 


在 本 节 的 内 容 中 ， 首 先 简要 介绍 串口 通信 的 基本 知识 ， 使 读者 掌握 串口 通信 的 基本 原 
理 和 编程 思想 ， 为 读者 步 入 本 书后 面 知识 的 学 习 打 下 基础 。 


6.1.1 串口 通信 原理 


串 行 端口 的 本 质 功能 是 作为 CPU 和 串 行 设备 间 的 编码 转换 器 。 当 数据 从 CPU 经 过 
串 行 端口 发 送出 去 时 ， 字 节 数 据 转换 为 串 行 的 位 。 在 接收 数据 时 ， 串 行 的 位 被 转换 为 字 节 
数据 。 

在 Windows 环境 (Windows NT. Windows 98, Windows 2000, Windows XP) F, $A 
是 系统 资源 的 一 部 分 。 

应 用 程序 要 使 用 串口 进行 通信 ， 必 须 在 使 用 之 前 向 操作 系统 提出 资源 请 求 (打开 
口 )， 通 信 完 成 后 必须 释放 资源 (关闭 串口 )。 串 口 是 计算 机 上 一 种 非常 通用 的 设备 通信 协 
议 。 大 多 数 计算 机 包含 两 个 基于 RS-232 的 串口 。 串 口 同 时 也 是 仪器 仪表 设备 通用 的 通信 
端口 ， 很 多 GPIB 兼容 的 设备 也 带 有 了 RS-232 口 。 同 时 ， 串 口 通 信 协 议 也 可 以 用 于 获取 远程 
采集 设备 的 数据 。 

串口 通信 的 概念 非常 简单 ， 串 口 按 位 (bib 发 送 和 接收 字 节 。 尽 管 比 按 字 节 (byte) 的 并 行 
通信 慢 ， 但 是 串口 可 以 在 使 用 一 根 线 发 送 数据 的 同时 用 另 一 根 线 接收 数据 。 通 过 串口 通 
信 ， 可 以 很 简单 地 实现 远 距离 通信 功能 。 比 如 IEEE 488 定义 并 行 通信 状态 时 ， 规 定 设备 线 
总 长 不 得 超过 20 米 ， 并 且 任 意 两 个 设备 间 的 长 度 不 得 超过 2 米 ， 而 对 于 串口 而 言 ， 长 度 
可 达 1200 米 。 典 型 地 ， 串 口 用 于 ASCII 码 字 符 的 传输 。 在 通信 过 程 中 ， 使 用 下 面 的 3 根 
线 来 完成 : 

o Whee. 

Q Xi. 

a ”接收 。 

串口 通信 是 异步 的 ， 端 口 能 够 在 一 根 线 上 发 送 数据 ， 同 时 在 另 一 根 线 上 接收 数据 。 其 
他 线 用 于 握手 ， 但 不 是 必需 的 。 
串口 通信 最 重要 的 参数 是 波 特 率 、 数 据 位 、 停 止 位 和 奇偶 校 验 位 。 对 于 两 个 正在 进行 
通信 的 端口 ， 这 些 参数 必须 符合 如 下 4 个 要 求 。 

(1) WER: 这 是 一 个 衡量 通信 速度 的 参数 。 它 表示 每 秒 钟 传送 的 bit 个 数 。 例 如 300 
波 特 率 表示 每 秒 钟 发 送 300 个 bit。 当 我 们 提 到 时 钟 周期 时 ， 我 们 就 是 指 波 特 率 。 例 如 如 果 
协议 需要 4800 的 波 特 率 ， 那 么 时 钟 是 4800Hz。 这 意味 着 串口 通信 在 数据 线 上 的 采样 率 为 
4800Hz。 通 常 电话 线 的 波 特 率 为 14400、28800 和 36600。 波 特 率 可 以 远 远 大 于 这 些 值 ， 但 
是 波 特 率 和 距离 成 反比 。 高 波 特 率 常常 用 于 放置 的 很 近 的 仪器 间 的 通信 ， 典 型 的 例子 就 是 
GPIB 设备 的 通信 。 

Q) 数据 位 : 这 是 衡量 通信 中 实际 数据 位 的 参数 。 当 计算 机 发 送 一 个 信息 包 时 ， 实 际 


pn 
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的 数据 不 会 是 8 位 的 ， 标 准 的 值 是 S. 7 和 8 位 。 如 何 设置 取决 于 你 想 传送 的 信息 。 比 
如 ， 标 准 的 ASCH 码 是 0-127(7 位 )。 扩 展 的 ASCH 码 是 0-255(8 位 )。 如 果 数 据 使 用 简单 
的 文本 (标准 ASCII 码 )， 那 么 每 个 数据 包 使 用 7 位 数据 。 每 个 包 是 指 一 个 字 节 ， 包 括 开始 / 
停止 位 ， 数 据 位 和 奇偶 校 验 位 。 由 于 实际 数据 位 取决 于 通信 协议 的 选取 ， 术 语 “ 包 ” 指 任 
何 通 信 的 情况 。 

(3) 停止 位 : 用 于 表示 单个 包 的 最 后 一 位 。 典 型 的 值 为 1、1.5 和 2 位 。 由 于 数据 在 传 
输 线 上 是 定时 的 ， 并 且 每 一 个 设备 有 其 自己 的 时 钟 ， 很 可 能 在 通信 中 两 台 设备 间 出 现 了 小 
小 的 不 同步 。 

因此 停止 位 不 仅仅 是 表示 传输 的 结束 ， 并 且 提 供 计 算 机 校正 时 钟 同步 的 机 会 。 适 用 于 
停止 位 的 位 数 越 多 ， 不 同时 钟 同步 的 容忍 程度 越 大 ， 但 数据 传输 率 也 越 慢 。 

(4) 奇偶 校 验 位 : 这 是 串口 通信 中 一 种 简单 的 检 错 方式 。 有 4 种 检 错 方式 : 偶 、 奇 、 
高 和 低 。 当 然 没 有 校 验 位 也 是 可 以 的 。 

对 于 偶 和 奇 校 验 的 情况 ， 串 口 会 设置 校 验 位 (数据 位 后 面 的 一 位 )， 用 一 个 值 确保 传输 
的 数据 有 偶 个 或 者 奇 个 逻辑 高 位 。 例 如 ， 如 果 数 据 是 011， 那 么 对 于 偶 校 验 ， 校 验 位 为 
0， 保 证 逻辑 高 的 位 数 是 偶数 个 。 如 果 是 奇 校 验 ， 校 验 位 位 1， 这 样 就 有 3 个 逻辑 高 位 。 这 
样 使 得 接收 设备 能 够 知道 一 个 位 的 状态 ， 有 机 会 判断 是 否 有 噪声 干扰 了 通信 ， 或 者 传输 和 
接收 数据 是 否 不 同步 。 
612 ”物理 接口 标准 

1. 基本 任务 

串 行 通信 接口 的 基本 任务 如 下 。 

(1) 实现 数据 格式 化 : 因为 来 自 CPU 的 是 普通 的 并 行 数据 ， 所 以 ， 接 口 电路 应 具有 
实现 不 同 串 行 通信 方式 下 的 数据 格式 化 的 任务 。 

在 异步 通信 方式 下 ， 接 口 自 动 生成 起 止 式 的 帧 数据 格式 。 在 面向 字符 的 同步 方式 下 ， 
接口 要 在 待 传送 的 数据 块 前 加 上 同步 字符 。 

(2) 进行 串 -并 转换 串 行 传送 ， 数 据 是 一 位 一 位 串 行 传送 的 ， 而 计算 机 处 理 的 数据 是 
并 行 数据 。 所 以 应 首先 把 串 行 数据 转换 为 并 行 数 据 才 能 送 入 计算 机 处 理 。 因 此 串 -并 转换 是 
串 行 接口 电路 的 重要 任务 。 

(3) 控制 数据 传输 速率 ， 串 行 通信 接口 电路 应 具有 对 数据 传输 速率 一 一 波 特 率 进行 选 
择 和 控制 的 能 力 。 

(4) 进行 错误 检测 : 在 发 送 时 接口 电路 对 传送 的 字符 数据 自动 生成 奇偶 校 验 位 或 其 他 
校 验 码 。 接 收 时 ， 接 口 电 路 检查 字符 的 奇偶 校 验 或 其 他 校 验 码 ， 确 定 是 否 发 生 传送 错误 。 

(5) 进行 TTL 与 EIA 电 平 转换 : CPU 和 终端 均 采 用 TIL 电 平 及 正 逻辑 ， 它 们 与 EIA 
采用 的 电 平 及 负 逻 辑 不 兼容 ， 需 在 接口 电路 中 进行 转换 。 

(6) 提供 EIA-RS-232C 接口 标准 所 要 求 的 信号 线 : 远 距离 通信 采用 Modem 时 ， 需 要 
9 根 信号 线 ; 近 距 离 零 Modem 方式 只 需要 3 根 信号 线 。 这 些 信 号 线 由 接口 电路 提供 ， 以 便 
与 Modem 或 终端 进行 联络 与 控制 。 


ð 


2. 串 行 通信 接口 电路 的 组 成 


为 了 完成 上 述 串 行 接口 的 任务 ， 串 行 通信 接口 电路 一 般 由 可 编程 的 串 行 接口 芯 片 、 波 
特 率 发 生 器 、EIA 与 TTL 电 平 转换 器 以 及 地 址 译 码 电 路 组 成 。 其 中 ， 串 行 接口 芯 片 随 着 大 
规模 集成 电路 技术 的 发 展 ， 通 用 的 同步 (JSRT) 和 异步 (UART) 接 口 芯片 种 类 越 来 越 多 ， 如 
表 6-1 所 示 。 它 们 的 基本 功能 是 类 似 的 ， 都 能 实现 上 面 提出 的 串 行 通信 接口 基本 任务 的 大 
部 分 工作 ， 且 都 是 可 编程 的 。 使 用 这 些 芯片 作为 串 行 通 信 接 口 电 路 的 核心 芯片 ， 会 使 电路 
结构 比较 简单 。 


表 6-1 接口 芯片 说 明 


$ K ew 异步 (UART)( 起 止 式 ) AAEE ope 
ik - 
面向 字符 : Zz 


wwe | | fv | | 
ves [4 | | te — | 
wees [| | 00 [ww | 
mes | om — | 

3. 物理 标准 


为 使 计算 机 、 电 话 以 及 其 他 通信 设备 互相 沟通 ， 现 在 已 经 对 串 行 通信 建立 了 几 个 一 臻 
的 概念 和 标准 ， 包 括 传输 率 和 接口 标准 。 

(1) 传输 率 : 所 谓 传输 率 ， 就 是 指 每 秒 传输 多 少 位 ， 传 输 率 也 常 叫 波 特 率 。 国 际 上 规 
定 了 一 个 标准 波 特 率 系列 ， 标 准 波 特 率 也 是 最 常用 的 波 特 率 ， 标 准 波 特 率 系列 为 110、 
300、600、1200、4800、9600 和 19200bps。 大 多 数 CRT 终端 都 能 够 按 110 到 9600 范围 中 
的 任何 一 种 波 特 率 工 作 。 

打印 机 由 于 机 械 速度 比较 慢 ， 而 使 传输 波 特 率 受 到 限制 ， 所 以 ， 一 般 的 串 行 打印 机 工 
作 在 110 波 特 率 ， 点 针 式 打印 机 由 于 其 内 部 有 较 大 的 行 缓冲 区 ， 所 以 可 以 按 高 达 2400 波 
特 率 的 速度 接收 打印 信息 。 大 多 数 接口 的 接收 波 特 率 和 发 送 波 特 率 可 以 分 别 设置 ， 而 且 可 

(2) RS-232-C 标准 : RS-232-C 标准 对 两 个 方面 做 了 规定 ， 即 信号 电 平 标准 和 控制 信 
号 线 的 定义 。 

RS-232-C 采用 负 逻 辑 规 定 逻 辑 电 平 ， 信 号 电 平 与 通常 的 TTL 电 平 也 不 兼容 ，RS-232- 
C 将 -5~-15V 规定 为 “1”， 将 +5~+15V 规定 为 “0”。 图 6-1 是 TTL 标准 和 RS-232-C ds 
准 之 间 的 电 平 转换 。 
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图 6-1 TTL 标 准 和 RS-232-C 标 准 之 间 的 电 平 转换 
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串 行 通信 协议 分 同步 协议 和 异步 协议 。 

1. 异步 通信 协议 的 实例 一 一 起 止 式 异步 协议 

(1) 特点 与 格式 

起 止 式 异步 协议 的 特点 是 一 个 字符 一 个 字符 地 传输 ， 并 且 传 送 一 个 字符 总 是 以 起 始 位 
开始 ， 以 停止 位 结束 ， 字 符 之 间 没 有 固定 的 时 间 间 隔 要 求 。 其 格式 如 图 6-2 所 示 。 

每 一 个 字符 的 前 面 都 有 一 位 起 始 位 ( 低 电 平 ， 逻 辑 值 0)， 字 符 本 身 由 5-7 位 数据 位 组 
成 ， 接 着 字符 后 面 是 一 位 校 验 位 (也 可 以 没有 校 验 位 )， 最 后 是 一 位 /一 位 半 / 二 位 停止 位 ， 停 
止 位 后 面 是 不 定 长 度 的 空闲 位 。 停 止 位 和 空闲 位 都 规定 为 高 电 平 (逻辑 值 )， 这 样 就 能 保证 
起 始 位 开始 处 一 定 有 一 个 下 跳 沿 。 


| s 
第 (n-DD 个 字符 第 (n+ 了 DD) 个 字符 
停 (| 起 
奇偶 FE Loess 奇偶 止 七 位 数据 
校 验 位 | 位 一 人 一 一 一 好 位 “| 起 始 位 
hA A cx IM 


低位 高 位 。 下降 边 指出 下 一 
数据 流向 个 字符 的 开始 


6-2 起止 式 异步 协议 格式 


从 图 6-2 中 可 以 看 出 ， 这 种 格式 是 靠 起 始 位 和 停止 位 来 实现 字符 的 界定 或 同步 的 ， 故 
称 为 起 止 式 协议 。 

传送 时 ， 数 据 的 低位 在 前 ， 高 位 在 后 ， 图 6-3 表示 了 传送 一 个 字符 E 的 ASCAII 码 的 
波形 1010001。 当 把 它 的 最 低 有 效 位 写 到 右边 时 ， 就 是 的 ASCH f] 1000101=45H。 

Q) 起 / 止 位 的 作用 

起 始 位 实际 上 是 作为 联络 信号 附加 进来 的 ， 当 它 变 为 低 电 平时 ， 告 诉 收 方 传 送 开始 。 
它 的 到 来 ， 表 示 下 面 接着 是 数据 位 来 了 ， 要 准备 接收 。 而 停止 位 标志 一 个 字符 的 结束 ， 它 


NOSE ? X 
VN A X 
p GHE 网 络 编程 开发 与 实战 
表示 一 个 字符 传送 完毕 。 这 样 就 为 通信 双方 提供 了 何 时 开始 收发 、 何 时 结束 的 标志 。 
起 始 位 奇 校 “停止 位 
-JSA NI L1 
0 1 Ù 1 0 0 0 1 0 1 
和 一 一 


6-3 ”传送 字符 E 的 ASCAII 码 的 波形 1010001 


传送 开始 前 ， 发 收 双 方 把 所 采用 的 起 止 式 格式 (包括 字符 的 数据 位 长 度 、 停 止 位 位 数 、 
有 无 校 验 位 以 及 是 奇 校 验 还 是 偶 校 验 等 ) 和 数据 传输 速率 作 统一 规定 。 传 送 开 始 后 ， 接 收 设 
备 不断 地 检测 传输 线 ， 看 是 否 有 起 始 位 到 来 。 当 收 到 一 系列 的 “1”( 停 止 位 或 空 闪 位 ) 之 
后 ， 检 测 到 一 个 下 跳 沿 ， 说 明 起 始 位 出 现 。 确 认 起 始 位 后 ， 就 开始 接收 所 规定 的 数据 位 和 
奇偶 校 验 位 以 及 停止 位 。 经 过 处 理 将 停止 位 去 掉 ， 把 数据 位 拼装 成 一 个 并 行 字 节 ， 并 且 经 
校 验 后 ， 无 奇偶 错 才 算 正确 地 接收 了 一 个 字符 。 一 个 字符 接收 完毕 ， 接 收 设 备 又 继续 测试 
传输 线 ， 监 视 “0” 电 平 的 到 来 和 下 一 个 字符 的 开始 ， 直 到 全 部 数据 传送 完毕 。 

由 上 述 工作 过 程 可 看 到 ， 异 步 通 信和 是 按 字 符 传输 的 ， 每 传输 一 个 字符 ， 就 用 起 始 位 来 
通知 收 方 ， 以 此 来 重新 核对 收发 双方 同步 。 如 果 接 收 设备 和 发 送 设备 两 者 的 时 钟 频率 略 有 
偏差 ， 也 不 会 因 偏差 的 累积 而 导致 错位 ， 加 之 字符 之 间 的 空闲 位 也 为 这 种 偏差 提供 一 种 组 
冲 ， 所 以 异步 串 行 通信 的 可 靠 性 高 。 但 由 于 要 在 每 个 字符 的 前 后 加 上 起 始 位 和 停止 位 这 样 
一 些 附 加 位 ， 使 得 传输 效率 变 低 了 ， 只 有 约 80%。 因此 ， 起 止 协议 一 般 用 在 数据 速率 较 
慢 的 场合 (小 于 19.2kbps)。 在 高 速 传送 时 ， 一 般 要 采用 同步 协议 。 

2. 面向 字符 的 同步 协议 

Q) 特点 与 格式 

这 种 协议 的 典型 代表 是 IBM 公司 的 二 进 制 同步 通信 协议 (BSC)。 它 的 特点 是 一 次 传送 
由 若干 个 字符 组 成 的 数据 块 ， 而 不 是 只 传送 一 个 字符 ， 并 规定 了 10 个 字符 作为 这 个 数据 块 
的 开头 与 结束 标志 以 及 整个 传输 过 程 的 控制 信息 ， 它 们 也 叫做 通信 控制 字 。 由 于 被 传送 的 
数据 块 是 由 字符 组 成 ， 所 以 被 称 作 面 向 字符 的 协议 。 

Q) 特定 字符 (控制 字符 ) 

此 类 字符 数据 块 的 前 后 都 加 了 几 个 特定 字符 。SYN 是 同步 字符 (Synchronous 
CharacteD)， 每 一 帧 开始 处 都 有 SYN， 加 一 个 SYN 的 称 单 同 步 ， 加 两 个 SYN 的 称 双 同 
步 。 设 置 同步 字符 的 目的 是 起 联络 作用 ， 传 送 数 据 时 接收 端 不 断 检 测 ， 一 旦 出 现 同步 字 
符 ， 就 知道 是 一 帧 开始 了 。SOH 是 序 始 字符 (Start Of Header)， 它 表示 标题 的 开始 。 标 题 中 
包括 源 地 址 、 目 的 地 址 和 路 由 指示 等 信息 。STX 是 文 始 字符 (Start Of Text)， 它 标志 着 传送 
的 正文 (数据 块 ) 开 始 。 数 据 块 就 是 被 传送 的 正文 内 容 ， 由 多 个 字符 组 成 。 数 据 块 后 面 是 组 
终 字 符 ETB(End Of Transmission Block) 或 文 终 字 符 ETX(End Of Text), Xf ETB 用 在 正文 
很 长 、 需 要 分 成 若干 个 分 数据 块 、 分 别 在 不 同 帧 中 发 送 的 场合 ， 这 时 在 每 个 分 数据 块 后 面 
文 终 字 符 ETX。 一 帧 的 最 后 是 校 验 码 ， 它 对 从 SOH 开始 到 ETX( 或 ETB) 字 段 进行 校 
验 ， 校 验方 式 可 以 是 纵横 奇偶 校 验 或 CRC。 另 外 ， 在 面向 字符 协议 中 还 采用 了 一 些 其 他 通 
信 控 制 字 ， 它 们 的 名 称 如 表 6-2 所 示 。 
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X62 ”其 他 通信 控制 字 


序 始 (SOH) 0000001 00000001 
文 始 (STX) 00000010 
组 终 (ETB) 0010111 00100110 


EBCDIC 


文 终 (ETX) 0000011 00000011 
同步 (SYN) 0010110 00110010 
送 毕 (EOT) 0000100 00110111 
询问 (ENQ) 0000101 00101101 
确认 (ACK) 0000110 00101110 


否认 (NAR) 0010101 00111101 


转 义 DLE) 00010000 

(3) 数据 透明 

面向 字符 的 同步 协议 与 异步 起 止 协议 有 区 别 ， 需 要 在 每 个 字符 前 后 附加 起 始 和 停止 
位 ， 因 此 ， 传 输 效率 提高 了 。 同 时 ， 由 于 采用 了 一 些 传输 控制 字 ， 所 以 增强 了 通信 控制 能 
力 和 校 验 功能 。 

但 也 存在 一 些 问题 ， 例 如 ， 如 何 区 别 数 据 字 符 代 码 和 特定 字符 代码 的 问题 ， 因 为 在 数 
据 块 中 完全 有 可 能 出 现 与 特定 字符 代码 相同 的 数据 字符 ， 这 就 会 发 生 误解 。 比 如 正文 有 个 
与 文 终 字 符 ETX 的 代码 相同 的 数据 字符 ， 接 收 端 就 不 会 把 它 当 作为 普通 数据 处 理 ， 而 误 
认为 是 正文 结束 ， 因 而 产生 差错 。 

因此 ， 协 议 应 具有 将 特定 字符 作为 普通 数据 处 理 的 能 力 ， 这 种 能 力 叫 做 “数据 透 
明 ”。 为 此 ， 协 议 中 设置 了 转移 字符 DLE(Data Link Escape)。 当 把 一 个 特定 字符 看 成 数据 
时 ， 在 它 前 面 要 加 一 个 DLE， 这 样 接收 器 收 到 一 个 DLE 就 可 预知 下 一 个 字符 是 数据 字 
符 ， 而 不 会 把 它 当 作 控 制 字符 来 处 理 了 。DLE 本 身 也 是 特定 字符 ， 当 它 出 现在 数据 块 中 
时 ， 也 要 在 它 前 面 加 上 另 一 个 DLE。 这 种 方法 叫 字 符 填充 。 字 符 填充 实现 起 来 相当 麻烦 ， 
且 依 赖 于 字符 编码 。 

正 是 由 于 以 上 的 缺点 ， 所 以 又 产生 了 新 的 面向 比特 的 同步 协议 。 

3. 面向 比特 的 同步 协议 


(0) 特点 与 格式 

面向 比特 的 协议 中 最 具有 代表 性 的 是 IBM 公司 制定 的 同步 数据 链 路 控制 规程 SDLC 
(Synchronous Data Link Control)、 国 际 标准 化 组 织 ISO(International Standard Organization) 的 
高 级 数据 链 路 控制 规程 HDLC(High Level Data Link ControD)、 美 国 国家 标准 协会 (American 
National Standard Institute) 的 高 级 数据 通信 规程 ADCC P(Advanced Data Communication 
Control Procedure)。 这 些 协 议 的 特点 是 所 传输 的 一 帧 数据 可 以 是 任意 位 ， 而 且 它 是 靠 约定 
的 位 组 合 模式 ， 而 不 是 靠 特定 字符 来 标志 帧 的 开始 和 结束 ， 所 以 被 称 为 “面向 比特 ”的 协 
议 ， 此 协议 的 一 般 帧 格式 如 图 6-4 所 示 。 


eg 


\ X 
Visual C++ 


网 络 编程 开发 与 实战 


8 位 8 位 8 位 ”>=0 位 ”16 位 8 位 
01111110 A G 1 FC 01111110) 


开始 地 址 | 控制 | 信息 | 校 验 | 结束 
标志 场所 场 场 场 标志 


6-4 帧 格式 


Q) 帧 信息 的 分 段 
由 图 6-4 所 示 可 知 ，SDLC/HDLC 的 一 帧 信息 包括 以 下 几 个 场 (Filed)， 所 有 场 都 是 从 有 
效 位 开始 传送 。 

Q SDLC/HDLC 标志 字符 : SDLC/HDLC 协议 规定 ， 所 有 信息 传输 必须 以 一 个 标志 
字符 开始 ， 且 以 同一 个 字符 结束 。 这 个 标志 字符 是 01111110， 称 标志 场 (F)。 从 
开始 标志 到 结束 标志 之 间 构 成 一 个 完整 的 信息 单位 ， 称 为 一 帧 (Frame)。 所 有 的 信 
息 是 以 帧 的 形 传输 的 ， 而 标志 字符 提供 了 每 一 帧 的 边界 。 接 收 端 可 以 通过 搜索 
01111110 来 探知 帧 的 开头 和 结束 ， 以 此 建立 帧 同步 。 

O “地址 场 和 控制 场 : 在 标志 场 之 后 ， 可 以 有 一 个 地 址 场 A(Address) 和 一 个 控制 场 
C(Control) 。 地 址 场 用 来 规定 与 之 通信 的 次 站 的 地 址 。 控 制 场 可 规定 若干 个 命 
令 。SDLC 规定 A 场 和 C 场 的 宽度 为 8 位 或 16 位 。 接 收 方 必须 检查 每 个 地 址 字 
节 的 第 一 位 ， 如 果 为 “0”， 则 后 面 跟着 另 一 个 地 址 字 节 ; 如 果 为 “1”， 则 该 字 
节 就 是 最 后 一 个 地 址 字 节 。 同 理 ， 如 果 控 制 场 第 一 个 字 节 的 第 一 位 为 是 “0”， 
则 还 有 第 二 个 控制 场 字 节 ， 和 否则 就 只 有 一 个 字 节 。 

口 ”信息 场 :， 跟 在 控制 场 之 后 的 是 信息 场 I(Information)。I 场 包含 要 传送 的 数据 ， 并 
不 是 每 一 帧 都 必须 有 信息 场 。 即 数据 场 可 以 为 0， 当 它 为 0 时 ， 则 这 一 帧 主要 是 
控制 命令 。 

a Wie: 紧 跟 在 信息 场 之 后 的 是 两 字 节 的 帧 校 验 ， 帧 校 验 场 称 为 FC(Frame 
Check) 场 或 称 为 帧 校 验 序列 FCS(Frame Check Sequence). SDLC/HDLC 均 采 用 16 
位 循环 见 余 校 验 码 CRC(Cyclic Redundancy Code)。 除 了 标志 场 和 自动 插入 的 0 以 
外 ， 所 有 的 信息 都 参加 CRC 计算 。 

实际 应 用 时 会 涉及 如 下 两 个 技术 问题 。 

a “0 位 的 插入 /删除 : SDLC/HDLC 协议 规定 以 01111110 为 标志 字 节 ， 但 在 信息 场 中 
也 完全 有 可 能 有 同一 种 模式 的 字符 ， 为 了 把 它 与 标志 区 分 开 来 ， 所 以 采取 了 0 位 
插入 和 删除 技术 。 具 体 做 法 是 发 送 端 在 发 送 所 有 信息 ( 除 标志 字 节 外 ) 时 ， 只 要 遇 
到 连续 5 个 1， 就 自动 插入 一 个 0， 当 接收 端 在 接收 数据 时 ( 除 标志 字 节 ) 如 果 连 续 
收 到 5 个 1， 就 自动 将 其 后 的 一 个 0 删除 ， 以 恢复 信息 的 原 有 形式 。 这 种 0 位 的 
插入 和 删除 过 程 是 由 硬件 自动 完成 的 。 

Q SDLC/HDLC 异常 结束 : 如 果 在 发 送 过 程 中 出 现 错误 ， 则 SDLC/HDLC 协议 常用 
异常 结束 (Aborb 字 符 ， 或 称 为 失效 序列 ， 使 本 帧 作废 。 在 HDLC 规程 中 ，7 个 连 
续 的 1 被 作为 失效 字符 ， 而 在 SDLC 中 失效 字符 是 8 个 连续 的 1。 当 然 在 失效 序 
列 中 不 使 用 0 位 插入 /删除 技术 。SDLC/HDLC 协议 规定 ， 在 一 帧 之 内 不 允许 出 现 
数据 间隔 。 在 两 帧 之 间 ， 发 送 器 可 以 连续 输出 标志 字符 序列 ， 也 可 以 输出 连续 的 
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高 电 平 ， 它 被 称 为 空闲 (Idle) 信 号。 
6.2 串口 通信 编程 


使 用 MFC 可 以 进行 串口 通信 编程 ， 在 本 节 的 内 容 中 ， 将 简要 介绍 串口 通信 编程 的 基 


本 知识 ， 为 读者 进入 本 书后 面 内 


容 的 学 习 打 下 坚实 的 基础 。 


6.2.1 16 位 串口 应 用 程序 


在 16 位 串口 应 用 程序 中 ， 可 以 使 用 的 16 位 的 Windows API 通信 函数 实现 编程 处 理 。 
(1) 函数 OpenCommQ: 用 于 打开 串口 资源 ， 并 且 指 定 输 入 、 输 出 缓冲 区 的 大 小 (以 字 


节 计 )。 


(2) CloseComm(: 用 于 关闭 串口 。 例 如 下 面 的 代码 : 


int idComDev; 


idComDev = OpenComm("COM1", 1024, 128); 


CloseComm (idComDev) ; 


(3) 函数 BuildCommDCB()fll setCommState(): 用 于 填写 设备 控制 块 DCB， 然 后 对 已 
打开 的 串口 进行 参数 配置 。 例 如 下 面 的 代码 : 


DCB dcb; 
BuildCommDCB ("COM1:2400, 
SetCommState (&dcb) ; 


n,8,1", &dcb); 


(4) 函数 ReadComm 和 WriteComm(): 对 串口 进行 读 写 操作 ， 即 实现 数据 的 接收 和 发 


送 。 例 如 下 面 的 代码 : 


char *m pRecieve; 
int count; 


ReadComm(idComDev, m pRecieve, count); 


Char wr[30]; 
int count2; 
WriteComm(idComDev, wr, 


count2); 


16 位 下 的 串口 通信 程序 最 大 的 特点 是 ， 串 口 等 外 部 设备 的 操作 有 自己 特有 的 API K 


数 。 而 32 位 程序 则 把 串口 操作 ( 


以 及 并 口 等 ) 和 文件 操作 统一 起 来 了 ， 使 用 类 似 的 操作 。 


6.22 ”以 MSComm 控 件 实现 串口 通信 编程 


Visual C++ 为 我 们 提供 了 一 
(MSComm) 来 支持 应 用 程序 对 串 
为 方便 地 实现 对 通过 计算 机 串 


种 好 用 的 ActiveX 控件 Microsoft Communications Control 
的 访问 ， 在 应 用 程序 中 插入 MSComm 控件 后 就 可 以 较 
收发 数据 了 。 


1. MSComm 控 件 的 主要 属性 及 事件 
(1) CommPort: 设置 或 返回 串 行 端 口号 ， 默 认 值 为 1。 


NC rd eet 
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Q) Setting: 设置 或 返回 串口 通信 参数 ， 格 式 为 “ 波 特 率 , 奇偶 校 验 位 , 数据 位 , 停止 
位 ”。 例 如 : 

MSComml .Setting = "9600,n,8,1"; 

(3) PortOpen: 打开 或 关闭 串 行 端口 ， 格 式 为 ; 

MSComml.PortOpen = {True | False} 


(4) InBufferSize: 设置 或 返回 接收 缓冲 区 的 大 小 ， 默 认 值 为 1024 字 节 。 

(5) InBufferCount: 返回 接收 缓冲 区 内 等 待 读 取 的 字 节 数 ， 可 通过 设置 该 属性 为 0 来 
清空 接收 缓冲 区 o 

(6) RThreshold: 该 属性 为 一 阀 值 ， 它 确定 当 接 收 缓冲 区 内 的 字 节 个 数 达 到 或 超过 该 
值 后 就 产生 代码 为 ComEvReceive 的 OnComm 事件 。 

(7) SThreshold: 该 属性 为 一 阀 值 ， 它 确定 当 发 送 缓 冲 区 内 的 字 节 个 数 少 于 该 值 后 就 
产生 代码 为 ComEvSend 的 OnComm 事件 。 

(8) InputLen: 设置 或 返回 接收 缓冲 区 内 用 Input 读 入 的 字 节 数 ， 设 置 该 属性 为 0 表示 
Input 读 取 整个 缓冲 区 的 内 容 。 

(9) Input: 从 接收 缓冲 区 读 取 一 串 字符 。 

(10) OutBufferSize: 设置 或 返回 发 送 缓冲 区 的 大 小 ， 默 认 值 为 512 字 节 。 

(11) OutBufferCount: 返回 发 送 缓冲 区 内 等 待 发 送 的 字 节 数 ， 可 通过 设置 该 属性 为 0 
来 清空 缓冲 区 。 

(12) OutPut: 向 发 送 缓冲 区 传送 一 串 字 符 。 

如 果 在 通信 过 程 中 发 生 错误 或 事件 ， 则 会 触发 OnComm 事件 ， 并 由 CommEvent 属性 
代码 反映 错误 类 型 ， 在 通信 程序 的 设计 中 可 根据 该 属性 值 来 执行 不 同 的 操作 。CommEvent 
属性 值 及 其 含义 如 下 。 

口 ComEvSend: 值 为 1， 发 送 缓冲 区 的 内 容 少 于 SThreshold 指定 的 值 。 

Q ComEvReceive: 值 为 2， 接 收 缓冲 区 内 字符 数 达 到 RThreshold 指定 的 值 。 

口 ComEvFrame: 值 为 1004， 硬 件 检测 到 帧 错误 。 

Q ComEvRxOver: 值 为 1008， 接 收 缓冲 区 溢出 。 

Q ComEvTxFull: 值 为 1010， 发 送 缓冲 区 溢出 。 
口 
u 
表 


ComEvRxParity: 值 为 1009， 奇 偶 校 验 错误 。 
ComEvEOF: 值 为 7， 接 收 数据 中 出 现 文件 尾 (ASCII 码 为 26) 字 符 。 
6-3 列 出 了 MSComm 控件 可 以 捕获 的 错误 。 


表 6-3 MSComm 控 件 可 以 捕获 的 错误 


值 Hi x 
380 无 效 属性 值 comInvalidPropertyValue 
383 属性 为 只 读 comSetNotSupported 
394 属性 为 只 读 comGetNotSupported 
8000 端口 打开 时 操作 不 合法 comPortOpen 
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续 表 
值 描 x 
8001 超时 值 必须 大 于 0 
8002 无 效 端口 号 comPortInvalid 
8003 属性 只 在 运行 时 有 效 
8004 属性 在 运行 时 为 只 读 
8005 端口 已 经 打开 comPortAlreadyOpen 
8006 设备 标识 符 无 效 或 不 支持 该 标识 符 
8007 不 支持 设备 的 波 特 率 
8008 指定 的 字 节 大 小 无 效 
8009 默认 参数 错误 
8010 硬件 不 可 用 (被 其 他 设备 锁定 ) 
8011 函数 不 能 分 配 队 列 
8012 设备 没有 打开 comNoOpen 
8013 设备 已 经 打开 
8014 不 能 使 用 comm 通知 
8015 不 能 设置 comm 状态 comSetCommsStateFailed 
8016 不 能 设置 comm 事件 屏蔽 
8018 仅 当 端口 打开 时 操作 才 有 效 comPortNotOpen 
8019 设备 忙 
8020 读 comm 设备 错误 comReadError 
8021 为 该 端口 检索 设备 控制 块 时 的 内 部 错误 comDCBError 


2. MSComm 控 件 的 两 种 处 理 通 讯 的 方式 
MSComm 控件 提供 了 两 种 处 理 通讯 的 方式 ， 分 别 是 事件 驱动 方式 和 查询 方式 。 


a) 事件 驱动 


事件 驱动 通讯 是 处 理 串 行 端 


方式 


交互 作用 的 一 种 非常 有 效 的 方法 。 在 许多 情况 下 ， 在 事 


件 发 生 时 需要 得 到 通知 ， 例 如 ， 在 串口 接收 缓冲 区 中 有 字符 ， 或 者 CD(Carier Detect) 或 
RTS(Request To Send) 线 上 一 个 字符 到 达 或 一 个 变化 发 生 时 。 在 这 些 情况 下 ， 可 以 利用 


MSComm 控件 的 OnComm 事件 拓 


获 并 处 理 这 些 通讯 事件 。OnComm 事件 还 可 以 检查 和 处 


理 通 讯 错误 。 所 有 通讯 事件 和 通讯 错误 的 列表 参阅 CommEvent 属性 。 在 编程 过 程 中 ， 就 
可 以 在 OnComm 事件 处 理 函 数 中 加 入 自己 的 处 理 代 码 。 这 种 方法 的 优点 是 程序 响应 及 


时 ， 可 靠 性 高 。 每 个 MSComm 控件 对 应 着 一 个 串 行 端口 。 如 果 应 用 程序 需要 访问 多 个 串 
多 个 MSComm 控件 。 


行 端口 ， 必 须 使 
(2) 查询 方式 


查询 方式 实质 


上 还 是 事件 驱动 ， 但 在 有 些 情况 下 ， 这 种 方式 显得 更 为 便捷 。 在 程序 的 
每 个 关键 功能 之 后 ， 可 以 通过 检查 CommEvent 属性 的 值 来 查询 


和 件 和 和 错误。 如 果 应 用 程 


序 较 小 ， 并 且 是 自 保持 的 ， 这 种 方法 可 能 是 更 可 取 的 。 例 如 ， 如 果 写 一 个 简单 的 电话 拨号 


程序 ， 则 没有 必要 对 每 接收 一 个 字符 都 产生 事件 ， 因 为 唯一 等 待 接收 的 字符 是 调制 解 调 器 
的 “确定 ”响应 。 

3. 使 用 MSComm 控 件 

要 使 用 ActiveX 控件 MSComm， 必 须 先 将 其 添加 我 们 的 工程 中 ， 其 方法 如 下 。 

(1) 首先 从 菜单 栏 中 选择 Project 一 Add To Project Components and Controls 命令 ， 如 
图 6-5 所 示 。 


6-5 ”添加 控件 


(2) 在 弹出 的 Components and Controls Gallery 对 话 框 中 选择 Registered ActiveX 
Controls 文件 夹 中 的 Microsoft Communications Control,version 6.0 选项 ， 如 网 6-6 所 示 。 


Registered Activel Controls 


[3 ListPad class M Microsoft Coolbar Control, version 6.0 
ft DataCombo Control, version 6.0 (| 


ActiveX Upload Control, version 1.5 

ADO Data Control, version 6.0 (DLEDD) 

Agent Control 2.0 ft DECombo Control, version 6.0 
Animation Control, version 5.0 (SP2) ft DBList Control, version 6.0 
Animation Control, version 6.0 


ft Flat Scrollbar Control, version || 
ft FlexGrid Control, version 6.0 


Conmon Dialog Control, version 6.0 £t Forms 2.0 CheckBox 
'osoft Forms 2.0 ComboBox 


a] 


— Š 


[AWINDOWS}system3AMSCOMM32.0CX ———— 


图 6-6 选择 “Microsoft Communications Control,version 6.0” 选 项 


单 击 Insert 按钮 ，MSComm 控件 就 被 增加 到 工程 中 了 。 
与 此 同时 ， 类 CMSComm 的 相关 文件 mscomm.h 和 mscomm.cpp 也 一 起 被 加 入 此 项 目 
的 Header Files 和 Source Files 中 。 


的 接 
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4. 分 析 MSComm 


直接 分 析 mscomm.h 头 文件 就 可 以 完备 地 获取 这 个 控件 的 使 用 方法 (主要 是 public 类 型 
函数 )， 接 下 来 摘 取 了 头 文件 的 主要 代码 并 对 其 关键 部 分 给 出 了 注释 : 
dif !defined(AFX MSCOMM H ) 
#define AFX MSCOMM H 
dif MSC VER > 1000 


#pragma once 
#endif // MSC VER > 1000 


class CMSComm : public CWnd 
{ 
protected: 
DECLARE DYNCREATE (CMSComm) 
public: 
CLSID const& GetClsid() 
t 
static CLSID const clsid = ( 0x648a5600, 0x2c6e, 0x101b, 
{ 0x82, 0xb6, 0x0, 0x0, OxO, OxO, OxO, 0x14 ) ); 
return clsid; 
) 
virtual BOOL Create (LPCTSTR lpszClassName, 
LPCTSTR lpszWindowName, DWORD dwStyle, 
const RECT &rect, 
CWnd *pParentWnd, UINT nID, 
CCreateContext *pContext-NULL) 


return CreateControl(GetClsid(), lpszWindowName, 
dwStyle, rect, pParentWnd, nID); 


BOOL Create (LPCTSTR lpszWindowName, DWORD dwStyle, 

const RECT &rect, CWnd *pParentWnd, UINT nID, 

CFile *pPersist-NULL, BOOL bStorage-FALSE, 

BSTR bstrLicKey-NULL) 
{ 

return CreateControl(GetClsid(), lpszWindowName, dwStyle, rect, 
pParentWnd, nID, pPersist, bStorage, bstrLicKey); 

} 


// 属性 
public: 


// Operations 

public: 
void SetCDHolding (BOOL bNewValue); 
BOOL GetCDHolding(); 
void SetCommID (long nNewValue); 
long GetCommID () ; 
void SetCommPort (short nNewValue) ; 
// 设 置 端口 号 ， 如 nNewValue=1 表示 COMI 
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short GetCommPort () ; 

void SetCTSHolding(BOOL bNewValue) ; 

BOOL GetCTSHolding(); 

void SetDSRHolding(BOOL bNewValue) ; 

BOOL GetDSRHolding(); 

void SetDTREnable (BOOL bNewValue) ; 

BOOL GetDTREnable () ; 

void SetHandshaking (long nNewValue) ; 
long GetHandshaking|(); 

void SetInBufferSize(short nNewValue); 
short GetInBufferSize(); 

void SetInBufferCount (short nNewValue); 
Short GetInBufferCount (); 

void SetBreak(BOOL bNewValue); 

BOOL GetBreak(); 

void SetInputLen(short nNewValue); 

short GetInputLen(); 

void SetNullDiscard(BOOL bNewValue); 
BOOL GetNullDiscard(); 

void SetoutBufferSize (short nNewValue); 
short GetOutBufferSize(); 

void SetoutBufferCount (short nNewValue); 
Short GetOutBufferCount () ; 

void SetParityReplace (LPCTSTR lpszNewValue); 
CString GetParityReplace(); 

void SetPortOpen(BOOL bNewValue); 

// 打 开 或 关闭 串口 。TRUE: 打开 ，FALSE: 关闭 
BOOL GetPortOpen(); 

// 串 口 是 否 已 打开 。TRUE: HF, FALSE: 关闭 
void SetRThreshold(short nNewValue); 

// 如 果 设 置 为 1， 表 示 一 接收 到 字符 就 发 送 2 号 事件 
Short GetRThreshold(); 

void SetRTSEnable (BOOL bNewValue); 

// 硬 件 担 手 使 能 ? 

BOOL GetRTSEnable () ; 

void SetSettings(LPCTSTR lpszNewValue) ; 
//Settings Hi 4 部 分 组 成 。 

// 其 格式 为 : "BBBB,P,D, S"， 即 " 波 特 率 , 是 否 奇 偶 校 验 , 数据 位 的 个 数 , 停止 位 " 
CString GetSettings(); 

void SetSThreshold(short nNewValue); 

// 如 果 保持 默认 值 0 不 变 ， 则 表示 发 送 数据 的 过 程 中 串口 上 不 发 生 事件 
Short GetSThreshold(); 

void SetOutput (const VARIANT &newValue); 
// 一 个 非常 重要 的 函数 ， 用 于 写 串口 ， 注 意 其 接收 的 输入 参数 为 VARIANT 类 型 对 象 ， 
// 我 们 需要 将 字符 串 转化 为 VARIANT 类 型 对 象 
VARIANT GetOutput (); 

void SetInput(const VARIANT &newValue); 
VARIANT GetInput () ; 

// 一 个 非常 重要 的 函数 ， 用 于 读 串 口 ， 注 意 其 返回 的 是 VARIANT 类 型 对 象 ， 我 们 需要 
// 将 其 转化 为 字符 串 

void SetCommEvent (short nNewValue); 
short GetCommEvent () ; 
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// 一 个 非常 重要 的 函数 ， 获 得 串口 上 刚 发 生 的 事件 (“事件 ”可 以 理解 为 软件 意义 上 的 
//“ 消 息 ” 或 硬件 意义 上 的 “中 断 ”) ， 事 件 的 发 送 会 导致 onComm 消息 的 诞生 
void SetEOFEnable (BOOL bNewValue); 

BOOL GetEOFEnable (); 

void SetInputMode (long nNewValue); 

long GetInputMode () ; 


iF 


1/4 


AFX INSERT LOCATION} } 


// Microsoft Visual C++ will insert additional declarations immediately 
// before the previous line. 
#endif 


a) 
Q) 
G) 
(4) 
G) 


6.2.3 


使 
操作 ， 可 
介绍 过 


此 可 见 ，MSComm 接口 可 以 分 为 如 下 5 大 类 。 


打开 与 设置 串口 的 接口 函数 。 

获得 串口 设置 和 串口 状态 的 接口 函数 。 

设置 串口 发 送 数据 方式 、 缓 冲 区 接口 及 发 送 数据 的 接口 函数 。 
设置 串口 接收 数据 方式 、 缓 冲 区 接口 及 接收 数据 的 接口 函数 。 
设置 与 获取 串口 上 发 生 的 事件 的 接口 函数 。 


Windows API 实 现 串口 通信 编程 


Windows API 可 以 在 Windows 环境 下 进行 串口 编程 ， 这 样 无 需 对 硬件 直接 进行 
通过 VC、VB 和 Delphi 等 语言 进行 调用 ， 大 大 方便 了 对 数据 的 处 理 。 前 面 曾 经 
Windows API 实现 16 位 串口 应 用 程序 的 知识 ， 本 节 将 进一步 讲解 。 


1. Windows API 串 口 通 信函 数 
在 32 位 的 Windows 系统 中 ， 串 口 通信 是 作为 文件 处 理 的 ， 串 口 操作 一 般 为 打开 、 关 


闭 、 读 取 、 
(1) 打开 和 关闭 串 


© 


写 入 等 操作 ， 相 应 的 Windows API 函数 如 下 。 


打开 串 


在 Windows 系统 中 ， 串 口 通信 会 话 以 调用 CreateFile0 函 数 开始 。 函 数 CreateFile() n] 


以 读 写 访 


问 串 口 ， 返 回 一 个 句柄 ， 并 在 以 后 的 端口 操作 中 使 用 。 


CreateFile (0) 函 数 的 声明 格式 如 下 : 


HANDLE CreateFile( 


LPCTSTR lpszNAME, // 指定 要 打开 的 串口 逻辑 名 

DWORD fdwAccess, // 指定 串口 访问 的 类 型 

DWORD fdwShareMode, // 指定 端口 的 共享 属性 

LPSECURITY ATTRIBUTES lpsa, // 引用 安全 属性 结构 SECURITY ATTRIBUTES 
DWORD fdwCreate, // 指定 createFile () 正在 被 已 有 的 文件 调用 时 应 采取 的 措施 
DWORD fdwAttrsAndFlags, // 描述 端口 的 各 种 属性 

HANDLE hTemolateFile // 指向 模板 文件 的 句柄 


其 中 安全 属性 结构 SECURITY ATTRIBUTES 的 声明 格式 如 下 : 


typedef struct SECURITY ATTRIBUTES { 


网 络 编程 开发 与 实战 


DWORD nLength; // 指明 该 结构 的 长 度 
LPVOID lpSecurityDescriptor; // 指向 一 个 安全 描述 字符 
BOOL bInheritHandle; // 表明 句柄 是 否 能 被 继承 

) SECURITY ATTRIBUTES; 


调用 CreateFile0 函 数 打开 COMI 串口 的 操作 如 下 : 


HANDLE hCOM; 

DWORD DWeRROR; 

hCom = Creatfile("COM1", // 对 串口 1 进行 操作 
GENERIC READ | GENERIC WRITE，// 人 允许 读 和 写 
0，// 独 占 方式 
NULL, 
OPEN EXISTING, 
FILE ATTRIBUTE NORMAL | FILE FLAG OVERLAPPED, // ẸJA 
NULL 
) 

if(hCOM — INVALID HANDLE VALUE) 

f 


dwError = GetLastError(); // 处 理 错误 
} 
一 旦 串口 处 于 打开 状态 ， 就 可 以 分 配 一 个 发 送 缓冲 区 和 接收 缓冲 区 ， 并 且 通 过 调用 
SetupComm() 函 数 实现 其 他 初始 化 工作 。 函 数 SetmpComm0) 的 声明 格式 如 下 : 
BOOL SetupComm ( 
HANDLE Hfile, // 由 CreatFile() 返 回 的 指向 已 打开 端口 的 句柄 
DWORD dwInQueue, // 输入 缓冲 区 大 小 
DWORD dwOutQueue // 输出 缓冲 区 大 小 
); 
© RAAB 
关闭 串口 通过 调用 CloseHandleO 函 数 关 闭 由 CreatHandleO 函 数 返 回 的 句柄 来 完成 。 函 
数 CloseHandle() 的 声明 格式 如 下 : 
BOOL CloseHandle ( 
HANDLE hObject // 需 关 闭 的 设备 句柄 


) 


Q) 串口 配置 和 串口 属性 

在 用 CreatFile0 函 数 打 开 串 口 后 ， 系 统 将 根据 上 次 打开 串口 时 设置 的 值 来 初始 化 串 
口 ， 可 以 集成 上 次 打开 操作 后 的 数值 ， 包 括 设备 控制 块 DCB) 和 超时 控制 结构 
(COMMTIMEOUTS)。 如 果 是 首次 打开 串口 ，Windows 会 使 用 默认 配置 。 

© 串口 配置 

在 Windows 中 使 用 GetCommState() 函 数 获取 串口 的 当前 配置 ， 使 用 SetCommState() Fi 
数 重新 分 配 串口 资源 的 各 个 参数 。 

GetCommState() 函 数 的 声明 格式 如 下 : 

BOOL GetCommState ( 


HANDLE hFile, // HiCreatFile () 函数 返回 的 指向 已 打开 的 串口 的 句柄 
LPDCB lpDCB // 指向 device-control block structure 的 指针 
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); 
其 中 DCB 的 结构 声明 格式 如 下 : 


typedef struct DCB { 
DWORD DCBlength; // DCB 块 大 小 
DWORD BaudRate; // 数据 传输 率 
DWORD fBinary:1; // 二 进 制 模式 ， 不 检验 EOF 
DWORD fParity:1; // 允许 奇偶 校 验 
DWORD fOutCtsFlow:1; // CTS 输出 流 控制 
DWORD fOutDsrFlow:1; // DSR 输出 流 控 制 
DWORD fDtrContorl:2; // DTR 流 控制 类 型 
DWORD fDsrSensitivity:1; // 对 DTR 信号 线 是 否 敏 感 
DWORD fTXContinueOnOxff:1; // XOFF continue Tx 
DWORD fOutx:1; // XON/XOFF 输出 流 控制 
DWORD fInX:1; // XON/XOFF 输入 流 控制 
DWORD fErrorChar:1; // 错误 替换 
DWORD fNull:1; // 是 否 丢弃 接收 到 的 NULL 字符 
DWORD fRtsControl:2; // RTS 流 控制 
DWORD fAbortOnError:1; // 发 送 错误 ， 指 定 是 否 终止 读 、 写 操作 
DWORD fDummy2:17; // 保留 
WORD wReserved; // 现在 不 用 
WORD Xonbim; // XOFF 字符 发 送 之 前 接收 到 缓冲 区 中 可 允许 的 最 小 字 节 数 
WORD XoffLim; // XOFF 字符 发 送 之 前 缓冲 区 中 可 允许 的 最 小 可 用 字 节 数 
BYTE ByteSize; // 端口 当前 使 用 的 数据 位 数 
BYTE Parity; // 当前 使 用 的 奇偶 校 验 法 
BYTE StopBits; // 当前 使 用 的 停止 位 数 
char XonChar; // 发 送 和 接收 的 xow 字符 值 
char XoffChar; // 发 送 和 接收 的 XOFF 字符 值 
char ErrorChar; // 用 来 替代 接收 到 的 奇偶 校 验 发 生 错误 的 字符 
char EofChar; // 表示 数据 的 结束 
char EvtChar; // 事件 字符 
WORD wReservedl; // 保留 的 位 
} DCB; 


如 果 调 用 GetCommState0 函 数 成 功 ， 则 返回 值 不 为 零 。 若 函数 调用 失败 ， 则 返回 值 为 
零 ， 可 以 调用 GetLastError0 函 数 来 获取 进一步 的 错误 信息 。 
GetLastError() 也 是 Windows API 函数 ， 其 声明 格式 如 下 : 


DWORD GetLastError (VOID); 


如 果 应 用 程序 需要 修改 配置 ， 可 以 通过 调用 GetCommState() 函 数 获 得 当前 的 DCB 结 
构 ， 然 后 更 改 DCB 结构 中 的 参数 ， 通 过 调用 SetCommState() 函 数 配 置 修改 过 的 DCB 来 配 
置 端口 。 
SetCommState() 函 数 的 声明 格式 如 下 : 
BOOL SetCommState ( 
HANDLE hFile, // HiCreatrile () 函数 返回 的 已 打开 的 串口 的 句柄 


LPDCB 1pDCB // 指向 DCB 结构 的 指针 
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© 串口 属性 
串口 的 属性 通过 GetCommProperties() 函 数 获得 ， 其 声明 格式 如 下 : 
BOOL GetCommProperties ( 


HANDLE hFile，// 返 回 句柄 
LPCOMMPROP lpCommProp // 指 向 COMMPROP 的 结构 


); 
其 中 IpCommProp 指向 一 个 COMMPROP 的 结构 ， 串 口 的 性 能 从 COMMPROP 中 


© 通信 设备 配置 
Windows API 提供 了 CommConfigDialog() 函 数 对 通信 设备 进行 配置 ， 从 而 改变 数据 传 
输 速率 、 数 据 位 、 奇 偶 校 验方 法 、 停 止 位 和 流 控制 方法 。CommConfigDialog() 函 数 的 声明 
格式 如 下 : 
BOOL CommConfigDialog( 

LPTSTR lpszName, // 要 配置 的 端口 名 


HWND hWnd, // 拥有 对 话 框 的 窗口 句柄 
LPCOMMCONFIG lpCC // 指向 一 个 COMMCONFIG 结构 


); 
当 CommConfigDialogO 函 数 返回 时 ， 选 定 的 设置 在 COMMFIG 的 DCB 参数 中 返回 ， 


对 已 打开 的 串口 ， 对 端口 设置 进行 更 改 通过 SetCommState() 函 数 来 进行 。 
(3) 读 写 串 
© imn 


一 般 在 程序 中 使 用 Win32 API ReadFileO 函 数 从 串口 中 读 取 数据 。ReadFile0) 函 数 的 声 
明 格式 如 下 : 


BOOL ReadFile( 
HANDLE hFILE, // 指向 由 CreatFile() 函数 产生 的 句柄 
LPVOID lpbuffer, // 指向 一 个 缓冲 区 
DWORD nNumberOfBytesToRead, // 读 取 的 字 节 数 
LPDWORD lpNumberOfBytesToRead, // 指向 调用 该 函数 读 出 的 字 节 数 
LPOVERLAPPED lpOverlapped // 一 个 OVERLAPPED 结构 
); 


Q 写 串 口 操作 
一 般 在 程序 中 使 用 Win32 API WriteFile0) 函 数 向 串口 中 写 数据 。WriteFile0 函 数 的 声明 
格式 如 下 : 


BOOL WriteFile( 
HANDLE hFILE, // 指向 由 CreatFile () 函数 产生 的 句柄 
LPVOID lpbuffer, // 指向 一 个 缓冲 区 
DWORD nNumberOfBytesToWrite, // 向 串口 设备 写 入 的 字 节 数 
LPDWORD lpNumberOfBytesToWritten, // 指向 调用 该 函数 已 写 入 的 字 节 数 
LPOVERLAPPED lpOverlapped // 一 个 OVERLAPPED 结构 
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© 异步 LO 操作 

读 、 写 串口 操作 中 的 OVERLAPPED 结构 用 于 在 Windows 中 进行 异步 VO 操作 ， 使 应 
程序 可 以 在 前 台 、 后 台 同 时 执行 不 同 的 任务 ， 并 由 GetOverLappedResult( R AKI Hi 
果 。OVERLAPPED 结构 类 型 的 声明 格式 如 下 : 


Typedef struct OVERLAPPED { 
DWORD Internal; // 指出 一 个 和 系统 相关 的 状态 
DWORD InternalHigh; // 指出 发 送 或 接收 的 数据 长 度 
DWORD Offset; 
DWORD OffsetHigh; // Offset 和 OffsetHigh 指明 文件 传送 的 开始 位 置 和 字 节 偏 移 量 
HANDLE hEvent; // 指定 一 个 II/o 操作 完成 后 触发 的 事件 
) OVERLAPPED; 


异步 VO 操作 可 以 由 GetOverLappedResult( PA BOK SIR AE AE. GetOverLappedResult()Ffi 
数 的 声明 格式 如 下 : 


BOOL GetOverLappedResult ( 
HANDLE hFILE, // 标识 通信 句柄 ， 开 始 调用 重 营 结构 ReadFile、wWriteFile 
LPOVERLAPPED lpOverlapped, // 启动 异步 操作 时 指定 的 OVERLAPPED 结构 
LPDWORD lpNumberOfBytesTransferred, // 接收 读 、 写 操作 实际 传递 的 字 节 数 
BOOL bwait // 指定 函数 是 否 等 待 挂 起 的 异步 操作 完成 
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© 超时 设置 

在 Windows 中 读 写 串 可 以 使 用 超时 结构 。 超 时 结构 直接 影响 读 和 写 的 操作 行为 ， 当 事 
先 设 定 的 超时 间隔 消逝 时 ，ReadFile()、WriteFile() 操 作 将 被 无 条 件 结束 。 超 时 结构 的 定义 
格式 如 下 : 


typedef struct COMMTIMEOUTS { 
DWORD ReadIntervalTimeout; 
DWORD ReadTotalTimoutMultiplier; 
DWORD ReadTotalTimouConstant; 
DWORD WriteTotalTimoutMultiplier; 
DWORD WriteTotalTimoutConstant; 

) COMMTIMEOUTS, *LPCOMMTIMEOUTS; 


Q  ReadIntervalTimeout: 以 ms 为 单位 指定 通信 线路 上 两 个 字符 到 达 之 间 的 最 大 时 间 


间隔 。 

Q  ReadTotalTimoutMultiplier: 以 ms 为 单位 指定 一 个 系数 ， 该 系数 用 来 计算 读 操作 
的 总 超时 时 间 。 

Q  ReadTotalTimouConstant: 以 ms 为 单位 指定 一 个 常数 ， 该 常数 用 来 计算 读 操 作 的 
总 超时 时 间 。 

Q WiriteTotalTimoutMultiplier: 以 ms 为 单位 指定 一 个 系数 ， 该 系数 用 来 计算 写 操作 
的 总 超时 时 间 。 

口 WrieTotalTimoutConstant: 以 ms 为 单位 指定 一 个 常数 ， 该 常数 用 来 计算 读 写作 
的 总 超时 时 间 。 
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可 以 使 用 Windows API GetCommTimeOuts() 函 数 获得 当前 超时 参数 ， 该 函数 的 声明 格 
式 如 下 : 
BOOL GetCommTimeOuts ( 


HANDLE hFILE, // 标识 通信 设备 ，CreatFile () 函数 返回 该 句柄 
LPCOMMTIMEOUTS lpCommTimeouts // 指向 一 个 COMMTIMEOUTS 结构 ， 返 回 超 时 信息 
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如 果 想 获得 进一步 的 错误 信息 ， 可 以 调用 GetLastError0 函 数 来 获取 。 

© 通信 状态 和 通信 错误 

如 果 在 串口 通信 中 发 生 错误 ， 如 发 生 终端 、 奇偶 错误 等 ，LO 操作 将 会 终止 。 如 果 程 
序 要 进一步 执行 IO 操作 ， 必 须 调用 ClearCommError() 函 数 。ClearCommError(0) 函 数 有 两 个 
作用 ， 一 是 清除 错误 条 件 ， 一 是 确定 串口 通信 状态 。 

ClearCommError() 函 数 的 声明 格式 如 下 : 

BOOL ClearCommError ( 

HANDLE hFILE, // fH CreatFile () 函数 返回 的 句柄 


LPDWORD lpErrors, // 指向 一 个 指明 错误 类 型 的 掩 码 填充 的 32 位 变量 
LPCOMSTAT lpstat // 指向 一 个 COMSTAT 结构 接收 设备 的 状态 


ye 


2. 代码 演示 

Win32 API 作为 Windows 平台 的 应 用 程序 编程 接口 ， 是 Windows 的 核心 。 通 过 充分 
理解 和 利用 API 函数 ， 可 以 深入 到 Windows 的 内 部 ， 充 分 挖掘 系统 提供 的 强大 功能 和 灵 
活性 ， 为 我 们 在 工程 实践 中 进行 串口 通信 编程 提供 方便 。 通 过 上 面 的 学 习 ， 己 经 基本 了 解 
了 Win32 API 在 串口 通信 领域 的 应 用 ， 接 下 来 通过 一 段 代码 来 演示 具体 实现 流程 。 

通过 使 用 下 面 的 代码 ， 可 以 打开 并 初始 化 端口 : 


HANDLE hCom; 
DWORD dwError; 
DCB dcb; 
COMMTIMEOUTS TimeOuts; 
hCom = CreateFile( 
"CoM1"，// 对 串口 1 进行 操作 
GENERIC READ | GENERIC WRITE，// 人 允许 读 和 写 
0，// 独 占 方式 
NULL, 
OPEN EXISTING, 
FILE ATTRIBUTE NORMAL | FILE FLAG OVERLAPPED, //##7j3t 
NULL 


k 
if(hCom == INVALID HANDLE VALUE) 
t 
dwError = GetLastRrror(); 
- - -// 错 误 处 理 
} 
SetupComm(hCom, 1024, 1024); // 缓 冲 区 的 大 小 为 1024 
TimeOuts.ReadIntervalTimeout = 1000; 
TimeOuts.ReadTotalTimoutMultiplier = 500; 
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TimeOuts.ReadTotalTimouConstant = 5000; 
TimeOuts .WriteTotalTimoutMultiplier = 500; 
TimeOuts .WriteTotalTimoutConstant = 5000; 
SetCommTimeouts (hCom, &TimeOuts); // 设置 超时 
GetCommState (hCom, &dcb); 

dcb.BaudRate = 2400; // 数据 传输 速率 为 2400 
dcb.ByteSize = 8; // 每 个 字符 为 8 位 
dcb.Parity = NOPARITY; // 无 校 验 
dcb.StopBits = ONESTOPBIT; // 一 个 停止 位 
SetCommState (hCom, &dcb); 


6.24 CSerialPort 类 


在 程序 中 如 果 要 用 到 多 个 串口 ， 而 且 还 要 做 很 多 复杂 的 处 理 ， 那 么 最 好 不 用 MSComm 
通讯 控件 ， 如 果 这 时 还 不 愿意 自己 编写 底层 ， 就 可 以 使 用 CSerialPort 类 。 使 用 该 类 进行 串 
口 编 程 的 具体 步骤 如 下 。 

(1) 建立 工程 。 新 建 一 个 基于 单 文档 的 MFC 工程 ， 例 如 SCPortTest。 

(2) 添加 类 文件 。 将 SerialPorth 和 SerialPort.cpp 这 两 个 类 文件 复制 到 工程 文件 夹 
中 ， 并 加 入 工程 。 在 视图 类 的 头 文件 中 包含 : 

#include "SerialPort.h" 

(3) 人 工 增加 串口 消息 响应 函数 : 


OnCommunication(WPARAM ch, LPARAM port); 


首先 在 视图 类 头 文件 中 添加 串口 字符 接收 消息 WM COMM RXCHAR(CRB D alic vp 
区 内 有 一 个 字符 ) 的 响应 函数 声明 。 具 体 代码 如 下 : 

//((AFX MSG (CSCPortTestView) 

afx msg LONG OnCommunication (WPARAM ch, LPARAM port); 

//) ) AFX MSG 

然后 在 视图 类 的 epp 文件 中 进行 WM. COMM. RXCHAR 消息 映射 ， 具 体 代 码 如 下 : 


BEGIN MESSAGE MAP (CSCPortTestView, CView) 
//{{AFX MSG MAP (CSCPortTestView) 

ON MESSAGE (WM COMM RXCHAR, OnCommunication) 
//))AFX MSG MAP 

END MESSAGE MAP () 


并 且 在 该 文件 中 加 入 函数 的 实现 : 

LONG CPortTestView::OnCommunication (WPARAM ch, LPARAM port) 

iL nau. J; 

因为 这 个 串口 类 加 入 工程 后 ， 没 有 自动 的 消息 映射 机 制 ， 因 此 ， 上 述 步骤 均 需 要 手工 
添加 。 

(4) 初始 化 串口 。 

在 视 创建 时 初始 化 串口 ， 首 先 利用 ClassWizard 生成 OnlInitialUpdate() 函 数 。 然 后 在 
SerialPorth 文件 中 解析 在 程序 中 要 用 到 的 全 局 变量 。 
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首先 保存 两 个 串口 接收 数据 ， 有 具体 代码 如 下 : 

char m chChecksum; // 用 于 comi 的 校 验 和 计算 

CString m strRXhhCOMI; // 用 于 存放 comi 接收 的 半 Byte 校 验 字 节 hh 
CString m_strRXDataCOM1; //COM1 接收 数据 

CString m strRXDataCOM2; //COM2 接收 数据 

UINT m_nRXErrorCOM1; //CoM1 接收 数据 错误 帧 数 

UINT m nRXErrorCOM2; //COM2 接收 数据 错误 帧 数 

UINT m nRXCounterCOM1; //COM1 接收 数据 计数 器 

UINT m nRXCountercOM2; //COM2 接收 数据 计数 器 


然后 在 SerialPort.h 文件 中 说 明 串 口 类 对 象 : 

CSerailPort m ComPort [2] ; 
因为 要 初始 化 两 个 串口 ， 所 以 在 此 使 用 了 数组 。 
下 面 是 初始 化 串口 1 和 串口 2 的 具体 实现 代码 : 


void CSCPortTestView: :OnInitialUpdate () 
{ 


CView::OnInitialUpdate(); 
// TODO: Add your specialized code here and/or call the base class 
m chChecksum = 0; // 校 验 和 置 0 
m nRXErrorCOMl = 0; //COM1 接收 数据 错误 帧 数 置 0 
m nRXErrorCOM2 = 0; //COM2 接收 数据 错误 帧 数 置 0 
m_nRXCounterCOM1 = 0; //coM1 接收 数据 错误 帧 数 置 0 
m nRXCounterCOM2 = 0; //COM2 接收 数据 错误 帧 数 置 0 
m strRXhhCOMl.Empty(); // 清 空 半 BYTE 校 验 hh 存储 变量 
for(int i-0; i<2; i++) 
{ 
if (m ComPort.InitPort(this, i*1, 9600, 'N', 8, 1, 
EV RXFLAG | EV RXCHAR, 512)) 
//portnr=1 (2) ,baud=960, parity='N', databits=8, stopsbits=1, 
//dwCommEvents-EV RXCHAR|EV RXFLAG, nBufferSize=512 
t 
m ComPort.StartMonitoring(); // 启 动 串口 监视 线程 
if(i--1) SetTimer(1,1000,NULL); // 设 置 定时 器 ，1 秒 后 发 送 数据 
) 
else 
{ 
CString str; 
str.Format ("CoMsd 没有 发 现 ， 或 被 其 他 设备 占用 "， i+1); 
AfxMessageBox (str); 


} 

(5) 使 用 ClassWizard 生成 CPortTestView 的 时 间 消 息 WM. TIMER 响应 函数 ， 具 体 代 
码 如 下 : 

void CSCPortTestView::OnTimer(UINT nIDEvent) 

t 


// TODO: Add your message handler code here and/or call default 


y 


int randdata = rand() % 9000; // 产 生 9000 以 内 的 随机 数 
CString strSendData; 
strSendData.Format ("$04d", randdata); 
SendString(strSendData, 2); // 串 口 2 发 送 数据 ; 
CView: :OnTimer (nIDEvent) ; 

} 


上 述 代码 中 的 SendString0 函 数 具 体 代码 如 下 : 


void CSCPortTestView::SendString(CString &str, int Port) 
t 
char checksum-0, cr-CR, lf-LF; 
char cl, c2; 
for(int i-0; i«str.GetLength(); i++) 
checksum = checksum^str; 
c2 = checksum & 0x0f; 
cl = ((checksum >> 4) & Ox0f); 
if (cl < 10) 
ch t= tots 
else 
cl += 'A' - 10; 
1E (e2 <10) 
e2 += 1017 
else 
c2 += 'A' - 10; 
CString strl; 
SEES sp Giri Beas Gal Sool oS Cie te l 
m_ComPort [Port-1] .WriteToPort ( (LPCTSTR) str1) ; 
} 


注意 : 发 送 的 校 验 码 生 成 方式 和 对 方 接收 的 校 验 检测 方式 要 一 致 。 


(6) 在 OnCommunication(WPARAM ch, LPARAM port) 函 数 中 进行 数据 处 理 。 
WPARAM、LPARAM 类 型 是 多 态 数据 类 型 (Polymorphic Data Type)， 在 Win32 中 为 
32 位 ， 支 持 多 种 数据 类 型 ， 根 据 需 要 自动 适应 ， 这 样 程序 有 很 强 的 适应 性 。 在 此 我 们 可 以 


分 别 理解 为 char 和 integer 类 型 数据 。 


每 当 串 口 接收 缓冲 区 内 有 一 个 字符 时 ， 就 会 产生 一 个 WM COMM RXCHAR 消息 ， 
触发 OnCommunication 函数 ， 这 时 我 们 就 可 以 在 函数 中 进行 数据 处 理 ， 所 以 这 个 消息 就 是 


整个 程序 的 发 动机 。 
最 终 编写 的 数据 处 理 函 数 OnCommunication(0) 的 具体 实现 代码 如 下 : 


LONG CSCPortTestView: :OnCommunication(WPARAM ch, LPARAM port) 
t 

static int count1=0, count2-0, count3-0; 

Static char cl, c2; 

static int flag; 

CString strCheck - ""; 

if(port — 2) //cow2 接收 到 数据 

{ 

CString strtemp = (char) ch; 
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if(strtemp == "Y") 
{ 


m nRXCounterCOM2++; 

CString strtemp; 

strtemp.Format ("COM2: NO.$06d", m nRXCounterCOM2) ; 
CDC *pDC = GetDc(); // 准 备 数据 显示 

pDC-»TextOut(10, 50, strtemp); // 显 示 接 收 到 的 数据 
ReleaseDC (pDC) ; 


) 
if(port == 1) //com1 接收 到 数据 
t 
m strRXDataCOMl1 += (char)ch; 
switch (ch) 
{ 
case '$': 
m chChecksum = 0; // 开 始 计算 Checksum 
flag = 0; 
break; 
GARE PSs 
flag = 2; 
c2 = m chChecksum & 0x0f; 
cl-((m chChecksum >> 4) & Ox0f); 
if (cl < 10) cl += '0' else cl += 'A' - 10; 
if (c2 < 10) c2 += '0' else c2 += 'A' - 10; 
break; 
case CR: 
break; 
case LF: 
m strRXDataCOMIl.Empty(); 
break; 
default: 
if (flag>0) 
{ 
m strRXhhCOMl += ch; // 得 到 收 到 的 校 验 值 hh 
if(flag == 1) 
i 
strCheck = strCheck + cl + c2; // 计 算得 到 的 校 验 值 hh 
if(strCheck != m strRXhhCOMl) // 如 果 校 验 有 错 
d 
m strRXDataCOMI.Empty(); 
m nRXErrorcoMl++; // 串 口 1 错误 帧 数 加 1 
i 
else 
ü 
m nRXCounterCOM1++; 
if(m strRXDataCOM1.Left(1) == "$") 
// 接 收 数据 的 第 一 个 字符 是 $ 吗 ? 
{ 
char tbuf[6]; 


$ 
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char *temp = (char*) ((LPCTSTR)m strRXDataCOMl); 
tbuf[0] = temp[1]; tbuf[1] = temp[2]; 
tbuf[2] = temp[3]; tbuf[3] = temp[4]; 
tbuf[4] = 0; //0 表示 字符 串 的 结束 ， 必 要 
int data = atoi(tbuf); 
CString strDisplayl, strDisplay2; 
strDisplayl . Format ( 
"NO. %06d: The reseived data is %04d", 
m nRXCounterCOMI, data); 
strDisplay2.Format ("Error Counter-$04d.", 
m nRXErrorCOMl); 
CDC *pDC = GetDC(); // 准 备 数据 显示 
//int nColor = pDC->SetTextColor (RGB (255,255,0)); 
pDC-»TextOut(10, 10, strDisplayl); // 显 示 接 收 到 的 数据 
pDC-»TextOut(30, 30, strDisplay2); // 显 示 错 误 帧 数 
/ /pDC-»SetTextColor (nColor); 
ReleaseDC (pDC) ; 
h 
CString stri = "v"; 
m ComPort [0] .WriteToPort ( 
(LPCTSTR)strl); // 发 送 应 答 信号 了 
m StrRXhhCOM1 .Empty () 7 
flag--; 
) 
else 
m chChecksum ^- ch; 
break; 
) 


} 
return 0; 


6.3 “小 试 牛刀 一 一 基于 MSComm 的 多 串口 通信 系统 


实例 功能 使 用 Visual C++ 开发 一 个 基于 MSComm 的 多 串口 通信 系统 
源码 路 径 | 光盘 \yuanma\6\mscomm 


6.31 创建 工程 


(1) 打开 Visual C++ 6.0， 创 建 一 个 名 为 “mscomm” 的 MFC 工程 。 

(2) 在 工程 中 插入 对 “Microsoft Communications Control,version 6.0” 控 件 的 引用 。 

(3) 分 别 创建 了 D 为 IDD ABOUTBOX( 见 图 6-7) 的 窗 体 ， 以 及 了 D 为 IDD MSCOMM_ 
DIALOG( 见 图 6-8) 的 窗 体 。 
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图 6-7 IDD ABOUTBOX 图 6-8 IDD_MSCOMM_DIALOG 


6.32 具体 编码 
创建 MFC 工程 之 后 ， 接 下 来 开始 具体 的 编码 工作 。 


(1) 在 文件 


mscommDlgh 中 定义 类 CMscommDlg， 并 定义 MSComm 类 的 变量 


m mscom2 fil m _mscom1， 最 后 定义 示例 中 需要 的 响应 函数 。 具 体 代码 如 下 : 


class CMscommD1g : public CDialog 


{ 


// Construction 


public: 


CMscommDlg(CWnd *pParent-NULL); // standard constructor 


// 由 class Wizard 添加 的 控件 对 应 的 成 员 变量 
enum ( IDD = IDD MSCOMM DIALOG }; 


CMSComm 
CMSComm 
CString 
CString 
CString 
CString 
//) )JAFX 
protected: 
virtual 
protected: 
HICON m 
virtual 
afx msg 
afx msg 
afx msg 
afx msg 
afx msg 
afx msg 
afx msg 
afx msg 
afx msg 
DECLARE 
//) )AEX 


m_mscom2; 
m mscoml; 
m recvl; 
m sendl; 
m recv2; 
m send2; 
DATA 


void DoDataExchange (CDataExchange *pDX); // DDX/DDV support 


hIcon; 

BOOL OnInitDialog(); 

void OnSysCommand(UINT nID, LPARAM lParam); 
void OnPaint(); 

HCURSOR OnQueryDragIcon(); 
void OnCommMscommil(); 
void OnBtnComlsend() ; 
void OnCommMscomm? () ; 
void OnBtnComldelete(); 
void OnBtnCom2delete (); 
void OnBtnCom2send(); 
EVENTSINK MAP () 

MSG 


n 


(2) 在 文件 mscommDlg.cpp 4 


DECLARE MESSAGE MAP () 


的 具体 实现 。 具 体 代码 如 下 : 
// 初 始 化 函数 


BOOL CMscommD1g: :OnInitDialog() 


t 


CDialog: :OnInitDialog(); 
ASSERT ( (IDM ABOUTBOX & OxFFF0) == IDM ABOUTBOX) ; 
ASSERT (IDM ABOUTBOX < OxF000); 


CMenu *pSysMenu = GetSystemMenu (FALSE) ; 
if (pSysMenu != NULL) 
{ 

CString strAboutMenu; 

strAboutMenu. LoadString (IDS_ABOUTBOX) ; 

if (!strAboutMenu. IsEmpty () ) 

d 

pSysMenu-»AppendMenu (MF SEPARATOR) ; 
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hb 定义 类 CMscommDlg 的 具体 实现 ， 包 括 各 个 响应 函数 


pSysMenu-»AppendMenu(MF STRING, IDM ABOUTBOX, strAboutMenu); 


} 
} 
SetIcon(m hIcon, TRUE); 
SetIcon(m hIcon, FALSE); 
// 初 始 化 COM1 
m mscoml.SetCommPort(1); // 串 口 1 
m mscoml.SetInBufferSize(1024); // 设 置 输入 缓冲 区 的 大 小 ，Bytes 
m mscoml .SetOutBufferSize (512); // 设 置 输入 缓冲 区 的 大 小 ，Bytes 
if(!m mscoml .GetPortopen ()) // 打 开 串 口 
{ 
m mscoml.SetPortOpen (true); 
} 


m mscoml.SetInputMode (1); // 设 置 输入 方式 为 二 进 制 方式 
m mscoml.SetSettings("9600,n,8,1"); // 设 置 波 特 率 等 参数 
m mscoml.SetRThreshold(1); // 为 1 表示 有 一 个 字符 即 引 发 事件 


m mscoml .SetInputLen (0) ; 


// 初 始 化 COM2 
m mscom2.SetCommPort(2); // 串 口 2 
m mscom2.SetInBufferSize(1024); // 设 置 输入 缓冲 区 的 大 小 ，Bytes 
m mscom2.SetOutBufferSize(512); // 设 置 输入 缓冲 区 的 大 小 ，Bytes 
if(!m mscom2.GetPortopen()) // 打 开 串 口 
{ 
m mscom2.SetPortOpen (true); 
n 


m mscom2.SetInputMode (1); // 设 置 输入 方式 为 二 进 制 方式 
m mscom2.SetSettings("9600,n,8,1"); // 设 置 波 特 率 等 参数 
m mscom2.SetRThreshold(1); // 为 1 表示 有 一 个 字符 即 引发 事件 
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m mscom2.SetInputLen (0); 


return TRUE; // return TRUE unless you set the focus to a control 


void 
{ 


CMscommDlg::OnSysCommand(UINT nID, LPARAM lParam) 


if ((nID & 0xFFF0) == IDM ABOUTBOX) 


{ 


H 


CAboutDlg dlgAbout; 
dlgAbout.DoModal () ; 


else 


{ 


) 
void 
t 


CDialog: :OnSysCommand(nID, lParam); 


CMscommDlg: :OnPaint () 


if (IsIconic()) 


{ 


} 


CPaintDC dc(this); 

SendMessage(WM ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0); 
int cxIcon = GetSystemMetrics (SM CXICON) ; 

int cyIcon = GetSystemMetrics (SM CYICON) ; 


CRect rect; 

GetClientRect (&rect) ; 

int x = (rect.Width() - cxIcon + 1) / 2; 
int y = (rect.Height() - cyIcon + 1) / 2; 


dc.DrawIcon(x, y, m hIcon); 


else 


( 


} 


CDialog: :OnPaint (); 


HCURSOR CMscommDlg: :OnQueryDragIcon () 


{ 


return (HCURSOR)m hIcon; 


} 


BEGIN EVENTSINK MAP (CMscommDlg, CDialog) 
//{{AEX EVENTSINK MAP (CMscommD1g) 
ON EVENT (CMscommDlg, IDC MSCOMM1, 1 /* OnComm */, 


OnCommMscomml, VTS NONE) 


ON EVENT (CMscommDlg, IDC MSCOMM2, 1 /* OnComm */, 


OnCommMscomm2, VTS NONE) 


//}}AFX EVENTSINK MAP 


END EVENTSINK MAP() 


/ /MSComm1 控件 发 出 oncomm 事件 的 响应 函数 ， 在 该 函数 中 读 取 串口 字符 串 


{ 


void CMscommDlg: :OnCommMscomml () 
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// TODO: Add your control notification handler code here 
UpdateData (TRUE) ; 

// 定 义 一 些 临 时 变量 

VARIANT variant inp; 

COleSafeArray safearray inp; 

long i = 0; 

int len; 

BYTE rxdata[1000]; 


switch (m mscoml.GetCommEvent () 
{ 
case 2: // 表 示 接 收 缓冲 区 内 有 字符 
{ 
// 读 取 缓 冲 区 数据 
variant inp = m mscoml.GetInput (); 
//¥§ VARIANT 型 变量 值 赋 给 ColeSafeArray 类 型 变量 
safearray inp = variant inp; 
// 获 得 数据 长 度 
len = safearray inp.GetOneDimSize(); 
// 将 数据 保存 到 字符 数组 中 
for(i-0; i<len; i++) 
{ 
safearray inp.GetElement (&i, &rxdata[i]); 


} 
// 字 符 串 结束 
rxdata[i] = '\0'; 
} 
m recvl += rxdata; 
UpdateData (false) ; 
break; 
default: 
break; 


} 


} 
/ /CoM1 发 送 数据 响应 函数 
void CMscommDlg: :OnBtnComlsend() 
{ 
// TODO: Add your control notification handler code here 
UpdateData (TRUE) ; 
CByteArray sendArr; 
WORD wLen; 
// 获 得 发 送 数据 长 度 
wLen-m sendl.GetLength(); 
// 给 变量 sendArr 设置 长 度 
sendArr.SetSize (wLen) ; 
// 把 数据 赋 给 CBytearray 类 型 变量 用 于 发 送 数据 
for(int i=0; i<wLen; i++) 
{ 
sendArr.SetAt (i, m_send1.GetAt (i)); 


} 
// 发 送 数据 


m mscoml.SetOutput (COleVariant (sendArr)); 


} 
// 删 除 COML 发 送 数据 框 的 数据 
void CMscommDlg: :OnBtnComldelete () 
t 
// TODO: Add your control notification handler code here 
m sendi = "z 
UpdateData (FALSE) ; 


} 
/ /MSComm2 控件 发 出 oncomm 事件 的 响应 函数 ， 在 该 函数 中 读 取 串口 字符 串 
void CMscommDlg: :OnCommMscomm2 () 
t 
// TODO: Add your control notification handler code here 
UpdateData (TRUE) ; 
// 定 义 一 些 临时 变量 
VARIANT variant inp; 
COleSafeArray safearray inp; 
long i = 0; 
int len; 
BYTE rxdata[1000]; 


Switch (m mscom2.GetCommEvent ()) 
t 
case 2: // 表 示 接 收 缓冲 区 内 有 字符 
{ 
// 读 取 缓冲 区 数据 
variant inp = m mscom2.GetInput (); 
// 将 VARIANT 型 变量 值 赋 给 ColeSafeArray 类 型 变量 
safearray inp = variant inp; 
// 获 得 数据 长 度 
len = safearray inp.GetOneDimSize(); 
// 将 数据 保存 到 字符 数组 中 
for(i-0; i<len; i++) 
{ 
safearray inp.GetElement (&i, &rxdata[i]); 


} 
// 字 符 串 结束 
rxdata[i] = '\0'; 
} 
m recv2 += rxdata; 
UpdateData (false) ; 
break; 
default: 
break; 


} 


/ / COM2 发 送 数据 响应 函数 

void CMscommDlg: :OnBtnCom2send() 

t 
// TODO: Add your control notification handler code here 
UpdateData (TRUE) ; 
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CByteArray sendArr; 
WORD wLen; 
// 获 得 发 送 数 据 长 度 
wLen = m send2.GetLength () > 
// 给 变量 sendArr 设置 长 度 
sendArr.SetSize (wLen) ; 
// 把 数据 赋 给 CByteArray 类 型 变量 ， 用 于 发 送 数据 
for(int i=0; i«wLen; i++) 
{ 
sendArr.SetAt (i, m send2.GetAt (i)); 


} 

// 发 送 数据 

m mscom2.SetOutput (COleVariant (sendArr)); 
) 


// 删 除 coM2 发 送 数据 框 的 数据 
void CMscommD1g: :OnBtnCom2delete () 
{ 


// TODO: Add your control notification handler code here 
m send2 - ""; 


UpdateData (FALSE) ; 
} 


到 此 为 止 ， 整 个 实例 的 核心 代码 介绍 完毕 ， 执 行 后 可 以 在 两 台 机 器 间 进 行 串口 通信 ， 
如 图 6-9 所 示 。 


图 6-9 执行 效果 


注意 : 演示 本 实例 的 前 提 是 用 串口 线 将 两 台 机 器 的 串口 或 同一 台 机 器 的 两 个 串口 连接 起 
来 ， 建 立 物理 连接 后 才能 完全 测试 本 实例 。 图 6-9 所 示 的 是 没有 建立 物理 连接 时 的 
执行 效果 。 


6.4 小 试 牛刀 一 一 基于 CSerialPort 的 多 串口 通信 系统 


实例 功能 | 使 用 Visual C++ 开 发 一 个 基于 CSerialPort 类 的 串口 通信 系统 
源码 路 径 | ”光盘 \yuanmaN6\CSerialPort 


Visual C++ GZS 


6.4.1 创建 工程 


(1) 打开 Visual C++ 6.0， 创 建 一 个 名 为 “CSerialPort” 的 MFC TFE. 

(2) 在 工程 中 插入 对 “Microsoft Communications Control.version 6.0” 控 件 的 引用 。 

(3) 分 别 创建 ID 为 IDD ABOUTBOX( 见 图 6-10) 的 窗 体 ， 以 及 ID 为 IDD_CSERIAL- 
PORTCOMM _DIALOG( 见 图 6-11) 的 窗 体 。 


6-10 IDD_ABOUTBOX 图 6-11 IDD_CSERIALPORTCOMM_DIALOG 


6.4.2 具体 编码 


创建 MFC 工程 之 后 ， 接 下 来 开始 具体 的 编码 工作 。 
(1) 在 文件 CSerialPortDlg.h 中 定义 对 话 框 中 的 类 CCSerialPortCommDlg， 然 后 定义 实 
例 中 的 响应 函数 。 具 体 代码 如 下 : 


#include "SerialPort.h" 


class CCSerialPortCommD1g : public CDialog 
{ 
// Construction 
public: 
// 串 口 
CSerialPort m Port; 
CCSerialPortCommDlg (CWnd *pParent-NULL); // standard constructor 


// 控 件 变量 

enum ( IDD = IDD CSERIALPORTCOMM DIALOG }; 
CString m send; 

CString m receive; 

virtual function overrides 


protected: 
virtual void DoDataExchange (CDataExchange *pDX); // DDX/DDV support 


protected: 
HICON m hicon; 


// 定义 响应 函数 
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virtual BOOL OnInitDialog(); 
afx msg void OnSysCommand(UINT nID, LPARAM lParam); 
afx msg void OnPaint(); 
afx msg HCURSOR OnQueryDragIcon(); 
afx msg void OnBtnSend(); 
afx msg void OnBtnClearsend(); 
afx msg void OnBtnClearreceive|(); 
//WM COMM RXCHAR 消息 响应 函数 
afx msg LONG OnComm(UINT, LONG); 
//1)AFX MSG 
DECLARE MESSAGE MAP () 

u 


(2) 在 文件 CSerialPortDlg.cpp 中 完成 对 各 个 响应 函数 的 定义 ， 具 体 代码 如 下 : 


// 初 始 化 处 理 
BOOL CCSerialPortCommDlg: :OnInitDialog() 
t 

CDialog: :OnInitDialog(); 


// Add "About..." menu item to system menu. 


// IDM ABOUTBOX must be in the system command range. 
ASSERT((IDM ABOUTBOX & OxFFFO) == IDM ABOUTBOX); 
ASSERT(IDM ABOUTBOX « OxF000); 


CMenu *pSysMenu - GetSystemMenu (FALSE); 
if (pSysMenu !- NULL) 
t 
CString strAboutMenu; 
strAboutMenu.LoadString(IDS ABOUTBOX) ; 
if (!strAboutMenu. IsEmpty () ) 
{ 
pSysMenu->AppendMenu (MF SEPARATOR) ; 
pSysMenu->AppendMenu (MF STRING, IDM ABOUTBOX, strAboutMenu) ; 


} 


SetIcon(m_hIcon, TRUE); // Set big icon 
SetIcon(m_hIcon, FALSE); // Set small icon 
// 初 始 化 串口 


3f (m Port- mmitPortithis, 1, 9600, 2N, Dr 1, 
EV RXFLAG|EV RXCHAR, 512) ) 
f 
// 启 动 串口 通信 监视 线程 
m Port.StartMonitoring(); 
) 
erse 
t 
// 串 口 没 有 找到 
AfxMessageBox ("没有 发 现 串口 或 被 占用 !") ; 


- 网 络 编程 开发 与 实战 


return TRUE; // return TRUE unless you set the focus to a control 


void CCSerialPortCommDlg::OnSysCommand(UINT nID, LPARAM lParam) 
{ 
if ((nID & 0xFFF0) == IDM ABOUTBOX) 
{ 
CAboutDlg dlgAbout; 
dlgAbout.DoModal () ; 
) 
else 
t 
CDialog::OnSysCommand(nID, lParam); 


void CCSerialPortCommDlg: :OnPaint () 
t 
if (IsIconic()) 
t 
CPaintDC dc(this); // device context for painting 


SendMessage(WM ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0); 
// Center icon in client rectangle 


int cxIcon = GetSystemMetrics (SM CXICON) ; 
int cyIcon = GetSystemMetrics (SM CYICON) ; 


CRect rect; 

GetClientRect (&rect) ; 

int x = (rect.Width() - cxIcon + 1) / 2; 
int y = (rect.Height() - cyIcon + 1) / 2; 


dc.DrawIcon(x, y, m hIcon); 
} 
else 
{ 

CDialog: :OnPaint (); 


} 
in the cursor to display while the user drags 
// the minimized window. 
HCURSOR CCSerialPortCommDlg: :OnQueryDragIcon () 
{ 

return (HCURSOR) m hIcon; 
H 
//WM COMM RXCHAR 消息 响应 函数 
LONG CCSerialPortCommDlg::OnComm(WPARAM ch, LPARAM port) 
t 

m receive += (char)ch; 

UpdateData (FALSE) ; 

return 0; 


} 
// 发 送 数据 
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void CCSerialPortCommDlg: :OnBtnSend () 

t 
// TODO: Add your control notification handler code here 
char buf[100]; 
memset(&buf, 0, sizeof (buf)); 
GetDlgItemText(IDC EDIT RECEIVE, buf, sizeof (buf) ); 
// 向 串口 写 数据 


m Port.WriteToPort (buf) ; 


} 
// 清 除 发 送 数据 杠 
void CCSerialPortCommD1g: :OnBtnClearsend() 


t 
// TODO: Add your control notification handler code here 
GetDlgItem(IDC EDIT SEND)-»SetWindowText (""); 


} 

// 清 除 接收 数据 框 

void CCSerialPortCommD1g: :OnBtnClearreceive () 

t 
// TODO: Add your control notification handler code here 
GetDlgItem(IDC EDIT RECEIVE)-»SetWindowText (""); 

} 


到 此 为 止 ， 整 个 实例 的 核心 代码 介绍 完毕 ， 执 行 后 可 以 在 两 台 机 器 间 进 行 串口 通信 。 
如 图 6-12 所 示 。 
i x 


— 


ih l 


图 6-12 ”执行 效果 


ER: 演示 本 实例 的 前 提 是 用 串口 线 将 两 台 机 器 的 串口 或 同一 台 机 器 的 两 个 串口 连接 起 
来 ， 建 立 物理 连接 后 才能 完全 测试 本 实例 。 如 图 6-12 所 示 的 是 没有 建立 物理 连接 时 
的 执行 效果 。 
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在 七 层 模型 中 ， 网 络 层 是 其 中 的 第 三 层 ， 介 于 传输 层 和 数据 链 
路 层 之 间 ， 它 在 数据 链 路 层 提供 的 两 个 相 邻 端点 之 间 的 数据 帧 的 传 
送 功能 上 ， 进 一 步 管理 网 络 中 的 数据 通信 ， 将 数据 设法 从 源 端 经 过 
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网 络 编程 开发 与 实战 


7.1 认识 网 络 层 模型 


在 本 节 的 内 容 中 ， 首 先 简要 介绍 网 络 层 模型 的 基本 知识 ， 使 读者 掌握 网 络 传输 的 基本 
原理 和 编程 思想 ， 为 读者 步 入 本 书后 面 知识 的 学 习 打 下 基础 。 


7.1.1 网 络 层 基础 
两 个 主 计算 机 之 间 的 通信 是 非常 复杂 的 。 它 们 之 间 通 常 包括 许多 段 链 路 ， 这 些 链 路 构 


成 了 两 台 计 算 机 的 通信 通路 。 

数据 链 路 层 研究 和 解决 的 问题 是 两 个 相 邻 的 结 点 之 间 的 通信 问题 ， 实 现 的 任务 是 在 两 
个 相 邻 结 点 间 透 明 地 无 差错 地 进行 帧 级 信息 的 传送 。 数 据 链 路 层 不 能 解决 由 多 条 链 路 组 成 
的 通路 的 数据 传输 问题 。 

网 络 层 的 主要 功能 就 是 实现 整个 网 络 系统 内 联接 ， 为 传输 层 提 供 整 个 网 络 范围 内 两 个 
终端 用 户 之 间 数 据 传输 的 通路 。 

网 络 层 所 研究 和 解决 的 问题 包括 : 


a ”为 上 一 层 传输 层 提供 服务 。 
Q ”路 径 选 择 。 路 径 选择 又 称 路 由 选择 ， 它 解决 的 问题 是 一 一 在 具有 许多 结 点 的 广 域 
网 里 通过 哪 一 条 或 哪儿 条 通路 能 将 数据 从 信 源 主 计算 机 传送 到 信 宿 主 计算 机 中 。 
a ”流量 控 制 。 数 据 链 路 层 的 流量 控制 是 针对 数据 链 路 相 邻 结 点 进行 的 。 网 络 层 的 流 
量 控制 是 对 整个 通信 子 网 内 的 流量 进行 控制 ， 是 对 进入 分 组 交换 网 的 通信 量 进行 
控制 。 
口 “ 连 接 的 建立 、 保 持 和 终止 问题 。 
总 之 ， 网 络 层 是 实现 要 在 通信 子 网 内 把 报 文 分 组 从 信 源 结 点 送 到 信 宿 结 点 。 
1. 网 络 层 协 议 基 础 
实现 全 网 范围 内 的 交换 方式 有 线路 交换 和 存储 转发 交换 两 种 。 针 对 这 两 种 交换 方式 ， 
CCITT 制订 了 X.21 协议 和 X.25 协议 。 这 两 个 协议 是 为 实现 网 络 层 的 适用 于 线路 交换 方式 
协议 和 适用 于 存储 转发 方式 协议 制订 的 。 
(1) X.21 协议 
X21 协议 是 公用 数据 网 络 同步 远程 数据 终端 设备 (DTE) 和 数据 电路 终端 设备 (DCE) 之 
间 的 接口 ， 它 适用 于 线路 交换 ， 它 能 为 用 户 数据 传输 提供 全 透明 的 线路 交换 网 络 。X.21 对 
线路 交换 过 程 规定 了 4 个 阶段 ， 分 别 是 静止 阶段 、 呼 叫 控制 阶段 、 数 据 传 送 阶段 和 清除 
阶段 。 
Q) X25 协议 
X25 协议 是 在 公用 数据 网 络 上 ， 终 端 以 分 组 形式 进行 操作 的 数据 终端 设备 (DTE) 和 数 
据 电 路 终端 设备 (DCE) 之 间 的 接口 ， 以 此 接口 构成 的 网 络 被 称 为 公用 报 文 分 组 交换 网 。 
X.25 协议 于 1976 年 被 CCITT 采纳 成 为 国际 标准 ， 从 1976 年 以 来 围绕 着 X.25 制定 出 
了 一 系列 标准 ， 包 括 X29 和 X.75 等 标准 。 
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X25 协议 中 包括 如 下 几 个 级 别 的 内 容 。 

QO WHA: 物理 级 规定 物理 、 电 气 、 规 程 和 功能 共 4 个 方面 的 特性 。 物 理 接口 使 用 
X21 HX, Æ DTE 和 DCE 之 间 提 供 同步 的 、 全 双 工 的 点 到 点 的 传输 。 该 级 针对 
ISO/OSI 模型 的 物理 层 。 

口 ” 链 路 级 : 链 路 级 以 帧 的 形式 传送 报 文 组 ， 所 以 也 称 为 帧 级 。 在 该 级 使 用 的 数据 链 
路 控制 规程 与 HDLC 和 ADCCP 一 致 ， 并 使 用 HDLC 的 平衡 链 路 访问 规程 。 该 级 
针对 ISO/OSI 模型 数据 链 路 层 。 

QO ”分 组 级 : 进入 分 组 级 的 用 户 数 据 形成 报 文 组 ， 报 文 组 在 源 结 点 与 目的 结 点 之 间 建 
立 起 的 网 络 联接 上 传输 。 目 的 结 点 把 所 接收 到 的 报 文 组 恢复 成 报 文 形式 。 该 级 协 
议 规定 了 报 文 组 的 格式 、 信 息 流 的 控制 及 差错 恢复 等 方法 。 该 级 针对 : 
> 转 接 虚 拟 电路 。 
> 永久 虚 电 路 。 
> 数据 报 。 

X25 包括 如 下 三 类 协议 。 

(1) DTE All DCE 中 的 物理 级 实体 之 间 的 同等 协议 。 

(2) DTE 和 网 络 结 点 上 链 路 控制 级 实体 的 同等 协议 。 

(3) DTE 和 网 络 结 点 上 分 组 交换 分 组 级 实体 之 间 的 同等 协议 。 

在 分 层 结构 中 ， 从 第 一 层 到 第 三 层 ， 数 据 传送 的 单位 分 别 为 “比特 ”、“ 帧 ”、“ 分 


组 ”。 在 X25 分 组 级 上 ，DTE-DCE 之 间 建 立 起 多 条 逻辑 信道 ， 所 以 一 个 DTE 可 以 同时 
和 网 络 上 的 其 他 多 个 DTE 建立 虚 电 路 ， 并 进行 通信 。 


2. 路 径 选择 
路 径 选择 是 指 根据 一 定 的 原则 和 算法 在 传输 路 径 上 找 出 一 条 通 向 目的 结 点 的 最 佳 路 


径 。 路 径 的 选择 与 网 络 的 拓扑 结构 以 及 结构 的 规律 有 密切 关系 。 


当然 ， 选 择 路 径 应 当 遵守 一 些 原则 ， 比 如 ， 数 据 传送 所 用 时 间 要 尽 可 能 短 ， 数 据 传 输 


中 各 结 点 负载 要 均衡 ， 信 息 流量 要 均匀 ， 选 用 的 路 径 选 择 算法 要 实用 、 简 单 和 可 实现 且 算 
法 适应 性 强 。 


路 径 选择 的 算法 主要 有 如 下 6 种。 

a ”最 短路 径 选择 算法 ;目的 就 是 找 出 发 数据 结 点 到 目的 结 点 之 间 的 一 条 最 短路 径 。 

口 ”集中 路 径 选 择 也 称 固定 路 径 选择 。 是 在 网 络 中 每 个 结 点 内 存放 一 张 事先 定好 的 
路 径 表 。 当 信息 需要 从 此 结 点 发 出 时 ， 根 据 要 达到 的 目的 结 点 ， 从 路 径 表 中 能 找 
出 一 条 最 短路 径 。 

O ”独立 路 径 选择 : 也 称 局 部 延 时 路 径 选 择 。 这 种 算法 是 根据 网 络 中 各 结 点 和 线路 当 
前 运行 变化 的 情况 ， 动 态 地 决定 路 径 。 比 如 选择 将 报 文 分 组 排列 在 最 短 输出 队列 
结 点 上 或 排列 到 信息 量 最 大 、 延 时 小 的 队列 结 点 上 。 

口 ”扩散 式 路 径 选择 ， 是 将 到 达 报 文 分 组 送 到 每 个 输出 线 上 。 不 考虑 报 文 目的 结 点 的 
方向 。 

ü ”选择 扩散 式 路 径 选 择 : 是 将 到 达 报 文 分 组 只 送 到 那些 大 致 目的 方向 是 正确 的 输出 
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O HAARE: 此 种 路 径 选择 方法 ， 每 个 接口 报 文 处 理 器 IMP 周期 地 与 相 邻 的 
每 个 接口 报 文 处 理 器 IMP 交换 精确 的 路 径 选 择 信息 。 每 个 IMP 保留 一 个 可 接 子 
网 中 所 有 其 他 IMP 检索 的 路 径 表 ， 通 过 相 邻 IMP 信息 交换 来 不 断 修改 IMP 中 的 
路 径 表 ， 以 反映 相 邻 IMP 的 变化 ， 找 出 到 达 目 标 结 点 的 最 佳 路 径 。 


3. 流量 控制 与 死 锁 


流量 就 是 计算 机 网 络 中 的 通信 量 ， 即 计算 机 网 络 中 的 报 文 流 或 分 组 流 。 网 络 层 流量 控 
制 的 作用 就 是 保证 通信 子 网 提供 能 使 信息 在 结 点 之 间 畅 通 无 阻 、 顺 利 流通 的 通路 ， 防 止 网 
络 过 载 而 引起 的 网 络 数据 吞吐 量 下 降 和 时 延 增 加 ， 公 平地 在 用 户 之 间 分 配 资源 。 另 外 ， 很 
重要 的 一 点 是 避免 死 锁 。 

在 网 络 传输 过 程 中 ， 网 络 的 吞吐 量 随 着 输入 负荷 的 增 大 而 下 降 ， 它 不 可 避免 地 会 出 现 
信息 传输 的 拥挤 现象 ， 这 就 是 阻塞 。 当 通信 子 网 中 传输 的 数据 数量 过 多 ， 而 网 络 数据 处 理 
量 有 限 ， 来 不 及 处 理 所 有 传输 的 数据 时 ， 会 引起 部 分 或 全 网 性 能 下 降 ， 甚 至 使 整个 网 络 操 
作 停 顿 ， 无 法 继续 进行 ， 即 产生 死 锁 。 

产生 死 锁 的 原因 很 多 ， 它 主要 是 由 于 控制 技术 方面 的 某 些 缺 陷 所 引起 的 ， 并 且 很 难 控 
制 。 以 下 是 常见 的 死 锁 类 型 。 

(1) 定 步 死 锁 

定 步 死 锁 是 由 于 终端 控制 器 中 的 缓冲 区 满 ， 造 成 集中 器 终止 对 终端 控制 器 进行 继续 查 
询 ， 产 生死 锁 。 

Q) 死 枝 死 锁 

死 枝 死 锁 是 由 于 目标 结 点 发 生 故 障 或 者 是 通路 上 的 某 一 线路 或 装置 发 生 故 障 ， 造 成 集 
中 器 或 网 络 结 点 装 满 了 发 不 出 去 的 报 文 ， 产 生死 锁 。 

(3) 重 装 死 锁 

重 装 死 锁 是 由 于 来 自 不 同 发 送 端 的 长 报 文 发 至 同一 目的 结 点 造成 虽然 目的 结 点 内 存 已 
满 ， 而 报 文 未 结束 ， 此 时 又 不 能 将 不 完整 的 报 文 发 出 ， 产 生死 锁 。 

(4) 传递 死 锁 

传递 死 锁 是 由 于 丢失 报 文 分 组 造成 的 。 

(5) 信息 交换 死 锁 

信息 交换 死 锁 是 由 于 相 邻 结 点 相互 交换 信息 ， 而 它们 各 自 的 缓冲 器 都 满 ， 造 成 死 锁 。 

(6) 环 死 锁 

环 死 锁 是 在 分 布 式 数据 库 中 ， 不 同 的 用 户 同 时 修改 记录 时 产生 的 。 

为 防止 发 生死 锁 ， 需 要 进行 阻塞 控制 ， 阻 塞 控制 方法 有 三 种 ， 分 别 是 丢弃 报 文 分 组 、 
预 分 配 缓冲 区 、 定 额 控制 。 

解决 死 锁 的 方法 很 多 ， 常 见 的 有 如 下 3 种 。 

© 自动 恢复 ， 重 新 启动 整个 网 络 。 

@ 删除 死 锁 ， 重 发 信息 ， 分 离 控制 通道 。 

@ 设置 专用 存储 区 ， 当 出 现 死 锁 时 启用 等 。 
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要 实现 网 络 上 的 流量 控制 。 信 息 在 网 络 中 流动 要 经 过 一 系列 结 点 ， 这 些 结 点 通常 被 分 
为 信 源 主 计算 机 、 信 宿主 计算 机 、 信 源 结 点 、 信 宿 结 点 和 中 间 结 点 等 。 

通信 和 流量 控制 可 以 分 3 个 层次 进行 。 

a 第 一 层 : 由 信 源 计算 机 到 目的 计算 机 。 这 一 层 的 通信 和 流量 控制 由 传输 层 完 

o 第 二 层 ， 由 信 源 结 点 到 信 宿 结 点 层 。 这 一 层 的 通信 和 流量 控制 由 网 络 层 完 

a ”第 三 层 : 由 结 点 到 结 点 层 。 这 一 层 的 通信 和 流量 控制 由 数据 链 路 层 完 成 。 


7.1.2 ATM 中 的 网 络 层 


ATM 是 一 项 数据 传输 技术 ， 是 实现 B-ISDN 的 业务 的 核心 技术 之 一 。ATM 是 以 信 元 
为 基础 的 一 种 分 组 交换 和 复 用 技术 ， 它 是 一 种 为 了 多 种 业务 设计 的 通用 的 面向 连接 的 传输 
模式 。 它 适用 于 局 域 网 和 广域网 ， 具 有 高 速 数据 传输 率 和 支持 许多 种 类 型 (如 声音 、 数 据 、 
传真 、 实 时 视频 、CD 质量 音频 和 图 像 ) 的 通信 。 

ATM 层 处 理 从 源 端 到 目的 端 移动 着 的 信 元 ， 在 ATM 交换 机 中 的 确 包含 了 路 由 选择 算 
法 和 协议 ， 它 也 处 理 全 局 寻 址 问题 。 因 此 从 功能 上 说 ，ATM 层 发 挥 着 与 网 络 层 相同 的 功 
能 。ATM 层 并 不 能 保证 百分之百 的 可 靠 性 ， 不 过 一 个 网 络 层 的 协议 也 不 需要 如 此 。 

对 于 面向 连接 的 协议 来 说 ，ATM 层 是 不 同 寻常 的 ， 因 为 它 不 提供 任何 确认 。 但 ATM 
层 仍然 提供 了 强 有 力 的 保障 : 沿 着 一 条 虚 电 路 发 送 的 信 元 将 永远 不 会 失去 顺序 。 如 果 阻 塞 
发 生 了 ， 人 允许 ATM 子 网 丢弃 信 元 ， 但 是 在 任何 情况 下 ， 它 都 不 能 对 在 一 条 单独 的 虚 电 路 
中 传递 的 信 元 重新 排序 。 然 而 对 于 不 同 虚 电路 中 传递 的 信 元 并 没有 提供 顺序 上 的 保障 。 

1. 信 元 格式 


在 ATM 层 中 有 两 个 非常 重要 的 接口 ， 即 用 户 -网 络 接口 UNI(User-Network Interface) fill 
网 络 -网 络 接口 NNI(Network-Network Interface)。 前 者 定义 了 主机 和 ATM 网 络 之 间 的 边界 
(在 很 多 情况 下 是 在 客户 和 载体 之 间 )， 后 者 用 于 两 台 ATM 交换 机 (ATM 意义 上 的 路 由 器 ) 
之 间 。 两 种 格式 的 ATM 信 元 头 部 如 图 7-1 所 示 。 信 元 传输 是 最 左边 的 字 节 优先 ， 在 一 个 
字 节 内 部 是 最 左边 的 比特 优先 。 


-一 40 位 = 
GFC WI WI PT HEC 
(a) 
[om | = — [rg w | 
(b) 
GPC :通用 流量 控制 FTI: 有 效 载荷 类 型 
WI: 虚 通路 标识 符 CLP: 信 元 丢弃 忧 先 权 
YCI: 虚 通道 标识 符 HEC: {SSR BES 


图 7-1 UNI 中 的 ATM 头 部 (a) 和 NNI 中 的 ATM 头 部 (b) 
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Visual C++ 网 络 编程 开发 与 实 上 


2. 连接 建立 
从 技术 上 讲 ， 连 接 建 立 并 不 是 ATM 层 的 一 部 分 ， 而 是 由 控制 平台 使 用 Q.2931(Stller, 


1995) 协 议 来 处 理 的 。 然 而 ， 逻 辑 上 处 理 建立 网 络 层 连接 的 地 点 是 网 络 层 ， 并 且 类 似 的 网 络 
层 协 议 都 是 在 这 里 进行 连接 建立 的 ， 因 此 我 们 在 这 里 讨论 它 。 


用 于 连接 建立 和 连接 释放 的 消息 如 表 7-1 Bran. 
表 7-1 消息 说 明 


消 息 由 主机 发 送 时 的 含义 由 网 络 发 送 时 的 含义 
SETUP 请 建立 一 条 虚 电路 进入 呼叫 
CALL PROCEEDING 我 看 见 了 ， 进 入 呼叫 将 尝试 你 的 呼叫 请 求 
CONNECT 我 接受 ， 进 入 呼叫 接受 你 的 呼叫 请 求 
CONNECT ACK 谢谢 接受 谢谢 发 出 呼叫 
RELEASE 请 终止 呼叫 另 一 端 已 足够 坏 


RELEASE COMPLETE 对 RELEASE 的 确认 对 RELEASE 的 确认 


ATM 网 络 允 许 建立 多 点 播送 通道 。 一 个 多 点 播送 通道 有 一 个 发 送 者 和 多 于 一 个 的 接 


收 者 。 它 们 是 通过 如 下 方法 建立 起 来 的 : 用 通常 的 方法 在 源 端 和 目的 端 之 间 建 立 一 条 连 


接 ， 


接着 发 送 ADD PARTY 消息 把 第 二 个 目的 端 连接 到 前 一 个 呼叫 返回 的 虚 电 路 上 去 ， 接 


下 来 就 可 以 发 送 其 余 的 ADD PARTY 来 增加 目的 端的 个 数 。 


ATM 有 3 种 地 址 格式 。 第 1 字 节 指明 该 地 址 是 3 种 地 址 格式 中 的 哪 一 种 。 

a 第 1 种 有 20 字 节 长 ， 是 基于 OSI 地 址 格式 的 。 第 2 和 第 3 字 节 指明 国家 ,第 4 
字 节 给 出 了 基于 地 址 部 分 的 格式 ， 其 他 包括 3 字 节 指明 权限 ，2 字 节 指明 域 
(Domain), 1 字 节 指明 区 域 ， 还 有 6 字 节 的 地 址 ， 以 及 其 他 一 些 信息 项 。 

a 在 第 2 种 地 址 格式 中 ， 第 2 和 第 3 字 节 指 定 一 个 国际 组 织 ， 而 不 是 国家 ;地 址 的 
其 余部 分 和 格式 与 第 1 种 相同 。 

口 “ 另 一 种 是 旧 的 以 15 位 十 进 制 数 的 ISDN 电话 号 码 (CCITT E.164) 为 地 址 的 格式 。 


3. 路 由 选择 和 交换 
当 建 立 虚 电路 时 ，SETUP 消息 沿 着 网 络 从 源 端 走向 目的 端 。 路 由 选择 算法 决定 了 消息 


要 走 的 路 径 ， 从 而 也 就 决定 了 虚 电路 的 路 径 。 交 换 机 的 大 部 分 工作 量 是 花费 在 如 何 从 一 个 


信 元 
路 
机 之 


里 的 虚 电路 信息 里 得 到 输出 线路 的 选择 上 。 除 了 在 每 一 个 方向 上 的 最 后 一 个 站 段 外 ， 
都 是 在 VPI 字段 上 进行 的 ， 而 不 是 在 VCI 字段 ;在 最 后 一 个 站 段 ， 信 元 在 交换 机 和 主 
间 传 送 。 在 两 台 交 换 机 之 间 只 使 用 虚 通路 。 

在 局 域 风 中， 事情 简单 得 多 ， 一 条 简单 的 虚 通 路 就 可 以 为 所 有 的 虚 电 路 所 使 用 。 

4. 服务 类 型 


恒定 比特 率 (Constant Bit Rate，CBR) 主 要 用 来 模仿 钢 线 或 者 光 导 纤维 。 没 有 差错 校 
没有 流量 控制 ， 也 没有 其 余 的 处 理 。 这 个 类 别 在 当前 的 电话 系统 和 将 来 的 B-ISDN 系 
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统 中 做 了 一 个 比较 圆滑 的 过 渡 ， 因 为 话音 级 的 PCM 通道 、T1 电路 以 及 其 余 的 电话 系统 都 
使 用 恒定 速率 的 同步 数据 传输 。 

可 变 比特 率 (Variable Bit Rate，VBR) 被 划分 为 两 个 子 组 别 ， 分 别 是 为 实时 传输 和 非 实 
时 传输 而 设立 的 。RT-VBR 主要 用 来 描述 具有 可 变数 据 流 并 且 要 求 严 bone quio 比如 
交互 式 的 压缩 视频 (例如 电视 会 议 )。NRT-VBR 用 于 主要 是 定时 发 送 的 通信 场合 ， 在 这 种 场 
合 下 ， 一 定数 量 的 延迟 及 其 变化 是 可 以 被 应 用 程序 所 忍受 的 ， 如 电子 邮件 。 

可 用 比特 率 (Available Bit Rate，ABR) 术 语 是 为 带宽 范围 已 大 体 知道 的 突 发 性 信息 传输 
而 设计 的 。ABR 是 唯一 的 一 种 网 络 会 向 发 送 者 提供 速度 反馈 的 服务 类 型 。 当 网 络 中 拥塞 发 
生 时 会 要 求 发 送 者 减 小 发 送 速率 。 假 设 发 送 者 遵守 这 些 请 求 ， 采 用 ABR 通信 的 信 元 丢失 

会 很 低 。 运 行 着 的 ABR 有 点 像 待机 会 的 机 动 旅客 : 如 果 有 空余 的 座位 (空间 )， 机 动 的 旅 
客 就 会 无 延迟 地 被 送 到 空余 座位 处 ; 如 果 没 有 足够 的 容量 ， 他 们 就 必须 等 待 (除非 有 些 最 低 
带宽 是 可 用 的 )。 

未 指定 比特 率 (Unspecified Bit Rate，UBR) 不 做 任何 承诺 ， 对 拥塞 也 没有 反馈 ， 这 种 类 
型 很 适合 于 发 送 IP 数据 报 。 如 果 发 生 拥 塞 ，UBR 信 元 也 会 被 丢弃 ， 但 是 并 不 给 发 送 者 发 
送 反馈 ， 也 不 给 发 送 者 希望 放 慢 速度 的 期 望 。 

各 种 ATM 服务 类 型 的 特性 如 表 7-2 所 示 。 


表 7-2 ATM 服 务 类 型 的 特性 


ae ee ae eee ee 
带宽 保证 i 

适用 于 实时 通信 
适用 于 突 发 通信 
有 关于 拥塞 的 反馈 


5. 服务 质量 


服务 质量 在 ATM 网 络 中 是 一 个 重要 的 话题 ， 这 部 分 因为 ATM 网 络 都 是 用 作 实 时 传 
输 的 ， 比 如 音频 和 视频 。 当 一 条 虚 电路 建立 时 ， 传 输 层 (典型 地 为 主机 中 的 一 个 进程 ，“ 客 
户 ”) 和 ATM 网 络 层 (例如 一 个 网 络 操作 者 ， 也 即 “运载 提供 者 ”) 都 要 遵守 一 个 定义 服务 
的 协定 。 

协定 的 第 一 部 分 是 通信 量 描述 符 (Traffic Descriptor)。 它 描述 要 提供 的 载荷 。 协 定 的 第 
二 个 部 分 指定 客户 所 要 求 的 和 通信 提供 者 同意 的 服务 质量 。 无 论 是 载荷 还 是 服务 ， 都 是 要 
以 可 度量 的 数量 来 描述 的 ， 这 样 约定 就 可 以 被 客观 的 决定 。 

为 了 使 具体 的 通信 量 协定 成 为 可 能 ，ATM 标准 定义 了 一 系列 的 服务 质量 Qos(Quality 
of Service)， 客 户 和 通信 提供 者 可 以 协商 这 些 参数 的 值 。 对 于 每 一 个 服务 质量 参数 ， 其 最 差 
情况 下 的 值 被 指定 了 ， 要 求 通信 提供 者 必须 要 达到 或 者 超过 该 值 。 在 某 些 情况 下 ， 参 数 是 
一 个 最 小 值 ， 而 在 另外 一 些 情 况 下 它 是 一 个 最 大 值 。 也 是 在 这 里 ， 服 务 质量 在 每 个 方向 上 
都 是 单独 指定 的 。 其 中 一 些 比 较 重要 的 列 在 了 表 7-3 中 ， 但 它们 并 不 是 对 所 有 的 服务 类 型 
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都 适用 。 
6. 通信 量 整 形 和 控制 


使 用 和 增强 服务 质量 参数 的 机 制 是 一 种 特定 的 算法 ， 即 通用 信 元 速率 算法 (Generic Cell 
Rate Algorithm，GCRA)。 它 的 工作 原理 是 检查 每 一 个 信 元 ， 看 是 否 遵从 了 虚 电 路 的 参数 。 


表 7-3 服务 质量 参数 说 明 


Ge 


参 数 "EI & x 
峰值 信 元 速率 PCR 信 元 发 送 的 最 大 速率 
持续 信 元 速率 SCR 长 时 间 的 平均 信 元 传输 速率 
最 小 信 元 速率 MCR 最 小 的 可 接受 的 信 元 传输 速率 
信 元 延 退 变化 极 什 最 大 的 可 接受 的 信 元 拉动 
信 元 丢失 比率 CLR 信 元 丢失 或 提交 得 太 迟 的 比例 
信 元 传送 延迟 信 元 提交 时 拖延 的 时 间 (中 间 值 和 最 大 值 ) 
信 元 延迟 变化 "m 信 元 提交 时 间 的 变化 幅度 
信 元 错误 比率 提交 无 错 信 元 的 比例 
严重 错误 信 元 块 比率 出 错 信 元 的 比例 
信 元 错误 目的 地 比率 信 元 提交 至 错误 目的 地 的 比例 


GCRA 有 两 个 参数 ， 它 们 指定 了 最 大 的 允许 到 达 率 (PCR) 和 其 中 可 以 忍受 的 到 达 时 间 
变化 量 (CDVT)。PCR 的 倒数 T-1/PCR 是 最 小 的 信 元 到 达 间 隔 值 。 

GCRA 算法 被 称 为 虚拟 调度 算法 (Virtual Scheduling Algorithm)， 然 而 从 另 一 种 角度 来 
看 ， 它 等 同 于 一 个 漏 桶 算法 。 可 把 一 个 合乎 协定 的 信 元 想象 成 是 倒 入 一 个 漏 桶 的 T. 单位 的 
流体 。 这 个 桶 以 1 单位 /hs 的 速度 漏 液 体 ， 因 此 Tus 之 后 它 就 室 了 。 如 果 信 元 正好 是 以 1 
信 元 /Ths 的 速度 到 达 ， 那 么 每 一 个 到 达 的 信 元 都 会 发 现 桶 刚刚 空 出 来 ， 该 信 元 会 把 桶 内 重 
AUR E T 单位 的 液体 。 因 此 当 一 个 信 元 到 达 时， 液体 水 位 升 至 T， 以 后 就 线性 递减 ， 直 到 
为 零 。 

当 一 个 信 元 提前 Lus 到 达 时 ， 桶 就 应 该 溢出 。 对 于 一 个 给 定 的 T， 如 果 我 们 把 L 设置 
得 很 小 ， 桶 的 容量 将 会 很 难 超过 T， 因 此 所 有 的 信 元 必须 以 一 种 非常 规范 的 间隔 顺序 发 
送 。 然 而 ， 如 果 我 们 现在 增加 L 的 值 ， 使 它 远 远大 于 T， 桶 将 会 容纳 很 多 的 信 元 ， 因 为 
T+L>>T。 这 就 意味 着 发 送 者 可 以 以 峰值 速率 一 个 接 一 个 地 发 送 一 些 突 发 性 数据 ， 而 它们 
仍然 能 够 被 正确 地 接收 。 

GCRA 正常 情况 下 是 通过 给 定 参数 T 和 工 来 指定 的 。T 正好 是 PCR 的 倒数 ; L 就 是 
CDVT。GCRA 也 用 来 保证 在 任何 一 段 较 长 时 间 内 平均 信 元 传输 速率 不 会 超过 SCR。 

除了 提供 了 一 条 规则 来 看 哪 一 个 信 元 是 合乎 协定 的 ， 哪 一 个 是 不 合乎 协定 的 之 外 ， 
GCRA 也 用 于 通信 整形 ， 以 消除 某 些 突 发 性 传输 。CDVT 越 小 就 意味 着 越 好 的 平滑 效果 ， 
但 也 增 大 了 因为 不 合乎 协定 而 丢弃 信 元 的 概率 。 在 一 些 实现 中 把 GCRA 漏 桶 和 一 个 令 牌 桶 
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结合 起 来 ， 以 提供 进一步 的 平滑 。 
T. 拥塞 控制 


ATM 网 络 必 须 既 要 处 理由 于 大 于 系统 处 理 能 力 的 通信 量 而 引起 的 长 期 拥塞 ， 又 要 处 
理由 于 通信 中 的 突 发 性 传输 而 引起 的 短期 拥塞 。 结 果 人 们 使 用 了 几 种 不 同 的 策略 。 它 们 当 
中 最 重要 的 可 分 为 3 类 。 

(1) 许可 证 控制 

很 多 ATM 网 络 中 有 以 固定 速率 产生 数据 的 实时 通信 源 。 告 诉 这 一 类 的 通信 源 减 慢 发 
送 速率 是 行 不 通 的 (想象 一 种 有 一 个 红 灯 的 新 型 数字 电话 。 当 通知 拥塞 发 生 时 ， 红 灯 就 会 
亮 ， 讲 话 者 将 被 要 求 速 率 减 慢 25%)。 

因此 ，ATM 网 络 把 防止 拥塞 发 生 放 在 第 一 的 位 置 。 然 而 ， 对 于 CBR, VBR, UBR 类 
通信 量 ， 根 本 就 没有 动态 拥塞 控制 ， 因 此 在 这 里 预防 拥塞 发 生 将 远 远 比 拥塞 发 生 后 再 去 恢 
复 强 得 多 。 预 防 拥塞 的 一 个 主要 工具 是 许可 证 控制 。 当 一 台 主机 需要 一 条 新 的 虚 电 路 时 ， 
它 必 须 描述 出 希望 被 提供 的 通信 和 服务 ， 网 络 便 作 出 检查 来 看 是 否 有 可 能 在 不 对 已 存在 连 
接 造成 有 害 的 影响 的 前 提 下 处 理 该 连接 。 可 能 需要 检查 多 条 可 能 的 线路 ， 从 而 发 现 哪 一 条 
将 可 以 做 此 项 工作 。 

(2) 资源 预订 

同 许可 证 控制 密切 相关 的 是 事先 预定 资源 的 技巧 ， 这 通常 是 在 呼叫 建立 时 进行 。 因 为 
通信 量 描述 符 给 出 了 信 元 发 送 峰 值 速率 ， 网 络 就 有 可 能 沿 通 路 预 留 足 够 的 带宽 来 处 理 该 峰 

(3) 基于 速率 的 拥塞 控制 

在 CBR 和 VBR 通信 中 ， 因 为 信息 源 固有 的 实时 和 半 实 时 的 特性 ， 所 以 即使 在 发 生 拥 
塞 的 情况 下 ， 一 般 也 不 可 能 让 发 送 者 减 慢 发 送 速率 。 在 VBR 服务 中 ， 没 有 人 会 担心 。 如 
果 有 太 多 的 信 元 ， 把 多 出 来 的 丢弃 掉 就 是 。 

在 ABR 通信 中 ， 网 络 去 通知 一 个 或 多 个 发 送 者 并 且 请 求 它 们 暂时 减 慢 发 送 速率 直到 
网 络 恢复 ， 这 是 可 能 的 ， 也 是 合理 的 。 

如 何 检测 、 通 知 和 控制 ABR 通信 中 的 拥塞， 是 ATM 标准 发 展 过程 中 的 一 个 热门 话 
题 ， 问 题 主要 集中 在 以 下 两 个 方面 ， 一 是 基于 信用 的 解决 方案 ， 二 是 基于 速度 的 解决 方案 。 

交换 机 厂商 们 反对 基于 信用 的 解决 方案 ， 他 们 不 想 进行 所 有 计算 ， 以 记 住 这 些 信用 ， 
同时 ， 也 不 想 预 先 提供 很 多 缓冲 区 ， 并 认为 所 需要 的 开销 总 量 太 大 。 因 此 ， 采 用 了 基于 速 
度 的 拥塞 控制 系统 。 其 基本 模型 是 每 个 发 送 端 在 k 信 元 数据 之 后 传送 一 个 特殊 的 资源 管理 
(Resource Management，RM) 信 元 。 这 个 信 元 的 传输 通路 与 k 信 元 相同 ， 但 是 它 由 交换 机 进 
行 特 殊 处 理 。 当 RM 信 元 到 达 接收 端 时 ， 对 它 进行 检测 、 修 改 并 且 再 将 它 发 送 回 发 送 端 。 
另外 ， 还 提供 了 其 他 两 种 拥塞 控制 装置 。 第 一 种 是 超载 荷 交 换 机 能 够 自发 地 产生 RM 信 
元 ， 并 将 它们 发 送 回 发 送 端 。 第 二 种 是 超载 荷 交 换 机 能 够 对 从 发 送 端 传送 到 接收 端的 信 元 
数据 设置 其 中 间 PTI 位 的 值 。 当 然 这 两 种 方法 没有 一 个 是 完全 可 靠 的 。 


7.2 两 种 协议 


前 面 在 讲解 具体 应 用 的 实现 过 程 时 ， 都 讲解 了 基本 协议 的 使 用 知识 ， 例 如 FTP、 
HTTP. UDP 等 协议 。 在 网 络 传输 中 ， 也 有 两 种 非常 重要 的 协议 ， 即 PPP 协议 和 ICMP D) 
议 。 在 本 节 的 内 容 中 ， 将 简要 介绍 这 两 种 协议 的 基本 知识 。 


7.2.1 PPP 协 议 


PPP 协议 即 点 对 点 协议 ， 为 在 点 对 点 连接 上 传输 多 协议 数据 包 提供 了 一 个 标准 方法 。 
PPP 最 初 设计 是 为 两 个 对 等 节点 之 间 的 IP 流量 传输 提供 一 种 封装 协议 。 在 TCP-IP 协议 集 
中 ， 它 是 一 种 用 来 同步 调制 连接 的 数据 链 路 层 协议 (OSI 模式 中 的 第 二 层 )， 替 代 了 原来 非 
标准 的 第 二 层 协议 ， 即 SLIP。 除 了 IP 以 外 PPP 还 可 以 携带 其 他 协议 ， 包 括 DECnet 和 
Novell 的 Internet 网 包 交 换 (IPX)。 

1. PPP 协 议 的 组 成 

PPP 协议 中 提供 了 一 整套 方案 来 解决 链 路 建立 、 维 护 、 拆 除 、 上 层 协 议 协 商 、 认 证 等 
问题 。PPP 协议 由 3 个 部 分 组 成 ， 分 别 是 协议 封装 方式 ，LCP 协议 和 NCP 协议 。 

a “协议 封装 方式 ; 提供 了 一 种 将 网 络 层 协议 封装 到 串 行 链 路 的 方法 ，PPP 既 支 持 面 

向 字符 的 异步 串 行 链 路 ， 也 支持 面向 比特 的 同步 串 行 链 路 。 

Q LCP(Link Control Protocols， 链 路 控制 协议 ): 为 了 能 适应 复杂 多 变 的 网 络 环境 ， 
PPP 协议 提供 一 种 链 路 控制 协议 来 配置 和 测试 数据 通信 链 路 ， 它 能 用 来 协商 PPP 
协议 的 一 些 配置 参数 选项 ， 处 理 不 同 大 小 的 数据 帧 ， 检 测 链 路 环 路 和 一 些 链 路 的 
错误 ， 终 止 一 条 链 路 。 
Q  NCP(Network Control Protocols， 网 络 控制 协议 ): PPP 的 网 络 控制 协议 根据 不 同 的 
网 络 层 协议 可 提供 一 族 网 络 控制 协议 ， 常 用 的 提供 给 TCP/IP 网 络 使 用 的 IPCP 网 
络 控制 协议 和 提供 给 SPX/IPX 网 络 使 用 的 IPXCP 网 络 控制 协议 等 ， 但 最 为 常用 
的 是 IPCP 协议 ， 当 点 对 点 的 两 端 进行 NCP 参数 配置 协商 时 ， 主 要 是 用 来 协商 通 
信 双 方 的 网 络 层 地 址 等 。 

2. 建立 PPP 链 路 的 过 程 


一 个 典型 的 建立 PPP 链 路 的 过 程 分 为 3 个 阶段 ， 分 别 是 创建 阶段 、 认 证 阶段 和 网 络 协 
商 阶段 。 

(1) 创建 PPP 链 路 

LCP 负责 创建 链 路 。 在 这 个 阶段 ， 将 对 基本 的 通讯 方式 进行 选择 。 链 路 两 端 设备 通过 
LCP 向 对 方 发 送 配置 信息 报 文 (Configure Packets)。 一 旦 一 个 配置 成 功 信息 包 (Configure- 
Ack Packet) 被 发 送 且 被 接收 ， 就 完成 了 交换 ， 进 入 了 LCP 开启 状态 。 

在 链 路 创建 阶段 ， 只 是 对 验证 协议 进行 选择 ， 用 户 验证 将 在 第 2 阶段 实现 。 

(2) 用 户 验证 

在 这 个 阶段 ， 客 户 端 会 将 自己 的 身份 发 送 给 远 端的 接 入 服务 器 。 该 阶段 使 用 一 种 安全 
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验证 方式 避免 第 三 方 窃取 数据 或 冒充 远程 客户 接管 与 客户 端的 连接 。 在 认证 完成 之 前 ， 禁 
止 从 认证 阶段 前 进 到 网 络 层 协议 阶段 。 如 果 认 证 失败 ， 认 证 者 应 该 跃迁 到 链 路 终止 阶段 。 

在 这 一 阶段 里 ， 只 有 链 路 控制 协议 、 认 证 协议 和 链 路 质量 监视 协议 的 Packets 是 被 允 
许 的 。 在 该 阶段 里 接收 到 的 其 他 的 Packets 必须 被 静 静 地 丢弃 。 

最 常用 的 认证 协议 有 口令 验证 协议 (PAP) 和 挑战 握手 验证 协议 (CHAP)。 认 证 方式 介绍 
在 第 三 部 分 中 介绍 。 

(3) 调用 网 络 层 协议 

认证 阶段 完成 之 后 ，PPP 将 调用 在 链 路 创建 阶段 (阶段 D) 选 定 的 各 种 网 络 控制 协议 
(NCP)。 选 定 的 NCP 解决 PPP 链 路 之 上 的 高 层 协 议 问题 ， 例 如 ， 在 该 阶段 IP 控制 协议 
(PCP) 可 以 向 拨 入 用 户 分 配 动态 地 址 。 

经 过 以 上 3 个 阶段 以 后 ， 一 条 完整 的 PPP 链 路 就 建立 完成 了 。 


3. PPP 链 路 的 工作 过 程 


PPP 链 路 的 工作 过 程 分 为 5 个 阶段 。 

(1) 链 路 不 可 用 阶段 (Link Dead Phase): 在 最 开始 ， 整 条 链 路 处 于 链 路 不 可 用 状态 ， 
此 阶段 有 时 也 称 为 物理 不 可 用 阶段 ，PPP 链 路 都 需 从 这 个 阶段 开始 和 结束 ， 当 通信 双方 的 
两 端 检测 到 物理 线路 激活 时 ， 就 会 从 当前 这 个 阶段 进入 到 链 路 建立 阶段 。 

Q) 链 路 建立 阶段 (Link Establishment Phase): 在 此 阶段 ，PPP 链 路 将 进行 LCP 相关 协 
商 ， 协 商 内 容 包 括 工作 方式 、 认 证 方式 、 链 路 压缩 等 ，LCP 在 协商 成 功 后 进入 Opened 状 
态 ， 表 示 底 层 链 路 已 经 建立 ， 如 果 链 路 协商 失败 ， 则 会 返回 到 第 一 阶段 ， 在 链 路 建立 阶段 
成 功 后 ， 如 果 配 置 了 PPP 认证 ， 则 会 进入 认证 阶段 ， 如 果 没 有 配置 PPP 认证 ， 则 会 直接 进 
入 网 络 层 协议 阶段 。 

(3) 认证 阶段 [Authentication Phase): 在 此 阶段 ，PPP 将 进行 用 户 认 证 工作 ，PPP 支持 
PAP 和 CHAP 两 种 认证 方式 ， 如 果 认 证 失败 ，PPP 链 路 会 进入 链 路 终止 阶段 ， 拆 除 链 路 ， 
LCP 状态 转 为 DOWN， 如 果 认 证 成 功 ， 就 进入 网 络 层 协议 阶段 。 

(4) 网 络 层 协 议 阶 段 (Network-Layer Protocol Phase): 一 旦 PPP 完成 了 前 面 几 个 阶段 ， 
每 种 网 络 层 协议 IP、IPX 等 ) 会 通过 各 自 相 应 网 络 控制 协议 进行 配置 ， 只 有 相应 的 网 络 层 协 
议 协 商 成 功 后 ， 该 网 络 层 协议 才 可 以 通过 这 条 PPP 链 路 发 送 报 文 ， 对 于 IPCP 协议 ， 协 商 
的 内 容 主要 包括 双方 的 IP 地 址 等 。 

(5) 链 路 终止 阶段 (Link Termination Phase): PPP 能 在 任何 时 候 终止 链 路 。 载 波 丢失 、 
认证 失败 后 、 用 户 人 为 关闭 链 路 等 情况 均 会 导致 链 路 终止 ，PPP 协议 通过 交换 LCP 的 链 路 
报 文 来 关闭 链 路 ， 当 链 路 关闭 时 ， 链 路 层 会 通知 网 络 层 做 相应 的 操作 ， 而 且 也 会 通过 物理 
层 强 制 关 断 链 路 。 


7.2.2 1ICMP 协 议 


ICMP(Internet Control Message ProtocoD) 是 Internet 控制 报 文 协 议 ， 它 是 TCP/IP 协议 族 
的 一 个 子 协议 ， 用 于 在 人 P 主 机、 路 由 器 之 间 传 递 控制 消息 。 控 制 消息 是 指 网 络 通 不 通 、 主 
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机 是 否 可 达 、 路 由 是 否 可 用 等 网 络 本 身 的 消息 。 这 些 控制 消息 虽然 并 不 传输 用 户 数据 ， 但 
是 对 于 用 户 数据 的 传递 起 着 重要 的 作用 。 


1. 报 文 格式 


ICMP 报 文 包含 在 IP 数据 报 中 ， 属 于 IP 的 一 个 用 户 ，IP 头 部 就 在 ICMP 报 文 的 前 
面 ， 所 以 一 个 ICMP 报 文 包括 IP 头 部 、ICMP 头 部 和 ICMP 报 文 ，IP 头 部 的 Protocol 值 为 
1 就 说 明 这 是 一 个 ICMP 报 文 ，ICMP 头 部 中 的 类 型 (Type) 域 用 于 说 明 ICMP 报 文 的 作用 及 
格式 ， 此 外 还 有 一 个 代码 (Code) 域 用 于 详细 说 明 某 种 ICMP 报 文 的 类 型 ， 所 有 数据 都 在 
ICMP 头 部 后 面 。RFC 定义 了 13 种 ICMP 报 文 格式 ， 有 具体 说 明 如 下 。 
0: 响应 应 答 (ECHO-REPLY)。 
3: 不 可 到 达 。 
4: 源 抑 制 。 
5: 重 定向 。 
8 
1 


: 响应 请 求 (ECHO-REQUEST)。 
1: 超时 。 

: 参数 失灵 。 

13: 时 间 戳 请 求 。 

14: 时 间 戳 应 答 。 

15: 信息 请 求 (* 已 作废 )。 

16: 信息 应 答 (* 已 作废 )。 

17: 地 址 掩 码 请 求 。 

: 地 址 掩 码 应 答 。 

2. ICMP 结 构 


ICMP 的 结构 如 图 7-2 所 示 。 
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7-2 ICMP 的 结构 


Q Type: 错误 消息 或 信息 消息 。 错 误 消 息 可 能 是 不 可 获得 目标 文件 、 数 据 包 太 大 、 
超时 、 参 数 问 题 等 。 可 能 的 信息 消息 有 Echo Request、Echo Reply、Group 
Membership Query, Group Membership Report, Group Membership Reduction. 

Q Code: 每 种 消息 类 型 具有 多 种 不 同 代码 。 不 可 获得 目标 文件 正 是 这 样 一 个 例子 ， 
即 其 中 可 能 的 消息 是 一 一 目标 文件 没有 路 由 、 禁 止 与 目标 文件 的 通信 、 非 邻居 、 
不 可 获得 地 址 、 不 可 获得 端口 。 具 体 细节 请 参照 相关 的 标准 。 

Q Checksum: 计算 校 验 和 时 ，Checksum 字段 设置 为 0。 
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Q Identifier: 帮助 匹配 Requests/Replies 的 标识 符 ， 值 可 能 为 0。 

Q Sequence Number: 帮助 匹配 Requests/Replies 的 序列 号 ， 值 可 能 为 0。 

ū Address Mask: 32 fd Hh s 

3. ICMP 校 验 和 算法 

可 以 通过 以 下 代码 实现 ICMP 校 验算 法 ， 其 中 lpsz 指定 要 计算 的 数据 包 首 地 址 ， 
_dwSize 指定 该 数据 包 的 长 度 : 


int CalcCheckSum(char *lpsz, DWORD dwSize) 


{ 


int dwSize; 


{ 


} 


asm // 嵌入 汇编 


mov ecx, dwSize 

shr ecx, 1 

xor ebx, ebx 

mov esi, lpsz 

read: // 所 有 word 相 加 ， 保 存 至 EBX 寄存 器 
lodsw 

movzx eax, ax 

add ebx, eax 

loop read 

test _dwSize, 1 // 校 验 数据 是 否 是 奇数 位 的 
jz calc 

lodsb 

movzx eax, al 

add ebx, eax 

calc: 

mov eax, ebx // 高 低位 相 加 
and eax, Offffh 

shr ebx, 16 

add eax, ebx 

not ax 

mov dwSize, eax 


return dwSize; 


7.3 “小 试 牛刀 一 一 基于 ICMP 实 现 Ping 系 统 


Ping 是 Windows 系列 自 带 的 一 个 可 执行 命令 。 利 用 它 可 以 检查 网 络 是 否 能 够 连通 ， 用 


好 它 可 以 


Ping 


民 好 地 帮助 我 们 分 析 判 定 网 络 故障 。 使 用 的 格式 如 下 : 


IP 地 址 


在 本 节 的 内 容 中 ， 将 简单 介绍 Ping 命令 的 基本 知识 ， 并 通过 一 个 具体 实例 来 演示 Ping 


命令 的 使 


流程 。 


po" 
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7.3.4 ” Ping 命令 基础 


Ping 命令 是 DOS 命令 ， 一 般 用 于 检测 网 络 通 与 不 通 ， 也 叫 时 延 ， 其 值 越 大 ， 对 应 的 
速度 越 慢 。Ping 也 叫做 因特网 包 探 索 器 ， 是 用 于 测试 网 络 连接 量 的 程序 。Ping 发 送 一 个 
ICMP 回声 请 求 消息 给 目的 地 并 报告 是 否 收 到 所 希望 的 ICMP 回声 应 答 。 

Ping 命令 通过 向 计算 机 发 送 Intemet 控制 信息 协议 ICMP) 回 应 报 文 并 且 监听 回应 报 文 
的 返回 ， 以 校 验 与 远程 计算 机 或 本 地 计算 机 的 连接 情况 。 对 于 每 个 发 送 报 文 ，Ping 最 多 等 
待 1 秒 并 打印 发 送 和 接收 报 文 的 数量 ， 比 较 每 个 接收 报 文 和 发 送 报 文 ， 以 校 验 其 有 效 性 。 
在 默认 情况 下 发 送 4 个 回应 报 文 ， 每 个 报 文 包含 32 字 节 的 数据 (周期 性 的 大 写字 母 序列 )。 

Ping 命令 的 具体 格式 如 下 : 

Ping [-t] [-a] [-n count] [-1 size] [-f] [-i TTL] [-v TOS] [-r count] 

[-s count] [[-j host-list]|[-k host-list]] [-w timeout] destination-list 
O t: Ping 指定 的 计算 机 ， 直 到 从 键盘 按 下 Ctrl+C 中 断 。 
口 “-a: 将 地 址 解析 为 计算 机 NetBIOS 名 。 
Q -n: 发 送 count 指定 的 ECHO 数据 包 数 ， 通 过 这 个 命令 可 以 自己 定义 发 送 的 个 
数 ， 对 衡量 网 络 速度 很 有 帮助 。 能 够 测试 发 送 数据 包 的 返回 平均 时 间 ， 及 时 间 的 
快慢 程度 。 默 认 值 为 4。 

a -1: 发 送 指定 数据 量 的 ECHO 数据 包 。 默 认为 32 字 节 ;最 大 值 是 65500 字 节 。 

口 -f: 在 数据 包 中 发 送 “ 不 要 分 段 ”标志 ， 数 据 包 就 不 会 被 路 由 上 的 网 关 分 段 。 通 
常 你 所 发 送 的 数据 包 都 会 通过 路 由 分 段 再 发 送 给 对 方 ， 加 上 此 参数 以 后 路 由 就 不 
会 再 分 段 处 理 。 

口 -i: 将 “生存 时 间 ” 字 段 设置 为 TTL 指定 的 值 。 指 定 TTL 值 在 对 方 的 系统 里 停留 
的 时 间 。 同 时 检查 网 络 的 运转 情况 。 

口 -v: tos 将 “服务 类 型 ”字段 设置 为 tos 指定 的 值 。 

O - 在 “记录 路 由 ”字段 中 记录 传 出 和 返回 数据 包 的 路 由 。 通 常情 况 下 ， 发 送 的 
数据 包 是 通过 一 系列 路 由 才 到 达 目 标 地 址 的 ， 通 过 此 参数 可 以 设 定 想 探 测 经 过 路 
由 的 个 数 。 限 定 能 跟踪 到 9 个 路 由 。 

O -s: 指定 count FEMA. GBM 差不多 ， 但 此 参数 不 记录 数据 包 

返回 所 经 过 的 路 由 ， 最 多 只 记录 4 个 。 

口 “jj: 利用 computer-list 指定 的 计算 机 列表 路 由 数据 包 。 连 续 计 算 机 可 以 被 中 间 网 

关 分 隔 ( 路 由 稀疏 源 )， 卫 允许 的 最 大 数量 为 9。 
Q -k: computer-list 利用 computer-list 指定 的 计算 机 列表 路 由 数据 包 。 连 续 计 算 机 不 
能 被 中 间 网 关 分 隔 ( 路 由 严格 源 )， 卫 允许 的 最 大 数量 为 9。 

口 “-w: timeout 指定 超时 间隔 ， 单 位 为 毫秒 。 

Q destination-list: 指定 要 Ping 的 远程 计算 机 。 

Ping 命令 经 常用 来 对 TCP/IP 网 络 进行 诊断 。 通 过 向 目的 计算 机 发 送 一 个 报 文 ， 让 它 
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将 这 个 报 文 返 送 回来 ， 如 果 返 回 的 报 文 和 发 送 的 报 文 一 致 ， 那 就 是 说 你 的 Ping 命令 成 功 
了 。 如 果 在 指定 时 间 内 没有 收 到 应 答 报 文 ， 则 Ping 就 认为 该 计算 机 不 可 达 ， 然 后 显示 
“Request time out” 信 息 。 通 过 对 Ping 的 数据 进行 分 析 ， 就 能 判断 出 计算 机 是 否 开 着 ， 网 
络 是 否 存在 配置 、 物 理 故 障 ， 或 者 这 个 报 文 从 发 送 到 返回 需要 多 少时 间 。 也 可 以 使 用 Ping 
实用 程序 测试 计算 机 名 和 IP 地 址 ， 如 果 能 够 成 功 校 验 IP 地 址 却 不 能 成 功 校 验 计算 机 名 ， 
则 说 明 名称 解 析 存 在 问题 。 


7.32 ”模拟 实现 Windows 的 Ping 命 令 


实例 功能 模拟 实现 Windows 的 Ping 命令 


JE yuanma 7 PING 


本 实例 的 目的 是 ， 使 用 Visual C++ 6.0 开发 一 个 类 似 于 Windows 中 自 带 的 Ping 命令 的 
程序 。 


1. 规划 分 析 
在 具体 编码 之 前 ， 先 进行 项 目 规划 分 析 。 本 实例 的 总 体 结构 如 图 7-3 所 示 。 


初始 化 模块 


控制 模块 


Ping 网 络 系统 


数据 解读 模块 


Ping 测 试 模块 


图 7-3 项 目 功能 模块 结构 


(1) 初始 化 模块 : 此 模块 用 于 初始 化 各 个 全 局 变量 ， 为 全 局 变量 赋 初 始 值 ， 初 始 化 
Winsock， 加 载 Winsock 库 。 

(2) 控制 模块 ， 此 模块 被 其 他 的 模块 调用 ， 实 现 获取 参数 、 计 算 校 验 和 、 填 充 ICMP 
数据 报 文 、 释 放 占 用 的 资源 和 显示 用 户 帮 助 。 

Q) 数据 解读 模块 : 用 于 解读 接收 到 的 ICMP IRCA IP 选项。 

(4) Ping 测试 模块 : 此 模块 是 本 项 目 实例 的 核心 模块 ， 它 可 以 调用 其 他 的 模块 来 实现 
功能 ， 最 终 实 现 Ping 命令 功能 。 


2. 系统 运行 流程 
此 系统 的 运行 流程 如 图 7-4 所 示 。 


a> 


显示 帮助 信息 


图 7-4 系统 运行 流程 
在 如 图 7-4 所 示 的 运行 流程 中 ， 将 首先 调用 InitPing0 函 数 来 初始 化 各 个 全 局 变量 ， 然 


后 使 用 GetArgments 函数 来 获取 用 户 输入 的 参数 ， 并 检查 用 户 输入 的 参数 ， 如 果 参 数 不 正 
确 ， 则 显示 帮助 信息 ， 并 结束 程序 ， 如 果 正 确 则 执行 Ping 命令 ， 如 果 Ping 通 ， 则 显示 结 
果 并 释放 所 占用 的 资源 。 如 果 没 有 Ping 通 ， 则 显示 错误 信息 ， 并 释放 所 占用 的 资源 。 

3. GetArgments 函 数 


GetArgments 函数 用 于 获取 用 户 输入 的 参数 ， 在 此 获取 的 参数 有 如 下 3 个 。 

OQ r: 记录 路 由 参数 。 

Q -n 记录 条 数 。 

Q  Datasize: 数据 报 大 小 。 

GetArgments 函数 的 处 理 流程 如 下 。 

(1) 判断 上 述 参数 的 第 一 个 字符 ， 如 果 第 一 个 字符 是 “-”， 则 认为 是 < 或 -n 中 的 一 
个 ， 然 后 即 可 进行 进一步 的 判断 。 
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Q) 如 果 参 数 的 第 二 个 字符 是 数字 ， 则 判断 此 参数 是 记录 的 条 数 。 

(3) 如 果 第 二 个 字符 是 “r”， 则 判断 该 参数 是 “-r”， 用 于 记录 路 由 。 

(4) 如 果 第 一 个 参数 是 数字 ， 则 此 参数 是 下 或 Datasize， 然后 进行 进一步 判断 。 

(5) 如 果 参 数 中 不 存在 非 数字 字符 ， 则 此 参数 是 Datasize; 如 果 存 在 非 数 字 字 符 ， 则 
此 参数 是 了 P 地 址 。 

(6) 如 果 是 其 他 情况 ， 则 为 主机 名 。 

EIR GetArgments 函数 的 运行 流程 如 图 7-5 所 示 。 


转换 成 10 进 制 记 
录 到 全 局 变量 


图 7-5 GetArgments 函 数 的 运行 流程 

4. 函数 Ping() 

函数 Ping0 是 本 系统 的 核心 ， 它 通过 调用 其 他 的 函数 来 实现 具体 功能 。 函 数 Ping 可 以 
实现 如 下 功能 。 

a eg eB. 
设置 路 由 选项 。 
创建 ICMP 请 求 报 文 。 
接收 ICMP 应 答 报 文 。 
解读 ICMP 文件 。 


coco 


Visual C-++ 网 络 编程 开发 与 实战 


5. 系统 函数 介绍 

实例 中 各 主要 构成 函数 的 基本 信息 如 下 。 

(1) 函数 mitping 

函数 InitPing 用 于 初始 化 所 需要 的 变量 ， 具 体 结构 如 下 : 
void InitPing() 

(2) 函数 UserHelp 

函数 UserHelp 用 于 显示 用 户 的 帮助 信息 ， 有 具体 结构 如 下 : 


void UserHelp() 


(3) 函数 GetArgments 
函数 GetArgments 用 于 获取 用 户 提交 的 处 理 参数 ， 具 体 结构 如 下 : 


void GetArgments(int argc, char **argv) 


(4) 函数 CheckSum 
函数 CheckSum 用 于 计算 校 验 和 ， 首 先 把 数据 报头 中 的 校 验 和 字段 设置 为 0， 然 后 对 
首部 中 的 每 个 16bit 进行 二 进 制 反 码 求 和 ， 将 结果 存放 在 校 验 和 字段 中 。 有 具体 结构 如 下 : 


USHORT CheckSum(USHORT *buffer, int size) 


(5) 函数 FillICMPData 

函数 FillICMPData 用 于 填充 ICMP 数据 报 字段 ， 其 中 参数 icmp data 表示 ICMP 数 
datasize 表示 ICMP 报 文大 小 。 具 体 结构 如 下 : 

void FillICMPData(char *icmp data, int datasize) 


(6) 函数 FreeRes 

函数 FreeRes 用 于 释放 所 占用 的 内 存 资 源 ， 有 具体 结构 如 下 : 

void FreeRes () 

(7) 函数 DecodeIPOptions 

函数 DecodeIPOptions 用 于 解读 IP 选项 头 ， 从 中 读 取 从 源 主机 到 目标 主机 经 过 的 路 
并 输出 路 由 信息 。 有 具体 结构 如 下 : 


void DecodeIPOptions(char *buf, int bytes) 


E 


E 


(8) 函数 DecodeICMPHeader 

函数 DecodeICMPHeader 用 于 解读 ICMP 的 报 文 信息 ， 其 中 参数 buf 表示 存放 接收 到 
的 ICMP 报 文 的 缓冲 区 ，bytes 表示 接收 到 的 字 节 数 ，from 表示 发 送 ICMP 回 显 应 答 的 主 
BLIP 地 址 。 具 体 结构 如 下 : 


void DecodeICMPHeader(char *buf, int bytes, SOCKADDR IN *from) 


(9) 函数 PingTest 
函数 PingTest 用 于 进行 Ping 操作 处 理 ， 具 体 结构 如 下 : 


void PingTest (int timeout) 
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6. 具体 编码 
(1) 设计 下 报头 结构 体 
此 处 的 他 报头 结构 体 是 iphdr， 具 体 代码 如 下 : 


typedef struct 
t 


iphdr 


unsigned int h len:4; 
unsigned int version:4; 
unsigned char tos; 
unsigned short total len; 
unsigned short ident; 
unsigned short frag flags; 
unsigned char ttl; 
unsigned char proto; 
unsigned short checksum; 
unsigned int sourceIP; 
unsigned int destIP; 

) IpHeader; 


在 结构 体 iphdr 中 ， 设 置 了 需要 的 变量 名 ， 各 变量 的 具体 说 明 如 下 。 
h_len:4: IP RAKE. 

version:4: IP 的 版 本 号 。 

tos: 服务 的 类 型 。 

total len: 数据 报 总 长 度 。 

ident: 唯一 的 标识 符 。 

frag flags: 分 段 标志 。 

proto: 协议 类 型 (TCP、UDP 等 )。 

checksum: 校 验 和 。 

口 ”sourceIP: 源 耳 地址 。 

Q) 设计 ICMP 报头 结构 体 

此 处 的 ICMP 报头 结构 体 是 _icmphdr， 有 具体 代码 如 下 : 


ocooooooodoa 


typedef struct icmphdr 

{ 
BYTE i type; /*ICMP 报 文 类 型 */ 
BYTE i code; /* 该 类 型 中 的 代码 号 */ 
USHORT i cksum; /* 校 验 和 */ 
USHORT i id; /* 唯 一 的 标识 符 */ 
USHORT i seq; /* 序 列 号 */ 
ULONG timestamp; / IERI / 


) IcmpHeader; 


网 络 传输 


i type 结构 体 表 示 ICMP 报 文 类 型 ，i_code 表示 该 类 型 中 的 代码 号 ，i_cksum 表示 校 验 
和 ， 颜 色 值 可 以 根据 需要 而 设置 ，i_id 表示 唯一 的 标识 符 ，i_seq 表示 序列 号 ，timestamp 


表示 时 间 瀹 。 


(3) 设计 了 他 选项 结构 体 
此 处 的 下 选项 结构 体 是 ipoptionhdr， 具 体 代码 如 下 : 


typedef struct ipoptionhdr 
{ 


unsigned char code; /* 选 项 类 型 */ 
unsigned char len; /* 选 项 头 长 度 */ 
unsigned char ptr; /* 地 址 偏 移 长 度 */ 
unsigned long addr[9]; /* 记 录 的 IP 地 址 列表 */ 


} IpoptionHeader; 


(4) 预 处 理 

程序 预 处 理 包 括 库 文件 导入 、 头 文件 加 载 、 定 义 常量 和 全 局 变量 ， 并 定义 数据 结构 。 
本 项 目 实例 需要 导入 的 库 文件 是 “ws2_32.lib”， 另 外 还 需要 加 载 头 文件 “winsock2.h” 和 
“ws2tcpip.h” o 


注意 : ws2 32.ib 是 调用 WinSock2 函数 时 需要 链接 的 库 文件 ， 即 调用 winsock.dll 的 时 候 
的 动态 链接 库 ， 加 入 此 文件 就 不 必 显 式 调用 了 。 


预 处 理 模块 的 相关 代码 如 下 : 


/* 导 入 库 文件 */ 

#pragma comment (lib, "ws2 32.1ib") 
/* 加 载 头 文件 */ 

#include <winsock2.h> 

#include <ws2tcpip.h> 

#include <stdio.h> 

#include <stdlib.h> 

#include <math.h> 


/* 定 义 常量 */ 

/* 表 示 要 记录 路 由 */ 

#define IP RECORD ROUTE 0x7 
/* 默 认 数据 报 大 小 */ 

#define DEF PACKET SIZE 32 
/* 最 大 的 ICMP 数据 报 大 小 */ 
#define MAX PACKET 1024 

/* 最 大 IP 头 长 度 */ 


#define MAX IP HDR SIZE 60 

/*ICMP 报 文 类 型 ， 回 显 请 求 */ 

#define ICMP ECHO 8 

/*ICMP 报 文 类 型 ， 回 显 应 答 */ 

#define ICMP ECHOREPLY 0 

/* 最 小 的 ICMP 数据 报 大 小 */ 

#define ICMP MIN 8 

/* 自 定义 函数 原型 */ 

void InitPing(); 

void UserHelp(); 

void GetArgments (int argc, char **argv); 
USHORT CheckSum(USHORT *buffer, int size); 
void FillICMPData(char *icmp data, int datasize); 
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void FreeRes(); 


void DecodeIPOptions (char *buf, int bytes); 
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void DecodeICMPHeader (char *buf, int bytes, SOCKADDR IN *from); 


void PingTest(int timeout); 
/*1P 报头 字段 数据 结构 */ 
typedef struct _iphdr 
{ 
unsigned int h_len:4; 
unsigned int version: 4; 
unsigned char tos; 
unsigned short total_len; 
unsigned short ident; 
unsigned short frag flags; 
unsigned char ttl; 
unsigned char proto; 
unsigned short checksum; 
unsigned int sourceIP; 
unsigned int destIP; 
) IpHeader; 
/ * 1CMP 报头 字段 数据 结构 */ 
typedef struct _icmphdr 
t 
BYTE i type; 
BYTE i code; 
USHORT i cksum; 
USHORT i id; 
USHORT i seq; 
ULONG timestamp; 
) IcmpHeader; 
/*IP 选项 头 字段 数据 结构 */ 
typedef struct ipoptionhdr 
{ 


unsigned char code; 
unsigned char len; 
unsigned char ptr; 
unsigned long addr[9]; 

} IpoptionHeader; 

/* 定 义 全 局 变量 */ 

SOCKET m socket; 

IpOptionHeader IpOption; 

SOCKADDR IN DestAddr; 

SOCKADDR IN SourceAddr; 

char *icmp data; 

char *recvbuf; 

USHORT seq no ; 

char *lpdest; 

int datasize; 

BOOL RecordFlag; 

double PacketNum; 

BOOL SucessFlag; 


/*1P 报头 长 度 */ 
/*IP 的 版 本 号 */ 
/* 服 务 的 类 型 */ 
/* 数 据 报 总 长 度 */ 
/* 唯 一 的 标识 符 */ 
/* 分 段 标志 */ 
/* 生 存 期 */ 

/* 协 议 类 型 (TCP, UDP 等 ) */ 
/* 校 验 和 */ 

/* 源 IP 地 址 */ 
/* 目 的 IP 地址 */ 


/*1CMP 报 文 类 型 */ 
/* 该 类 型 中 的 代码 号 */ 
/* 校 验 和 */ 

/* 唯 一 的 标识 符 */ 
/* 序 列 号 */ 
/* 时 间 惟 */ 


/* 选 项 类 型 */ 

/* 选 项 头 长 度 */ 

/* 地 址 偏 移 长 度 */ 

/* 记 录 的 TP 地 址 列表 */ 
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(5) 初始 化 处 理 

初始 化 需要 处 理 多 个 全 局 变量 ， 并 通过 WSAStartup 函数 来 加 载 Winsock 库 。 在 此 需 
要 对 icmp data, recvbuf 和 lpdest 都 赋值 为 null， 对 seq no 赋值 为 0， 对 RecordFlag 赋值 
为 DEF PACKET SIZE， 此 处 表示 默认 的 数据 报 大 小 是 32。 

另外 ， 还 要 对 PacketNum WHA 5, 5 是 默认 记录 ， 即 默认 发 送 5 条 ICMP 回 显 请 
求 ， 对 SuccessFlag 赋值 为 False， 在 程序 完全 成 功 执行 后 才 会 赋值 为 True。 

函数 WSAStartup 实现 对 Winsock 的 加 载 ， 通 过 宏 MAKEWORD 来 获取 准备 加 载 的 
Winsock 版 本 。 

具体 实现 代码 如 下 : 


/* 初 始 化 变量 函数 */ 
void InitPing() 
t 
WSADATA wsaData; 
icmp data = NULL; 
seq no = 0; 
recvbuf = NULL; 
RecordFlag = FALSE; 
lpdest = NULL; 
datasize = DEF PACKET SIZE; 
PacketNum = 5; 
SucessFlag - FALSE; 
/*Winsock 初始 化 */ 
if (WSAStartup(MAKEWORD(2, 2), &wsaData) != 0) 
t 


/* 如 果 初 始 化 不 成 功 则 报错 ，GetLastError () 返回 发 生 的 错误 信息 */ 
printf("WSAStartup() failed: %d\n", GetLastError()); 
return ; 
) 
m socket = INVALID SOCKET; 
) 


(6) 控制 模块 

此 处 控制 模块 的 功能 是 为 其 他 模块 提供 调用 函数 ， 它 能 够 实现 参数 获取 、 校 验 处 理 、 
计算 处 理 、ICMP 数据 填充 、 释 放 占 用 资源 和 显示 用 户 帮 助 等 功能 。 有 具体 实现 代码 如 下 : 

/* 显 示 信息 函数 */ 

void UserHelp() 


t 
printf("UserHelp: ping -r «host» [data size]\n"); 


printt(" -r record route Wn"); 

printf(" -n record amount\n") ; 

prinbtt(" host remote machine to ping Win"); 
printf(" datasize can be up to 1KB\n"); 


ExitProcess (-1); 


} 
/* 获 取 ping 选项 函数 */ 
void GetArgments (int argc, char **argv) 
{ 
En tans 
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int j; 
int exp; 
int len; 
int m; 
/* 如 果 没 有 指定 目的 地 地 址 和 任何 选项 */ 
if (argc == 1) 
t 
printf ("\nPlease specify the destination IP address and the ping 
option as follow! Nin"); 
UserHelp(); 
) 
for(i-1; i«argc; i++) 
t 
len = strlen(argv[i]); 
if (argv[i][0] = '-') 
{ 
/* 选 项 指示 要 获取 记录 的 条 数 */ 
if (isdigit (argv[i] [1])) 
t 
PacketNum = 0; 
for (j=len-1,exp=0; j»-1; j--,exp-**) 
/* 根 据 argv [i] [j] 中 的 ASCII 值 计 算 要 获取 的 记录 条 数 (十 进 制 数 ) */ 
PacketNum += ((double) (argv[i] [j]-48)) *pow (10, exp) ; 
} 
else 
{ 
switch (tolower(argv[i] [1])) 
{ 
/* 选 项 指示 要 获取 路 由 信息 */ 
case “Er: 
RecordFlag = TRUE; 
break; 
/* 没 有 按 要 求 提供 选项 */ 
default: 
UserHelp(); 
break; 
} 
} 


} 
/* 参 数 是 数据 报 大 小 或 者 IP 地 址 */ 
else if (isdigit(argv[i] [0])) 
{ 
for(m-1; m«len; m++) 
t 
if(!(isdigit (argv[i] [m]) ) 
t 
/* FÈ IP 地 址 */ 
lpdest = argv[i]; 
break; 
} 
/* 是 数据 报 大 小 */ 


else if(m = len-1) 


y 


datasize = atoi(argv[i]); 


} 


} 
/* 参 数 是 主机 名 */ 
else 
lpdest = argv[i]; 
} 


} 
/* 求 校 验 和 函数 */ 
USHORT CheckSum(USHORT *buffer, int size) 


{ 


unsigned long cksum = 0; 
while (size > 1) 
{ 
cksum += *buffer++7 
size -= sizeof (USHORT); 
} 
if (size) 
{ 
cksum += * (UCHAR*) buffer; 
} 
/* 对 每 个 16bit 进行 二 进 制 反 码 求 和 */ 
cksum = (cksum >> 16) + (cksum & Oxffff); 
cksum += (cksum >>16); 
return (USHORT) (~cksum); 


} 
/* 填 充 ICMP 数据 报 字段 函数 */ 
void FillICMPData(char *icmp data, int datasize) 


{ 


IcmpHeader *icmp hdr = NULL; 

char *datapart = NULL; 

icmp hdr = (IcmpHeader*)icmp data; 

/*1CMP 报 文 类 型 设置 为 回 显 请 求 */ 

icmp hdr-»i type = ICMP ECHO; 

icmp hdr-»i code - 0; 

/* 获 取 当 前 进程 TP 作为 标识 符 */ 

icmp hdr-»i id = (USHORT)GetCurrentProcessId(); 
icmp hdr-»i cksum = 0; 

icmp hdr->i seq = 0; 

datapart = icmp data + sizeof (IcmpHeader) ; 
/* 以 数字 0 填充 剩余 空间 */ 


memset (datapart, '0', datasize-sizeof (IcmpHeader)); 


} 
/* 释 放 资源 函数 */ 


void FreeRes () 


{ 


/* 关 闭 创建 的 套 接 字 */ 

if (m socket != INVALID SOCKET) 
closesocket (m socket); 

/* 释 放 分 配 的 内 存 */ 

HeapFree (GetProcessHeap(), 0, recvbuf); 

HeapFree (GetProcessHeap(), 0, icmp data); 


ICMP [A 


调 


} 


/*ikfli wsAStartup () 调用 */ 
WSACleanup(); 
return ; 


C) 数据 报 解读 处 理 
此 处 控制 模块 的 功能 是 解读 IP 选项 和 ICMP 报 文 ， 当 主机 接收 到 目的 主机 返回 的 


/* 解 读 IP 选项 头 函数 */ 


void DecodeIPOptions(char *buf, int bytes) 


t 


) 


IpOptionHeader *ipopt = NULL; 
IN ADDR inaddr; 


int i; 
HOSTENT *host = NULL; 
/* 获 取 路 由 信息 的 地 址 入 口 */ 


ipopt = (IpOptionHeader*) (buf + 20); 


printf("RR: "); 


for(i-0; i«(ipopt-»ptr/4)-1; i++) 


t 


inaddr.S un.S addr - ipopt-»addr[i]; 


if (i != 0) 
printf(" my 
/* 根 据 IP 地 址 获取 主机 名 */ 


host = gethostbyaddr((char*)&inaddr.S un.S addr, 
sizeof(inaddr.S un.S addr), AF INET); 
/* 如 果 获取 到 了 主机 名 ， 则 输出 主机 名 */ 


if (host) 
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显 应 答 后 ， 就 将 调用 ICMP 解读 函数 来 解读 ICMP 报 文 ， 并 且 ICMP 解读 函数 将 
IP 选项 解读 函数 来 实现 IP 路 由 输出 。 具 体 实现 代码 如 下 : 


printf("($-15s) %s\n", inet ntoa(inaddr), host->h name); 


/* 否 则 输出 rp 地 址 */ 


else 


printf ("(%-15s)\n", inet ntoa(inaddr) ); 


} 
return; 


/* 解 读 ICMP 报头 函数 */ 
void DecodeICMPHeader (char *buf, int bytes, SOCKADDR IN *from) 


{ 


IpHeader *iphdr = NULL; 
IcmpHeader *icmphdr = NULL; 
unsigned short iphdrlen; 
DWORD tick; 

static int icmpcount - 0; 
iphdr = (IpHeader*)buf; 

/* 计 算 TP 报头 的 长 度 */ 

iphdrlen = iphdr->h len * 4; 
tick = GetTickCount (); 


/* 如 果 TP 报头 的 长 度 为 最 大 长 度 (基本 长 度 是 20 字 节 ) ， 则 认为 有 IP 选项 ， 需 要 解读 IP 选项 */ 


if ((iphdrlen == MAX IP HDR SIZE) && (!icmpcount)) 


/* 解 读 IP 选项 ， 即 路 由 信息 */ 


DecodeIPOptions (buf, bytes); 
/* 如 果 读 取 的 数据 太 小 */ 
if (bytes < iphdrlen + ICMP MIN) 
t 
printf("Too few bytes from %s\n", inet ntoa(from-»sin addr)); 
} 
icmphdr = (IcmpHeader*) (buf + iphdrlen); 
/* 如 果 收 到 的 不 是 回 显 应 答 报 文 则 报错 */ 
if (icmphdr-»i type != ICMP ECHOREPLY) 
t 
printf("nonecho type $d recvd\n", icmphdr->i type); 
return; 


) 
/* 核 实 收 到 的 ID 号 和 发 送 的 是 否 一 致 */ 
if (icmphdr-»i id != (USHORT)GetCurrentProcessId()) 
t 

printf ("someone else's packet! Wn"); 

return; 
} 
SucessFlag = TRUE; 
/* 输 出 记录 信息 */ 
printf("$d bytes from $s:", bytes, inet ntoa(from-»sin addr)); 
printf(" icmp seq = $d. ", icmphdr-»i seq); 
printf(" time: $d ms", tick - icmphdr->timestamp) ; 
printf ("Nn"); 
icmpcount++; 
return; 


} 


(8) Ping 测试 处 理 

此 模块 是 整个 项 目的 核心 ， 功 能 是 进行 Ping 操作 处 理 。 当 整个 项 目 初始 化 处 理 完 成 
后 ， 根 据 用 户 提交 的 参数 即 可 进行 Ping 处 理 。 具 体 实现 代码 如 下 : 

/*Ping 函数 */ 


void PingTest(int timeout) 
{ 
int ret; 
int readNum; 
int fromlen; 
struct hostent *hp = NULL; 
/* 创 建 原始 套 接 字 ， 该 套 接 字 用 于 ICMP 协议 */ 
m socket = WSASocket (AF INET, SOCK RAW, IPPROTO ICMP, NULL, 
0, WSA FLAG OVERLAPPED); 
/* 如 果 套 接 字 创建 不 成 功 */ 
if (m socket == INVALID SOCKET) 
{ 
printf("WSASocket() failed: %d\n", WSAGetLastError()); 
return; 


5 

/* 若 要 求 记录 路 由 选项 */ 
if (RecordFlag) 

t 


$ 
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/*IP 选项 每 个 字段 用 0 初始 化 */ 

ZeroMemory(&IpOption, sizeof (IpOption)); 

/* 为 每 个 ICMP 包 设置 路 由 选项 */ 

IpOption.code = IP RECORD ROUTE; 

Ipoption.ptr = 4; 

Ipoption.len = 39; 

ret — setsockopt(m socket, IPPROTO IP, IP OPTIONS, 
(char*)&IpOption, sizeof (IpOption) ); 

if (ret == SOCKET ERROR) 

{ 


printf ("setsockopt (IP OPTIONS) failed: d\n", WSAGetLastError()); 
} 


} 

/* 设 置 接收 的 超时 值 */ 

readNum = setsockopt(m socket, SOL SOCKET, SO RCVTIMEO, 

(char*)&timeout, sizeof (timeout) ); 

if (readNum == SOCKET ERROR) 

{ 
printf ("setsockopt (SO_RCVTIMEO) failed: %d\n", WSAGetLastError()); 
return ; 


} 

/* 设 置 发 送 的 超时 值 */ 

timeout = 1000; 

readNum = setsockopt(m socket, SOL SOCKET, SO SNDTIMEO, 
(char*)&timeout, sizeof (timeout) ); 

if (readNum == SOCKET ERROR) 

{ 


printf("setsockopt(SO SNDTIMEO) failed: %d\n", WSAGetLastError()); 
return ; 


} 
/* 用 0 初始 化 目的 地 地 址 */ 
memset (&DestAddr, 0, sizeof (DestAddr) ); 
/* 设 置地 址 族 ， 这 里 表示 使 用 IP 地 址 族 */ 
DestAddr.sin family = AF INET; 
if ((DestAddr.sin addr.s addr-inet addr(lpdest)) == INADDR NONE) 
{ 
/* 名 字 解 析 ， 根 据 主机 名 获取 IP 地 址 */ 
if ((hp=gethostbyname(lpdest)) != NULL) 
t 
/* 将 获取 到 的 IP 值 赋 给 目的 地 地 址 中 的 相应 字段 */ 
memcpy(&(DestAddr.sin addr), hp->h addr, hp->h length); 
/* 将 获取 到 的 地 址 族 值 赋 给 目的 地 地 址 中 的 相应 字段 */ 
DestAddr.sin family = hp->h addrtype; 
printf("DestAddr.sin addr = %s\n", inet ntoa(DestAddr.sin addr)); 


} 

/* 获 取 不 成 功 */ 
else 

{ 


printf ("gethostbyname() failed: %d\n", WSAGetLastError()); 
return ; 
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/* 数 据 报 文大 小 需要 包含 ICMP 报头 */ 
datasize += sizeof (IcmpHeader); 
/* 根 据 默 认 堆 句柄 ， 从 堆 中 分 配 MAX_PRCKET 内 存 块 ， 新 分 配 内 存 的 内 容 将 被 初始 化 为 0*/ 
icmp data — 
(char*)HeapAlloc(GetProcessHeap(), HEAP ZERO MEMORY, MAX PACKET); 
recvbuf = 
(char*)HeapAlloc(GetProcessHeap(), HEAP ZERO MEMORY, MAX PACKET); 
/* 如 果 分 配 内 存 不 成 功 */ 
if (!icmp data) 
{ 
printf ("HeapAlloc() failed: %d\n", GetLastError()); 
return ; 


} 
/* 创建 ICMP 报 文 */ 
memset(icmp data, 0, MAX PACKET); 
FillICMPData (icmp data, datasize); 
while (1) 
t 

static int nCount - 0; 

int writeNum; 


/* 超 过 指定 的 记录 条 数 则 退出 */ 
if (nCount++ == PacketNum) 
break; 


/* 计 算 校 验 和 前 要 把 校 验 和 字段 设置 为 0*/ 

((IcmpHeader*)icmp data)->i cksum = 0; 

/* 获 取 操 作 系 统 启动 到 现在 所 经 过 的 毫秒 数 ， 设 置 时 间 鹤 */ 

((IcmpHeader*)icmp data)->timestamp = GetTickCount (); 

/* 设 置 序列 号 */ 

((IcmpHeader*)icmp data)->i seq = seq no++; 

/* 计 算 校 验 和 */ 

((IcmpHeader*)icmp data)->i cksum = 
CheckSum((USHORT*)icmp data, datasize); 

/* 开 始 发 送 ICMP 请 求 */ 

writeNum = sendto(m socket, icmp data, datasize, 0, 
(struct sockaddr*)&DestAddr, sizeof (DestAddr)); 


/* 如 果 发 送 不 成 功 */ 
if (writeNum == SOCKET ERROR) 
ü 
/* 如 果 是 由 于 超时 不 成 功 */ 
if (WSAGetLastError() == WSAETIMEDOUT) 


{ 
printf ("timed outWn"); 


continue; 
} 
/* 其 他 发 送 不 成 功 原因 */ 
printf("sendto() failed: $dWMn", WSAGetLastError()); 
return ; 


} 

/* 开 始 接收 ICMP 应 答 */ 

fromlen = sizeof (SourceAddr); 

readNum = recvfrom(m socket, recvbuf, MAX PACKET, 0, 


$ 
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(struct sockaddr*)&SourceAddr, &fromlen); 
/* 加 果 接收 不 成 功 */ 
if (readNum — SOCKET ERROR) 
{ 
/* 如 果 是 由 于 超时 不 成 功 */ 
if (WSAGetLastError() == WSAETIMEDOUT) 


{ 
printf ("timed out\n"); 
continue; 


) 
/* 其 他 接收 不 成 功 原因 */ 
printf("recvfrom() failed: %d\n", WSAGetLastError()); 
return ; 
) 
/* 解 读 接收 到 的 ICMP 数据 报 */ 


DecodeICMPHeader (recvbuf, readNum, &SourceAddr); 


(9 主 函 数 

系统 主 函数 main0 实 现 了 对 整个 程序 的 运行 控制 和 对 所 有 相关 模块 的 调用 。main0 函 
数 首先 初始 化 系统 变量 ， 然 后 获取 参数 ， 并 根据 参数 进行 Ping 操作 处 理 。 

具体 实现 代码 如 下 : 


int main(int argc, char *argv[]) 
{ 


InitPing(); 
GetArgments (argc, argv); 
PingTest (1000); 
/* iBR 1 秒 */ 
Sleep (1000) ; 
if (SucessFlag) 
printf ("\nPing end, you have got $.0f records!\n", PacketNum) ; 
else 
printf("Ping end, no record!"); 
FreeRes(); 
getchar (); 
return 0; 


) 
至 此 ， 整 个 实例 介绍 完毕 ， 运 行 后 将 首先 按照 默认 样式 显示 ， 如 图 7-6 所 示 。 
.- ini xj 


record amount 
remote machine to ping 
can be up to 1KB 


7-6 ”初始 效果 


如 果 输 入 一 个 合法 的 目标 地 址 ， 会 显示 Ping 的 结果 ， 如 图 7-7 Bras. 
1 -- ini xj 


Ic: Documents and Setti 


图 7-7 Ping 结 


7. ”小 试 牛刀 一 一 基于 ICMP 实 现 路 由 跟踪 系统 


实例 功能 使 用 Visual C++ 开发 一 个 基于 ICMP 的 Ping 系统 
源码 路 径 


光盘 \yuanma\7VTrace 


7.4.1 设计 界面 


打开 Visual C++ 6.0， 新 建 一 个 名 为 “Trace” 的 MFC 工程 ， 然 后 分 别 创建 ID 名 为 
IDD ABOUTBOX( 见 图 7-8) 和 ID 名 为 IDD ROUTETRACE DIALOG( 见 图 7-9) 的 窗 体 。 


ra 版 权 所 有 一 一 雨夜 
7-8 IDD_ABOUTBOX 7-9 IDD_ROUTETRACE_DIALOG 


7.4.2 具体 编码 


(1) 在 文件 ICMP.h 中 创建 ICMP 头 文件 ， 并 定义 类 CICMP， 在 里 面 定义 需要 的 响应 
函数 。 具 体 代 码 如 下 : 
#if MSC VER > 1000 


#pragma once 
#endif // MSC VER > 1000 
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#define DEF PACKET 32 
#define MAX PACKET 1024 
#define MIN PACKET 8 


fife ECVE 
#define ICMP ECHO 8 // 回 应 请 求 
#define ICMP ECHOREPLY 0 // 回 应 应 答 
#define ICMP DESUNREACH 3 // 目 的 不 可 达 
#define ICMP TTLOUT 11 //TTL 超时 
//1P 及 ICMP 包头 部 结构 


typedef struct ip head ( 
unsigned int HeadLen:4;  //Hl 32 位 字 表 示 的 报头 长 度 
unsigned int version:4; // 协 议 版 本 
unsigned char level; ”// 优 先 级 
unsigned short len; // 包 长 度 
unsigned short ID; // 标 识 
unsigned short  mflag; // 其 他 标记 
unsigned char ttl; // 生 命 期 
unsigned char prot;  // 协 议 
unsigned short  cksum; ”// 校 验 和 


unsigned int sourIP; // 源 IP 地 址 
unsigned int destIP; // 目 的 IP 地址 
} IP HEAD; 


typedef struct icmp head { 


unsigned char type; // 类 型 
unsigned char code; // 编 码 
unsigned short  cksum; // 校 验 和 
unsigned short ID; // 标 识 
unsigned short number; // 计 数值 
unsigned int time; // 时 间 

) ICMP HEAD; 


class CICMP 

{ 

public: 
IP HEAD *m pIp; 
ICMP HEAD *m pIcmp; 
SOCKET  winsock; 
CString m strInfo; 
CString RouteState; 


Sockaddr in m sockAddr; 
int routestate; 
char *routeaddr; 


public: 
BOOL Initialize (void); // 初 始 化 
void Uninitialize (void); // 反 初始 化 
USHORT CheckSum(USHORT *buffer, int size);  // 校 验 和 
BOOL SendICMPPack (char *pAddr); // 发 送 报 文 
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n 


BOOL SendICMPPack (sockaddr in *pAddr) ; 
BOOL RecvICMPPack (void); 

int SetTTL(int TTL); 

CICMP(); 

virtual ~CICMP(); 


#endif // !defined(AFX ICMP H INCLUDED ) 


(2) 在 文件 ICMP.cpp 中 按照 ICMP 格式 封装 ICMP 包 ， 并 定义 各 个 响应 函数 的 具体 


实现 。 文 件 ICMP.cpp 中 的 具体 代码 如 下 : 


CICMP: :CICMP () 


t 


T 


winsock = 0; 

m pIp = NULL; 

m pIcmp = NULL; 

m pIp - (IP HEAD*)new BYTE[MAX PACKET]; 

m pIcmp = (ICMP HEAD*)new BYTE[MAX PACKET]; 


CICMP: :~CICMP () 


{ 


delete []m pIp; 
delete []m_pIcmp; 


) 
// 初 始 化 
BOOL CICMP::Initialize() 


{ 


WSADATA wsadata; 
if ( WSAStartup (MAKEWORD(2, 1), &wsadata) ) 
{ 
AfxMessageBox ("WSAStartup 初始 化 失败 !") ; 
return FALSE; 
} 


winsock = WSASocket (AF_INET, // 建 立 socket 
SOCK RAW, 
IPPROTO ICMP, 
NULL, 0, 0); 
if(!winsock) ( 
AfxMessageBox ("Socket 创建 失败 !") ; 
return FALSE; 
} 


int timeout = 5000; 

setsockopt (winsock, SOL SOCKET, SO RCVTIMEO, 
(char*)&timeout, // 设 置 接收 超时 

sizeof (timeout) ); 

timeout = 5000; 

setsockopt (winsock, SOL SOCKET, SO SNDTIMEO, 
(char*) &timeout, // 设 置 发 送 超时 


// 发 送 报 文 
// 接 收报 文 
// 设 置 TTL 


sizeof (timeout)); 


return TRUE; 


void CICMP::Uninitialize() // 释 放 Socket 
t 
if (winsock) 
closesocket (winsock) ; 
WSACleanup () 7 


USHORT CICMP::CheckSum(USHORT *buffer, int size) // 计 算 校 验 和 
{ 
unsigned long cksum = 0; 
while(size > 1) { 
cksum += *buffer++; 
size -= sizeof (USHORT) ; 


if(size) { 
cksum += * (UCHAR*) buffer; 


cksum = (cksum >> 16) + (cksum & Oxffff); 
cksum += (cksum >>16); 


return (USHORT) (~cksum) ; 


BOOL CICMP: :SendICMPPack (char *pAddr) 
{ 
sockaddr in sockAddr; 
memset ( (void*) &sockAddr, 0, sizeof (sockAddr) ) ; 
sockAddr.sin family = AF INET; 
sockAddr.sin port = 0; 
SockAddr.sin addr.S un.S addr = inet addr (pAddr); 


return SendICMPPack (&sockAddr) ; 


} 
// 发 送 ICMP 包 ， 开 始 路 由 跟踪 
BOOL CICMP::SendICMPPack(sockaddr in *pAddr) 
t 
/ | ifs ICMP 数据 各 项 
int state; 
char *p data; 
m plIcmp-»5type = ICMP ECHO; 
m pIcmp-»code = 0; 
m plIcmp-»ID = (USHORT) GetCurrentProcessId(); 
m plIcmp-»number = 0; 
m pIcmp-»time = GetTickCount () ; 
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Visual C++ GAE 


人 
m pIcmp-»cksum = 0; 


// 填 充 数据 
p data = ((char*)m pIcmp + sizeof(ICMP HEAD)); 
memset((char*)p data, '0', DEF PACKET); 


// 校 验 和 
m pIcmp-»cksum = 
CheckSum((USHORT*)m pIcmp, EF PACKET + sizeof (ICMP HEAD)); 


// 发 送 数据 

State = 
sendto(winsock, (char*)m pIcmp, DEF PACKET + sizeof (ICMP HEAD), 
NULL, (struct sockaddr*)pAddr, sizeof (sockaddr)); 


if(state == SOCKET ERROR) ( 


if (GetLastError() == WSAETIMEDOUT) 
m strInfo = "连接 超时 ! (发 送 ) "; 
else 


m strInfo = "出 现 未 知 发 送 错误 !"; 
return FALSE; 


if(state « DEF PACKET) ( 
m strInfo = "发 送 数据 错误 !m7 
return FALSE; 


memcpy((void*)&m sockAddr, (void*)pAddr, sizeof(sockaddr in)); 


return TRUE; 
} 


// 接 收 数据 ， 返 回路 由 信息 
BOOL CICMP: :RecvICMPPack () 
t 
int state; 
int len - sizeof(sockaddr in); 
char *addr; 
struct hostent *lpHostent = NULL; 


addr = inet ntoa(m sockAddr.sin addr); 
state = recvfrom(winsock, (char*)m pIp, MAX PACKET, 0, 
(struct sockaddr*)&m sockAddr, &len); 


if (state == SOCKET ERROR) { 
if (WSAGetLastError() == WSAETIMEDOUT) 
{ 
m strInfo. Format (" 接 收 超时 ,路 由 跟踪 失败 !") ; 
routestate — 0; 


RouteState = "路 由 跟踪 失败 !"; 


else 
m strInfo = "未 知 接收 错误 !"; 
return FALSE; 
} 


// 分 析 数 据 
int ipheadlen; 
ipheadlen = m pIp->HeadLen*4; 


if (state < (ipheadlen+MIN PACKET)) { 
m strInfo = "目的 地 址 的 响应 数据 不 正确 "; 
return FALSE; 

} 


ICMP HEAD *p icmprev; 


p_icmprev = (ICMP_HEAD*) ((char*)m pIp + ipheadlen) ; 


switch (p icmprev-^type) 

t 
case ICMP ECHOREPLY: // 收 到 正常 回 显 
{ 
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m strInfo.Format ("接收 到 %s sa 字 节 响应 数据 , 响应 时 间 :%$dms ."， 


inet ntoa (m sockAddr.sin addr), len, 


GetTickCount ()-p icmprev-»time); 
routeaddr - addr; 
routestate = 0; 
RouteState = "到 达 目 的 主机 !"; 
return TRUE; 
break; 
} 
case ICMP TTLOUT:  // TTL 超 时 
{ 


routeaddr = inet ntoa(m sockAddr.sin addr); 


routestate - 1; 

RouteState = "测试 到 路 由 器 !"; 
return TRUE; 

break; 


case ICMP DESUNREACH: // 目 的 不 可 达 
{ 
m strInfo = "目的 不 可 达 !"; 


routestate = 0; 
Routestate = "目的 不 可 达 !"; 
return TRUE; 
break; 

} 

default: 


{ 
routestate = 0; 


m strInfo = "未 知 错误 !"; 
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RouteState = "不 明 状 态 


return TRUE; 


[ee ——À VUE rie 
int CICMP::SetTTL(int TTL) 
i 

int nRet = 


setsockopt(winsock, IPPROTO IP, IP TTL, (LPSTR)&TTL, sizeof (int)); 


if(nRet == SOCKET ERROR) 

{ CString ttlerr; 
ttlerr.Format (" 设 置 TTL 错误 ! 
AfxMessageBox (ttlerr) ; 


return 0; 
} 
return 1; 
} 
(3) 在 文件 RouteTraceDlg.cpp 中 设置 一 个 界面 来 演示 跟踪 的 路 由 ， 有 具体 代码 如 下 : 
pr— — De 


UINT ThreadRoute (LPVOID pParam) 

{ 
SubThreadInfo *pInfo = (SubThreadInfo*) pParam; 
CRouteTraceDlg *pThreadDlg = (CRouteTraceDlg*) pInfo->pDialog; 


CICMP m_icmp; 
CString IPStr = pInfo->IPStr; 
CString sTTL; 
int nTELs 
m icmp.Initialize(); 
for(nTtl-1; nTtl«-pInfo-»Maxhot; nTtl++) 
t 
if(m icmp.SetTTL(nTtl) == 0) 
return 0; 
STTL.Format ("$d", nTtl); 
if (m icmp.SendICMPPack ((char*) (LPCSTR) IPStr) 
m icmp.RecvICMPPack(); 
t 
int i = pInfo->list->InsertItem(0, sTTL); 
pInfo-»list-»SetlItemText(i, 1, m icmp.routeaddr); 
pInfo-»list-»SetItemText(i, 2, m icmp.RouteState); 
pInfo-»state-»SetWindowText (m icmp.m strInfo); 
Sleep (100); 
} 


if(m icmp.routestate == 0) 
break; 

if (WaitForSingleObject (eventStopRoute.m hObject,0) == WAIT OBJECT 0) 
break; 


E 


} 


pThreadDlg->Routeflag = TRUE; 


return 0; 


// 定 义 类 CAboutDlg 
class CAboutDlg : public CDialog 


t 


public: 


CAboutD1g(); 
enum { IDD = IDD ABOUTBOX }; 


// 初 始 化 处 理 
BOOL CRouteTraceDlg::OnInitDialog() 


{ 


void CRouteTraceDlg::OnSysCommand(UINT nID, LPARAM lParam) 
{ 


CDialog: :OnInitDialog(); 
ASSERT ( (IDM ABOUTBOX & OxFFF0) == IDM ABOUTBOX) ; 
ASSERT (IDM ABOUTBOX < OxF000); 
CMenu *pSysMenu = GetSystemMenu (FALSE) ; 
if (pSysMenu != NULL) 
{ 
CString strAboutMenu; 
strAboutMenu. LoadString (IDS ABOUTBOX) ; 
if (!strAboutMenu. IsEmpty () ) 


{ 
pSysMenu-»AppendMenu (MF SEPARATOR) ; 
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pSysMenu->AppendMenu (MF STRING, IDM ABOUTBOX, strAboutMenu); 


} 
SetIcon(m hIcon, TRUE); // Set big icon 
SetIcon(m_hIcon, FALSE); // Set small icon 


m list.InsertColumn (0, "标号 "， LVCFMT CENTER, 60, 0); 


m list.InsertColumn (1，" 路 由 器 地 址 "，HDF CENTER, 200, 0); 


m list.InsertColumn (2，" 状 态 "，HDEF CENTER, 100, 0); 


ListView SetExtendedListViewStyleEx ( 
m list.m hWnd, LVS EX FULLROWSELECT, OxFFFFFFFF); 


return TRUE; 


if ((nlID & OxFFF0) — IDM ABOUTBOX) 
t 
CAboutDlg dlgAbout; 
dlgAbout.DoModal(); 
} 
else 


{ 
CDialog: :OnSysCommand(nID, 1Param) ; 


void CRouteTraceDlg: :OnPaint () 
t 
if (IsIconic()) 
t 
CPaintDC dc(this); // device context for painting 


SendMessage(WM ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0); 


// Center icon in client rectangle 
int cxIcon = GetSystemMetrics (SM CXICON) ; 
int cyIcon = GetSystemMetrics (SM CYICON) ; 
CRect rect; 
GetClientRect (&rect) ; 
int x = (rect.Width() - cxIcon + 1) / 2; 
int y = (rect.Height() - cyIcon + 1) / 2; 
dc.DrawIcon(x, y, m hIcon); 

) 

else 

t 
CDialog::OnPaint(); 


HCURSOR CRouteTraceDlg: :OnQueryDragIcon () 
t 
return (HCURSOR)m hIcon; 


void CRouteTraceDlg::OnTrace() 
t 
CString str; 
UpdateData (TRUE) ; 
CWnd *pWnd; 
pWnd = GetDlgItem(IDC COMBO); 
pWnd-»GetWindowText (str); 


if(str.IsEmpty()) { 
MessageBox (" 请 输入 地 址 ! ") ; 
pWnd-»SetFocus(); 
return; 


if (m comb.FindStringExact(-1, str) == CB ERR) 
m comb.AddString (str); 


m list.DeleteAllItems(); 

if (Routeflag) 

{ 
Routeflag = FALSE; 
Info. TIPStr = str; 
Info.pDialog = this; 
Info.Maxhot = m maxhot; 
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Info.list = (&m list); 
Info.state — (&m statectl); 
AfxBeginThread(ThreadRoute, &Info); 


$ 


void CRouteTraceDlg: :OnStop () 
t 
if(!Routeflag) 
ji 
eventStopRoute.SetEvent () ; 


$ 
H 


void CRouteTraceDlg: :OnDestroy () 
í 
CDialog::OnDestroy(); 


m icmp.Uninitialize(); 
b 


到 此 为 止 ， 整 个 实例 的 主要 模块 介绍 完毕 ， 执 行 后 的 效果 如 图 7-10 所 示 。 输 入 目标 地 
址 ， 单 击 “ 跟 踪 ” 按 钮 ， 就 可 以 查看 经 过 的 路 由 信息 。 


图 7-10 执行 效果 
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在 流 媒体 开发 应 用 过 程 中 ， 经 常 涉 及 到 开发 播放 器 。 随 着 网 络 


的 普及 ， 在 线 播放 器 也 日 益 普及 起 来 。 在 具体 实现 上 ， 程 序 员 可 以 
使 用 DirectShow SDK 技术 开发 一 个 功能 强大 的 视频 播放 器 。 在 本 章 
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8.4 DirectShow 基础 


DirectShow 是 新 一 代 基于 COM 的 流 媒体 处 理 的 开发 包 ， 是 微软 公司 在 ActiveMovie 


和 Video for Windows 的 基础 上 推出 的 ， 与 DirectX 开发 包 一 起 发 布 。DirectShow 为 多 媒体 


流 的 捕捉 和 


回放 提供 了 强 有 力 的 支持 。 使 / 


DirectShow， 可 以 很 方便 地 从 支持 WDM 驱动 


模型 的 采集 卡 上 捕获 数据 ， 并 且 进 行 相应 的 后 期 处 理 乃 至 存储 到 文件 中 。 这 样 使 在 多 媒体 
数据 库 管理 系统 (MDBMS) 中 多 媒体 数据 的 存 取 更 加 方便 。 

DirectShow 广泛 地 支持 各 种 媒体 格式 ， 包 括 ASF、MPEG、AVI、 DV、MP3、WAVE 
等 ， 可 轻松 实现 多 媒体 数据 的 回放 处 理 。 另 外 ，DirectShow 还 集成 了 DirectX 其 他 部 分 ( 比 
如 DirectDraw、DirectSound) 的 技术 ， 直 接 支持 DVD 的 播放 、 视 频 的 非 线性 编辑 ， 以 及 与 
数字 摄像 机 的 数据 交换 。 


8.1.1 _ DirectShow 的 构成 


在 DirectShow 系统 之 上 是 应 用 程序 (Application)。 应 用 程序 要 按照 一 定 的 意图 建立 起 
相应 的 Filter Graph， 然 后 通过 Filter Graph Manager 控制 整个 数据 处 理 过 程 。DirectShow 能 
在 Filter Graph 运行 时 接收 到 各 种 事件 ， 并 通过 消息 的 方式 发 送 到 我 们 的 应 用 程序 ， 从 而 实 
现 应 用 程序 与 DirectShow 系统 之 间 的 交互 。 

DirectShow 的 系统 框架 如 图 8-1 所 示 ， 在 图 中 描述 了 应 用 程序 与 DirectShow 组 件 以 及 
DirectShow 所 支持 的 软 硬 件 之 间 的 关系 。 
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1. 过 滤器 (Filter) 


过 滤器 Filter 是 DirectShow 中 最 基本 的 组 成 元 件 。 过 滤器 Filter 是 一 个 COM 组 件 ， 是 
完成 DirectShow 处 理 过 程 的 基本 单元 。DirectShow 提供 了 一 组 标准 的 过 滤器 供应 用 程序 使 
， 程 序 开发 者 也 可 以 创建 自 定义 的 过 滤器 来 扩充 DirectShow 的 功能 ， 但 必须 是 以 COM 
形式 建立 的 。DirectX 为 用 户 提 供 了 DirectShow 基 类 库 (DirectShow Base Class Library)， 用 
户 自 定义 的 过 滤器 都 可 以 从 基 类 库 提供 的 基 类 和 接口 派生 出 来 。 

过 滤器 主要 分 为 以 下 几 种 类 型 。 

(1) 源 过 滤器 (Source Filter): 源 过 滤器 引入 数据 到 过 滤器 图 表 中 ， 数 据 来 源 可 以 是 文 
件 、 网 络 、 照 相机 等 。 不 同 的 源 过 滤器 处 理 不 同类 型 的 数据 源 。 

(2) 变换 过 滤器 (Transform Tilter): 变换 过 滤器 的 工作 是 获取 输入 流 ， 处 理 数 据 ， 并 生 
成 输出 流 。 变 换 过 滤器 对 数据 的 处 理 包括 编 解码 、 格 式 转换 、 压 缩 解 压缩 等 。 

(3) 提交 过 滤器 (Renderer Tilter): 提交 过 滤器 在 过 滤器 图 表 里 处 于 最 后 一 级 ， 它 们 接 
收 数 据 并 把 数据 提交 给 外 设 。 

(4) 分 割 过 滤器 (Splitter Filter): 分 割 过 滤器 把 输入 流 分 割 成 多 个 输出 。 例 如 ，AVI 分 
割 过 滤器 把 一 个 AVI 格式 的 字 节 流 分 割 成 视频 流 和 音频 流 。 

(5) 混合 过 滤器 (Mux Filter): 混合 过 滤器 把 多 个 输入 组 合成 一 个 单独 的 数据 流 。 例 
如 ，AVI 混合 过 滤器 把 视频 流 和 音频 流 合成 一 个 AVI 格式 的 字 节 流 。 

过 滤器 的 这 些 分 类 并 不 是 绝对 的 ， 例 如 一 个 ASF 读 过 滤器 (ASF Reader Filter) 既 是 一 个 
源 过 滤器 又 是 一 个 分 割 过 滤器 。 

在 DirectShow 里 ， 一 组 过 滤器 称 为 一 个 过 滤器 图 表 (Filter Graph)。 过 滤器 图 表 用 来 连 
接 过 滤器 以 控制 媒体 流 ， 它 也 可 以 将 数据 返回 给 应 用 程序 ， 并 搜索 所 支持 的 过 滤器 。 过 波 
器 有 3 种 可 能 的 状态 : 运行 、 停 止 和 和 暂停。 暂停 是 一 种 中 间 状 态 ， 停 止 状态 到 运行 状态 必 
定 经 过 暂停 状态 。 暂 停 可 以 理解 为 数据 就 绪 状 态 ， 是 为 了 快速 切换 到 运行 状态 而 设计 的 。 
在 暂停 状态 下 ， 数 据 线程 是 启动 的 ， 但 被 提交 过 滤器 阻塞 了 。 通 常情 况 下 ， 过 滤器 图 表 中 
所 有 过 滤器 的 状态 是 一 致 的 。 

2. 引 脚 (Pin) 


过 滤器 可 以 与 一 个 或 多 个 过 滤器 相连 ， 连 接 的 接口 也 是 COM 形式 的 ， 称 为 引 脚 。 过 
滤器 利用 引 脚 在 各 个 过 滤器 间 传 输 数据 。 每 个 引 脚 都 是 从 IPin 这 个 COM 对 象 派 生出 来 
的 。 每 个 引 脚 都 是 过 滤器 的 和 有 对 象 ， 过 滤器 可 以 动态 地 创建 引 脚 、 销 毁 引 脚 、 自 由 控制 
引 脚 的 生存 时 间 。 引 脚 可 以 分 为 输入 引 脚 (Input Pin) 和 输出 引 脚 (Output Pin) 两 种 类 型 ， 两 个 
相连 的 引 脚 必须 是 不 同 种 类 的 ， 即 输入 引 脚 只 能 和 输出 引 脚 相连 ， 且 连接 的 方向 总 是 从 输 
出 引 脚 指向 输入 引 脚 。 

过 滤器 之 间 的 连接 (也 就 是 引 脚 之 间 的 连接 )， 实 际 上 是 连接 双方 媒体 类 型 (Media Type) 
协商 的 过 程 。 

连接 的 大 致 过 程 为 : 如 果 调 用 连接 函数 时 已 经 指定 了 完整 的 媒体 类 型 ， 则 用 这 个 媒体 
类 型 进行 连接 ， 成 功 与 否 都 结束 连接 过 程 ， 如果 没有 指定 或 不 完全 指定 了 媒体 类 型 ， 则 进 


cm 


à 
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入 下 面 的 枚 举 过 程 一 一 枚 举 欲 连接 的 输入 引 脚 上 所 有 的 媒体 类 型 ， 逐 一 用 这 些 媒体 类 型 与 
输出 引 脚 进行 连接 (如 果 连 接 函 数 提供 了 不 完全 媒体 类 型 ， 则 要 先 将 每 个 枚 举 出 来 的 媒体 类 
型 与 它 进行 匹配 检查 )， 如 果 输 出 引 脚 也 接受 这 种 媒体 类 型 ， 则 引 脚 之 间 的 连接 宣告 成 功 ; 
如 果 所 有 输入 引 脚 上 枚 举 的 媒体 类 型 输出 引 脚 都 不 支持 ， 则 枚 举 输出 引 脚 上 的 所 有 媒体 类 
型 ， 并 逐一 用 这 些 媒体 类 型 与 输入 引 脚 进行 连接 ， 如 果 输 入 引 脚 接受 其 中 的 一 种 媒体 类 
型 ， 则 引 脚 之 间 的 连接 宣告 成 功 ， 如 果 输 出 引 脚 上 的 所 有 媒体 类 型 输入 引 脚 都 不 支持 ， 则 
这 两 个 引 脚 之 间 的 连接 过 程 宣告 失败 。 

过 滤器 与 引 脚 连接 如 图 8-2 所 示 。 
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图 8-2 ”过 滤器 和 引 脚 连接 示意 图 

3. 媒体 类 型 (Media Type) 

媒体 类 型 是 描述 数字 媒体 格式 的 一 种 通用 的 可 扩展 方式 。 当 两 个 过 滤器 相连 时 ， 必 须 
使 用 一 致 的 媒体 类 型 ， 否 则 不 能 相连 。 媒 体 类 型 Media Type 能 够 识别 上 一 级 过 滤器 传送 给 
下 一 级 过 滤器 的 数据 类 型 ， 并 对 数据 进行 分 类 。 

在 很 多 实际 应 用 程序 中 ， 我 们 不 必要 担心 媒体 类 型 的 问题 ，DirectShow 会 为 我 们 处 理 
好 所 有 的 细节 。 有 时 应 用 程序 需要 操作 媒体 类 型 ， 媒 体 类 型 一 般 可 以 用 两 种 形式 来 表示 ， 
分 别 是 AM_MEDIA_TYPE 和 CMediaType。 其 中 前 者 是 一 个 结构 ， 后 者 是 从 这 个 结构 继承 
过 来 的 类 。 

每 个 AM MEDIA TYPE 由 3 部 分 组 成 ， 分 别 是 Major Type. Sub Type 和 Format 
Type。 这 3 个 部 分 都 使 用 GUID( 全 局 唯一 标识 符 ) 来 唯一 标识 。Major Type 主要 定性 描述 
一 种 媒体 类 型 ， 这 种 媒体 类 型 可 以 是 视频 、 音 频 、 比 特 数据 流 或 MIDI 数据 等 ，Sub Type 
进一步 细 化 媒体 类 型 ， 如 果 是 视频 的 话 ， 可 以 进一步 指定 是 RGB-24， 还 是 RGB-32， 或 是 
UYVY 等 ，Format Type 则 用 一 个 结构 更 进一步 地 细 化 媒体 类 型 。 

如 果 媒 体 类 型 的 3 个 部 分 都 指定 了 某 个 具体 的 GUID 值 ， 则 称 这 个 媒体 类 型 是 完全 指 
定 的 。 如 果 媒 体 类 型 的 3 个 部 分 中 有 任何 一 个 值 是 GUID NULL， 则 称 这 个 媒体 类 型 是 不 
完全 指定 的 。GUID_NULL 起 了 一 个 通配符 的 作用 。 

4. 过 滤器 图 表 管 理 器 (Filter Graph Manager) 


在 DirectShow 中 ， 使 用 过 滤器 图 表 管 理 器 来 控制 过 滤器 图 表 中 的 过 滤器 。 过 滤器 图 表 
管理 器 是 COM 形式 的 ， 具 体 功 能 如 下 : 
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协调 过 滤器 间 的 状态 转变 。 
建立 参考 时 钟 。 
把 事件 (Event) 传 送 给 应 用 程序 。 
为 应 用 程序 提供 建立 过 滤器 图 表 的 方法 。 
DirectShow 中 ， 常 用 的 过 滤器 图 表 管 理 器 接口 如 下 。 
IGraphBuilder: 为 应 用 程序 提供 创建 过 滤器 图 表 的 方法 。 
IMediaControl: 提供 控制 过 滤器 图 表 中 多 媒体 数据 流 的 方法 ， 包 括 运行 、 暂 停 和 
停止 
IMediaEventEx: 继承 自 IMediaEvent 接口 ， 处 理 过 滤器 图 表 的 事件 。 
IVideoWindow: 用 于 设置 多 媒体 播放 器 窗口 的 属性 ， 应 用 程序 可 以 用 它 来 设置 窗 
口 的 所 有 者 、 位 置 和 尺寸 等 属性 。 
IBasicAudio: 用 于 控制 音频 流 的 音量 和 平衡 。 
IBasicVideo: 用 于 设置 视频 特性 ， 如 视频 显示 的 目的 区 域 和 源 区 域 。 
IMediaSeeking: 提供 搜索 数据 流 位 置 和 设置 播放 速率 的 方法 。 
IMediaPosition: 用 于 寻找 数据 流 的 位 置 。 
IVideoFrameStep: 用 于 步 进 播放 视频 流 ， 可 使 DirectShow 应 用 程序 ， 包 括 DVD 
播放 器 一 次 只 播放 一 帧 视频 。 

5. 过 滤器 图 表 中 的 数据 流动 

当 用 户 要 创建 自 定义 的 过 滤器 时 ， 需 要 了 解 媒 体 数据 是 如 何在 过 滤器 图 表 中 传输 的 。 
为 了 在 过 滤器 图 表 中 传送 媒体 数据 ，DirectShow 过 滤器 需要 支持 传输 协议 。 相 连 的 过 滤器 
必须 支持 同样 的 传输 协议 ， 和 否则 不 能 交换 媒体 数据 。 

绝 大 多 数 的 DirectShow 过 滤器 会 把 媒体 数据 保存 在 主 存储 器 中 ， 并 通过 引 脚 把 数据 提 
交 给 其 他 的 过 滤器 ， 这 种 传输 称 为 局 部 存储 器 传输 (Local Memory Transport)。 并 不 是 所 有 
的 过 滤器 都 使 用 局 部 存储 器 传输 ， 例 如 有 些 过 滤器 通过 硬件 传送 媒体 数据 ， 引 脚 只 是 用 来 
提交 控制 信息 。 

DirectShow 为 局 部 存储 器 传输 定义 了 两 种 机 制 ， 分 别 是 推 模式 (Push ModeD 和 拉 模 式 
(Pull Model). 

(1) 在 推 模式 中 ， 将 源 过 滤器 生成 数据 提交 给 下 一 级 过 滤器 。 下 一 级 过 滤器 被 动 地 接 
收 数据 ， 完 成 处 理 后 再 传送 给 更 下 一 级 的 过 滤器 。 

(2) 在 拉 模 式 中 ， 源 过 滤器 与 一 个 分 析 过 滤器 相连 。 分 析 过 滤器 向 源 过 滤器 请 求 数据 
后 ， 源 过 滤器 才 传 送 数据 以 响应 请 求 。 

推 模式 使 用 的 是 IMemInputPin 接口 ， 拉 模式 使 用 IAsyncReader 接口 ， 推 模式 比 拉 模 
式 更 常用 。 


8.42 ”常用 的 DirectShow 接 口 
DirectShow 采用 了 COM 标准 ， 所 以 很 多 重要 的 功能 都 是 通过 COM 接口 来 完成 的 。 
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在 本 节 的 内 容 中 ， 将 详细 介绍 DirectShow 接口 的 基本 知识 ， 并 通过 一 个 简单 的 实例 来 说 明 
接口 的 使 用 过 程 。DirectShow 中 的 常用 接口 如 下 。 
Q = IGraphBuilder: 用 于 构造 Filter Graph 的 接口 ， 建 立 和 管理 一 系列 的 Filter， 过 滤 
口 IMediaControl: 用 于 控制 多 媒体 流 在 过 滤器 图 表 中 的 流动 ， 如 流 的 启动 和 停止。 
O IMediaEvent: 用 于 捕获 播放 过 程 中 发 生 的 事件 ， 如 EC COMPLETE 等 ， 并 通知 
应 用 程序 。 
Q IVideoWindow: 用 于 控制 视频 窗口 的 属性 。 
口 IMeadiaSeeking: 用 于 查找 媒体 的 接口 ， 定 位 流 媒 体 ， 为 多 媒体 数据 播放 提供 精 
确 的 控制 。 
Q IBaseFiltr: 从 ImediaFilter 接口 继承 ， 用 来 定义 一 个 具体 的 过 滤器 指针 ， 并 对 多 
媒体 数据 进行 处 理 。 
Q Pin: 用 于 管理 两 个 过 滤器 之 间 的 Pn， 从 而 连接 过 滤器 。 
Q  IsampleGrabberCB: 这 是 Sample Grabber 过 滤器 的 一 个 接口 ， 用 于 当 流 媒体 数据 
通过 过 滤器 时 进行 采样 以 获得 帧 图 像 。 


8.1.3 获取 并 安装 DirectShow SDK 


在 进行 DirectShow 开发 之 前 ， 需 要 先 安装 DirectShow SDK. M DirectX 6.0 开始 ， 
DirectShow 就 成 为 了 DirectX 的 一 部 分 。 如 果 读 者 想 单独 进行 DirectShow 开发 ， 也 可 以 单 
独 获 取 DirectShow SDK 并 进行 安装 。 

读者 也 可 以 从 网 络 资源 中 获取 DirectShow SDK 的 独立 开发 包 ， 例 如 在 百度 中 检索 

“DirectShow 9.0 下 载 ” 关 键 字 ， 可 找到 很 多 资源 链接 ， 直 接 下 载 即 可 ， 如 图 8-3 所 示 。 


文件 四 Gp EV HH IAV Bho : SS E 
om. OD 

= ENTE) CE 
页 贴吧 知道 MP3 图 片 视频 


Bait 百度 p— OF% BRET] orare 

把 百度 设 为 主页 百度 一 下 ,找到 相关 网 页 约 52,600 篇 ， 用 时 0.078 秒 
Tn ZEER Gba 

directshow3 OFE: SRERIIR2009.2.27 1235) TEM, 谢谢 了 aT 

好 。 能 的 我 加 20 分 

zhidao.baidu.com/question/87670729 html 19K 2009-10-31 - 百度 快照 iídirectshow 9.0. , SALA t 
directshowe 9 [CRS 
DirectShow 9 是 Direct 9 的 一 部 分 BU DirecX 叫 X, 意思 就 是 任何 Direct. 的 AED A 
BASEN TERETE. SONGRUETHABMTE Dreco a 52 


zhidao baidu.comiquestion/92548644 htm! 20K 2009-4-17 - ESAE 


DirectShow GraphEdit V9 4780 汉化 版 下 载 - 天 空 软件 站 - Qi 
DirectShow GraphEditV9.4.78.0 汉化 版 下载 地 址 HARF 更 多 >> BEEF.. M 
最 新 的 Microsoft DirectX SDK 中 提取 的 DirectShow Graph 图 表 工具 通过 这 个 _ 
Www skycn corlsof23942.html 28K 2009-12-26 - 百度 快照 


请 问 我 在 党 软 下 载 的 Directx9.0 为 什么 没有 包括 DirectShow? 该 下 载 Qi 
我 在 宙 软 网 站 下 载 了 一 个 最 新 的 DirectX9 0 . 共 318M( 下 生地 址 为 hipyywww microsoft. 
tom/downloads/details aspx?F amilyiD=7d29004e-7a8d-4f0a-b199-6a740d8127b 


O E | 


8-3 检索 DirectShow 9.0 资源 
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接 下 来 开始 安装 DirectShow SDK， 具 体 流程 如 下 。 
(1) 双击 文件 “dx90bsdk.exe”， 在 弹出 对 话 框 中 单 击 Yes 按钮 ， 如 图 8-4 所 示 。 
(2) 开始 提取 文件 处 理 ， 如 图 8-5 所 示 。 


图 8-4 单 击 Yes 按 钮 图 8-5 提取 文件 处 理 
G) 提取 完毕 后 弹出 “解压 缩 ” 对 话 框 ， 选 择 解 压缩 路 径 ， 在 此 假设 解压 缩 到 
“DA” , WE 8-6 所 示 。 
(4) Hii Unzip 按钮 后 ， 开 始 进行 解压 缩 处 理 ， 如 图 8-7 所 示 。 


图 8-6 选择 解压 缩 路 径 图 8-7 开始 解压 缩 
(5) 解压 缩 完 毕 后 ， 自 动弹 出 初始 安装 界面 ， 如 图 8-8 所 示 。 


(6) 单 击 Next 按钮 ， 在 弹出 界面 中 


DK 


选择 “I accept... 


E: 


”选项 ， 如 图 8-9 所 示 。 


Welcome to the InstallShield Wizard for 
Microsoft® DirectX® 9.0 SDK 


The Installshield® Wizard wil install Microsoft® DirectX® 9.0 
SDK on your computer, To continue, cick Next. 


WARNING: This program is protected by copyright law and 
International treaties. 


^). An amendment 
[Sc&ware. YOU AGREE TO BE BOUND BY THE TERMS 


8-8 初始 安装 界面 8-9 选择 “1accept...” 选 项 


x 3 


络 编程 开发 与 实战 


(7) 单 击 Next 按钮 ， 在 弹出 的 界面 中 选择 安装 路 径 ， 在 此 假设 安装 到 “D:show”， 
如 图 8-10 所 示 。 
(8) 单 击 Next 按钮 ， 弹 出 “安装 类 型 ”对 话 框 ， 如 图 8-11 所 示 。 


rm 7 SIX - InstallShield ¥izer 
Custom Setup \ 
Select the program features you want installed. 


Runtime Installation Types. 
Select the type of runtime support you want installed. 


图 8-10 初始 安装 界面 图 8-11 “安装 类 型 ”对 话 框 
安装 类 型 中 有 两 个 选项 ， 含 义 如 下 。 


Q Retail: 运行 支持 安装 非 DirectX 9.0 组 件 。 

Q Debug: 运行 支持 \ Retail 文件 夹 包含 的 安装 程序 。 

在 此 按 默 认 选择 Debug 选项 即 可 。 

(9) 单 击 Install Now 按钮 ， 弹 出 安装 界面 ， 开 始 进行 安装 ， 如 图 8-12 所 示 。 

(10) 当 进 度 完成 后 ， 弹 出 “完成 ”对 话 框 ， 单 击 Finish 按钮 后 完成 整个 软件 的 安装 ， 
如 图 8-13 所 示 。 


Installing Microsoft® DirectX® 9.0 SOK InstallShield Wizard Completed 
‘The program features you selected are being installed. 


The InstallShield Wizard has successfully installed Microsoft® 
DirectX® 9.0 SDK. Chek Finish to exit the wizard, 


图 8-12 安装 界面 图 8-13 ”安装 完成 界面 


8.1.4 配置 DirectShow SDK 


安装 DirectShow SDK 后 ， 还 需要 对 其 进行 配置 ， 这 样 才能 正常 地 进行 项 目 开发 。 因 
为 考虑 到 开发 的 可 扩展 性 ， 并 且 因 为 DirectX 和 Visual C++ 2010 的 结合 性 最 好 ， 所 以 建议 
使 用 Visual C++ 2010 进行 DirectX 开发 。 
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在 安装 DirectX 后 ， 需 要 如 下 两 方面 的 配置 : 
Q ”生成 DirectShow SDK 库 。 
a M Visual C++ 2010. 
1. 生成 DirectShow SDK 库 
在 进行 DirectShow 开发 时 需要 如 下 几 个 静态 链接 库 。 
strmiids.lib: 定义 了 DirectShow 标准 的 输出 类 标识 和 接口 标识 。 
strmbase.lib: 流 媒体 开发 用 到 的 库 ， 用 于 Debug、Debug_Unicode 版 本 。 
strmbase.lib: 流 媒体 开发 用 到 的 库 ， 用 于 Release. Release Unicode 版 本 。 
quartz.lib: 定义 导出 函数 AMGetErrorText。 

口 winmmlib: Windows 多 媒体 编程 用 到 的 库 。 

在 DirectShow 开发 之 前 ， 需 要 首先 编译 DirectShow 自 带 的 源 代码 工程 BaseClasses， 
这 样 就 能 生成 DirectShow SDK 不 同 版 本 的 库 。 具 体操 作 流程 如 下 。 

(1) 启动 Visual C++ 2010， 如 图 8-14 所 示 。 


oono 


ZnO O82 NMV Mo Com Py IAD Mo Wop Who 
IST PP Ee ee ZEN 239208 5-. 


FLL: MI-AASARAARRSLOKEM nm. 
(SEV NTATTS. FRACRTN. ERTTITEXUSLARE 
aware. TERTNCHNT. 


BANILCTA- .wT RRO x 
TLE. XCOHACNIAE CHIOT CO BENINA 
Tux. 


图 8-14 打开 Visual C++ 2010 


(2) 从 菜单 栏 中 选择 “文件 ”一 “打开 ”一 “项 目 /解决 方案 ”命令 ， 在 弹出 的 对 话 杠 
中 找到 前 面 安 装 DirectShow SDK 的 目录 ， 并 找到 “Di\show\Samples\C++\DirectShow\ 
BaseClasses” 路 径 ， 如 图 8-15 所 示 。 

打开 baseclasses.sln 项 目 ， 如 图 8-16 所 示 。 

(3) 按 F7 键 开始 编译 ， 初 次 编译 运行 项 目 时 ， 会 有 很 多 错误 ， 这 需要 我 们 进行 调整 

因为 大 多 数 的 DirectShow SDK 是 Visual C++ 2003 版 本 ， 所 以 在 使 用 Visual C++ 2010 
编译 时 会 遇 到 很 多 错误 。 例 如 作者 初次 编译 运行 BaseClasses.sln 项 目 时 ， 出 现 了 好 几 个 错 
误 ， 如 图 8-17 所 示 。 
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图 8-17 Visual Studio 2010 编译 错误 提示 


下 面 分 析 几 个 常见 的 错误 。 
错误 1 H 


Microsoft Visual Studio 8\VC\PlatformSDK \include\winnt.h(222): error C2146: 


语法 错误 : 缺少 “:”( 在 标识 符 “PVOID64” 的 前 面 )。 


误 中 ， 编 译 器 通知 POINTER 64 没有 定义 ， 我 们 来 到 文件 winnth 的 222 47, 
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只 需 在 其 前 面 添加 “#define POINTER. 64 ptr64” 即 可 解决 ， 即 修改 为 如 下 代码 : 


#define POINTER 64 ptr64 typedef void * POINTER 64 PVOID64; 


错误 2: wxutibcpp(277): error C2065: ‘COINIT DISABLE OLEIDDE': undeclared 

identifier. 

针对 这 个 问题 搜 了 网 上 很 多 地 方 ， 后 来 发 现 了 一 个 替代 解决 方案 ， 变 量 未 定义 ， 但 是 

有 办 法 解决 ， 找 到 源 代码 wxutiLcpp 的 277 行 : 

hr = (*pCoInitializeEx) (0, COINIT DISABLE OLE1DDE) 7 

将 变量 COINIT DISABLE OLEIDDE 改 成 整数 4: 

hr = (*pCoInitializeEx) (0, 4); 

这 样 就 可 以 编译 通过 了 ， 在 编译 的 时 候 记得 编译 两 个 版 本 ， 可 通过 Build— Set Active 

Configuration 菜单 命令 来 切换 激活 版 本 ， 就 可 以 编译 两 个 不 同 的 版 本 到 项 目 对 应 的 目录 
下 。 然 后 把 编译 好 的 两 个 文件 夹 Debug 和 Release 放 到 对 应 的 BaseClasses 文件 夹 下 边 。 

错误 3: winnth(5940): error C2146: 语法 错误 : 缺少 “;”( 在 标识 符 “Buffer” 的 前 
面 )。 

右 击 “BaseClasses”， 在 弹出 菜单 中 选择 “属性 ”命令 ， 在 弹出 对 话 框 中 依次 选择 
“配置 属性 ”一 “CC++” 一 “常规 ”， 然 后 在 “附加 包含 目录 ”后 的 框 中 将 
“Ainclude” 删 除 ， 如 图 8-18 所 示 。 
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取消 Tru 
8-18 “属性 ”对 话 框 

上 述 操作 也 同样 适应 于 解决 错误 1， 再 返回 分 析 问 题 1: 

POINTER 64 是 一 个 宏 ， 在 64 位 编译 下 起 作用 ， 它 包含 在 SDK 目录 下 的 
BASETSD.H 中 (Microsoft Visual Studio 8\VC\PlatformSDK\Include\basetsd.h(23): #define 
POINTER 64 _ptr64)， 但 是 DXSDK 也 自 带 了 一 个 basetsdh， 里 面 没有 定义 POINTER - 
64， 从 而 导致 出 错 ， 只 需要 改变 include files 的 优先 级 即 可 。 

错误 4: error C4430: missing type specifier - int assumed. Note: C++ does not support 
default-int。 


此 错误 发 生 在 operator=(LONG):; 函 数 定义 中 ， 这 是 因为 在 VC6 中 ， 如 果 没 有 显 式 地 指 
定 返回 值 类 型 ， 编 译 器 将 其 视 为 默认 整 型 ， 但 是 VS2010 不 支持 默认 整 型 ， 解 决 这 个 问题 
时 不 能 修改 每 个 没有 显 式 指示 返回 值 类 型 的 函数 ， 可 以 用 wd4430 来 解决 。 具 体操 作 方 法 
如 下 : 右 击 “BaseClasses”， 在 弹出 的 快捷 菜单 中 选择 “属性 ”命令 ， 在 弹出 对 话 框 中 依 
次 选择 “配置 属性 ”一 “C/C++” 一 “常规 ”一 “命令 行 ”， 在 “附加 选项 ”中 添加 
“/wd4430” 即 可 ， 如 图 8-19 所 示 。 


8-19 ”添加 /wd4430 


错误 5: error C2065: ‘Count’ : undeclared identifier. 

此 错误 发 生 在 for 循环 中 ，VC 6.0 中 for 循环 中 定义 的 变量 相当 于 在 for 外 面 定义 ， 可 
以 在 for 之 外 的 地 方 使 用 。 在 for 循环 中 定义 变量 相当 于 域 {} 变 量 ， 只 能 在 for 循环 中 使 
用 。 要 解决 这 个 问题 ， 可 以 通过 修改 Visual C++ 2010 的 工程 选项 ， 具 体操 作 方法 如 下 。 

右 击 “BaseClasses”， 在 弹出 的 快捷 菜单 中 选择 “属性 ”命令 ， 在 弹出 的 对 话 框 中 依 
次 选择 “配置 属性 ”一 “C/C++” 一 “语言 ”， 在 “强制 For 循环 的 一 致 性 ”后 的 下 拉 框 
中 将 “是 ”修改 为 “ 否 ”， 如 图 8-20 所 示 。 


8-20 ”强制 for 循 环 的 一 致 性 
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错误 6: wxutibcpp(277): error C2065: “COINIT DISABLE OLEIDDE': undeclared 
identifier. 

此 问题 见 问题 5 的 解决 方案 ， 是 使 用 VC++ 6.0 在 编译 BaseClasses 的 时 候 遇 到 的 错 
误 。 

错误 7: uuidlib(objidl i.obj): fatal error LNK1103: debugging information corrupt; 
recompile module. 

此 错误 是 因为 有 两 个 uuid.lib 发 生 冲 突 ， 解 决 方法 是 : 把 WindowsSDK 的 uuid.lib 移 
除 并 备份 ， 注 意 不 要 移 错 了 ，DirectXSDK 下 的 uuid.lib 不 要 移 除 ， 和 否则 编译 又 会 有 错 ， 移 
除 或 者 重 命 名 uuid.lib， 改 掉 其 后 级 名 ， 只 要 使 uuid.lib 文件 不 在 Windows SDK 下 即 可 。 

错误 8: stmifh(1018): error C2146: syntax error missing '; before identifier 
*HSEMAPHORE'. 

此 问题 比较 常见 ， 是 Include 配置 时 的 顺序 问题 ， 如 果 把 Windows SDK 的 顺序 配置 到 
了 前 边 ， 那 么 这 个 问题 就 会 存在 ， 如 果 严 格 按照 上 边 的 配置 顺序 ， 此 问题 就 有 可 能 没有 
了 ， 这 个 问题 会 导致 编译 通 不 过 ， 是 一 个 很 常见 的 问题 。 

错误 9: error LNK2001: unresolved external symbol CLSID FilterGraph. 

此 问题 是 因为 链接 下 边 缺 少 库 文件 strmiids.lib 和 quartz.lib， 追 溯 到 上 边 引入 头 文件 
streams.h 时 没有 添加 此 库 ， 就 可 能 出 现 此 问题 。 

错误 10: eror LNK2001: unresolved external symbol "class ATL::CAtIBaseModule 
ATL:: AtlBaseModule" (?_AtIBaseModule@ATL@@3VCAtIBaseModule@1@A). 

此 问题 是 因为 头 文件 芒 nclude <initguid.h> 缺 少 了 包 atls.lib, 4E atls.lib 包 引 入 就 应 该 可 
以 编译 通过 。 另 外 ， 会 在 编译 时 出 现 DWORD PTR 或 者 其 他 类 型 未 定义 之 类 的 错误 ， 这 
是 因为 微软 把 BASETSD.H 从 DirectX SDK 发 行 包 里 拿 掉 了 ， 这 个 文件 在 Platform SDK 
"P, fE VC 的 Include 路 径 中 把 Platform SDK 的 include 路 径 提 到 最 前 面 就 可 以 了 。 最 后 一 
个 支持 VC6 的 Platform SDK 是 February 2003 Edition。 

我 们 可 以 成 批 编译 生成 Debug. Debug Unicode, Release Unicode 版 本 的 静态 库 。 下 
面 以 Debug_Unicode 版 本 为 例 介 绍 编译 静态 库 的 过 程 。 

(1) 切换 工作 模式 为 “Debug_Unicode”， 如 图 8-21 所 示 。 


ta TAD gow dHx() ha 
JE HO p Release Unic + Win32 ~ 


图 8-21 Debug_Unicode 模 式 
(2) 在 菜单 栏 中 选择 “项 目 ” 一 “属性 ”命令 ， 继 续 选 择 “ 配 置 属性 ”一 “C/C++” 
一 “ 预 处 理 器 ”一 “ 预 处 理 器 定义 ”， 在 命令 行 添加 _ CRT_SECURE NO DEPRECATE, 
如 图 8-22 所 示 。 
2. 配置 Visual C++ 2010 


安装 并 配置 DirectShow SDK 后 ， 还 需要 在 Visual C++ 2010 中 设置 使 用 DirectShow 
SDK， 这 就 需要 在 Visual C++ 2010 环境 中 配置 DirectShow SDK 开发 环境 。 


但 开发 与 实战 


(1) 确认 Visual C++ 2010 中 已 经 包含 了 库 文件 和 头 文件 所 在 的 路 径 ， 在 默认 情况 下 ， 
在 安装 Visual C++ 2010 时 会 自动 添加 这 个 目录 。 如 果 没有 ， 则 需要 开发 人 员 自行 添加 。 

(2) 添加 Include 路 径 。 在 菜单 栏 中 选择 “工具 ”一 “选项 ”命令 ， 弹 出 “选项 ”对 
话 框 ， 如 图 8-23 所 示 。 


8-23 “选项 ”对 话 框 


(3) 依次 选择 选择 “项 目 和 解决 方案 ”一 “VC++ 目 录 ” 选 项 ， 然 后 在 “显示 以 下 内 
容 的 目录 ”下 拉 框 中 选择 “包含 文件 ”， 如 图 8-24 所 示 。 


824 ”添加 包含 文件 
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分 别 添加 如 下 3 种 包含 文件 内 容 : 

a Di\SDKDXSDK\Include 

a  DASDK\DXSDK\Samples\C++DirectShow\BaseClasses 

Q D:\SDK\DXSDK\Samples\C++\Common\Include 

(4) 更 改 添加 Lib 路 径 。 在 菜单 栏 中 选择 “工具 ”一 “选项 ”命令 ， 弹 出 “选项 ”对 
话 框 ， 如 图 8-25 所 示 。 


8-25 “选项 ”对 话 框 


(5) 依次 选择 “项 目 和 解决 方案 ”一 “VC++ 目 录 ” 选 项 ， 然 后 在 “显示 以 下 内 容 目 
录 ” 下 拉 框 中 选择 “ 库 文件 ”， 分 别 添加 如 下 3 种 包含 文件 内 容 : 

a Di\SDK\DXSDK\Lib 

Q Di:\SDK\DXSDK\Samples\C++\DirectShow\BaseClasses\Debug 

Q  DASDK\DXSDK\Samples\C++DirectShow\BaseClasses\Release 

有 具体 情形 如 图 8-26 所 示 。 


图 8-26 添加 库 文件 


经 过 上 述 操作 ， 整 个 配置 过 程 基本 完毕 ， 读 者 编译 运行 BaseClasses 项 目 后， 会 弹出 
对 应 的 执行 效果 。 

这 里 要 提醒 读者 ， 在 配置 时 一 定 要 注意 如 下 几 点 : Olnclude 和 Lib 的 路 径 前 后 顺序 一 
定 要 “非常 严格 地 按照 上 面 的 顺序 排列 ”， 和 否则 DXSDK\Include 和 VC98INCLUDE 有 头 
文件 名 会 是 重 名 的 ， 而 DXSDK\Lib 和 VC98\LIB 对 DWORD PTR 这 个 数据 类 型 的 声明 顺 
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序 也 会 出 现 编译 连接 上 的 歧义 ; @BASECLASSES\DEBUG 和 BASECLASSES\RELEASE 
目录 和 目录 里 面 是 没有 内 容 的 ， 如 果 你 在 应 用 程序 中 使 用 了 BASECLASSES 里 面 的 
class、function、filter、interface， 就 要 先 用 VC 编译 baseclasses.dsw， 编 译 时 请 分 别 选 定 
DEBUG 和 RELEASE， 因 为 baseclasses.dsw 有 4 个 版 本 ， 而 且 默 认 下 都 不 是 DEBUG 和 
RELEASE。 编 译 后 生成 两 个 重要 文件 : strmbasd.lib(Debug) 和 STRMBASE.lib(Release)， 它 
们 在 以 后 的 内 容 中 会 用 到 。 


8.2 Filter Graph 及 其 组 成 


在 本 节 的 内 容 中 ， 将 详细 讲述 Directshow 的 主要 组 成 部 分 ， 一 个 概括 性 的 入 门 文章 ， 
对 于 应 用 开发 或 者 DirectShow 的 开发 者 都 会 有 所 帮助 。 


8.2.1 _ DirectShow 中 的 Filter 


在 Directshow 中 提供 了 一 系列 的 标准 的 模块 ， 以 实现 应 用 开发 。 开 发 者 也 可 以 开发 自 
己 的 Filter 来 扩展 DirectShow 的 应 用 。 下 面 看 看 如 何 使 用 Filter 来 播放 一 个 AVI 视频 文 
件 ， 有 具体 实现 流程 如 下 。 

(1) 从 一 个 源 Filter 文件 读 取 数 据 ， 并 形成 字 节 流 。 

(2) 检查 AVI 数据 流 的 头 格式 ， 以 专用 的 AVI 分 割 Filter， 将 视频 流 和 音频 流 分 开 。 

Q) 解码 视频 流 ， 根 据 压缩 格式 的 不 同 ， 选 取 不 同 的 Decoder Filters. 

(4) 通过 Renderer Filter 重 画 视频 图 像 。 

(5) 使 用 DirectSound Device Filter 将 音频 流 送 到 声卡 并 进行 播放 。 

上 述 流程 如 图 8-27 所 示 。 


l avi Av o ”视频 输出 oa 
at Z 
E 默认 的 音频 装置 e fE 


硬盘 


图 8-27 实现 流 

在 图 8-27 P, FAKIR Filter 链表 中 的 数据 流 的 方向 。 从 图 8-1 中 所 示 的 流程 可 以 看 
出 ， 每 一 个 Filter 都 与 其 他 的 一 个 或 者 两 个 Filter 相连 接 ， 连 接点 也 是 COM 对 象 ， 称 为 
Pin. Filter 通过 Pin 将 数据 从 一 个 Filter 传递 到 另 一 个 Filter 中 ， 从 而 可 以 使 数据 在 Filter 
的 链表 中 流动 。 在 DirectShow 中 ， 一 个 Filter 链表 称 为 Filter Graph. 

Filter 有 和 运行、 停止 、 暂 停 3 个 状态 。 运 行 时 会 处 理 媒体 数据 流 ， 停 止 时 就 不 再 处 理 数 
据 ， 和 暂停 状态 用 来 优化 运行 状态 之 前 的 数据 。 除 非 有 特别 的 例外 ， 所 有 Filter Graph 中 的 
Filter 的 状态 的 改变 都 是 统一 的 ， 即 Filter Graph 中 的 所 有 的 Filter 的 状态 改变 是 一 致 协调 
的 ，Filter Graph 也 有 运行 、 人 停止、 暂停 3 种 状态 。 
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8.22 Media Type( 媒 体 类 型 ) 


因为 DirectShow 是 基于 COM 组 件 的 ， 所 以 需要 有 一 种 方式 来 描述 Filter Graph 每 一 
个 点 的 数据 格式 。 例 如 在 播放 AVI 文件 时 ， 数 据 以 RIFF 块 的 形式 进入 Graph 中 ， 然 后 被 
分 割 成 视频 流 和 音频 流 。 视 频 流 由 一 系列 压缩 的 视频 帧 组 成 ， 解 压 后 视频 流 由 一 系列 的 无 
压缩 的 位 图 组 成 。 同 样 音频 流 也 需要 经 过 上 述 处 理 步骤 。 

媒体 类 型 是 一 种 普遍 的 、 可 扩展 的 用 来 描述 数字 媒体 格式 的 方法 ， 当 两 个 Filter 连接 
时 ， 它 们 会 就 采用 某 一 种 媒体 类 型 达成 一 致 的 协议 。 媒 体 类 型 定义 了 处 于 源头 的 Filter 将 
要 给 下 游 的 Filter 发 送 什么 样 的 数据 ， 以 及 数据 的 物理 布局 。 如 果 两 个 Filter 不 能 够 支持 同 
一 种 媒体 类 型 ， 那 么 就 没 法 连接 起 来 。 

1. 定义 媒体 类 型 

对 于 大 多 数 的 应 用 来 说 ， 也 许 无 需 考虑 媒体 类 型 ， 但 是 在 有 些 应 用 程序 中 需要 直接 应 
用 到 媒体 类 型 。 通 过 AM MEDIA TYPE 结构 定义 来 媒体 类 型 ， 其 定义 格式 如 下 : 

typedef struct  MediaType ( 

GUID majortype; 

GUID subtype; 

BOOL bFixedSizeSamples; 

BOOL bTemporalCompression; 

ULONG 1SampleSize; 

GUID formattype; 

IUnknown *pUnk; 

ULONG cbFormat; 

{size is(cbFormat)] BYTE *pbFormat; 

} AM MEDIA TYPE; 

(1) majortype: 是 一 个 用 来 定义 数据 的 主 类 型 GUID， 包 括 音 频 、 视 频 、Unparsed 字 
节 流 、MIDI 数据 等 。 

(2) subtype: 是 一 个 子 类 型 GUID， 用 来 进一步 地 细 化 数据 格式 。 例 如 在 视频 主 类 型 
中 还 包括 RGB-24、RGB-32、UYVY 等 子 类 型 ， 在 音频 主 类 型 中 还 包括 PCM audio. 
MPEG-1 Payload 等 类 型 。 子 类 型 提供 了 比 主 类 型 更 详细 的 信息 ， 但 是 并 没有 定义 所 有 的 格 
式 。 例 如 ， 视 频 的 子 类 型 并 没有 定义 图 像 大 小 、 帧 率 。 这 些 由 下 面 的 字段 定义 : 

口 “bFixedSizeSamples 值 为 True 时， 表示 Sample 大 小 固定 。 

Q bTemporalCompression 值 为 True 时 ， 表 示 Sample 采用 了 临时 压缩 格式 ， 表 明 不 

是 所 有 的 帧 都 是 关键 帧 ， 如 果 为 False， 表 明 所 有 的 都 是 关键 帧 。 

(3) ISampleSize: 表示 Sample 的 大 小 ， 对 于 压缩 的 数据 ， 这 个 值 可 能 为 零 。 

(4) formattype: 一 个 GUID 值 ， 用 来 表明 内 存 块 的 格式 ， 包 括 FORMAT None. 
FORMAT DvInfo. FORMAT MPEGVideo, FORMAT MPEG2Video, FORMAT VideoInfo、 
FORMAT VideoInfo2, FORMAT WaveFormatEx, GUID NULL. 

(5) pUnk: 不 常用 。 

(6) cbFormat: 内 存 块 的 大 小 。 

(7) pbFormat: 指向 内 存 块 的 指针 。 


NO 而 


g 


例如 在 下 面 的 代码 中 ， 通 过 函数 CheckMediaType0 演 示 了 用 Filter 来 检测 媒体 类 型 的 
过 程 : 

HRESULT CheckMediaType (AM MEDIA TYPE *pmt) 

{ 


if (pmt == NULL) return E POINTER; 
// 检查 主 类 型 ， 设 置 需要 视频 
if (pmt-»majortype != MEDIATYPE Video) 
t 
return VFW E INVALIDMEDIATYPE; 


) 
// 检查 主 类 型 ， 设 置 需要 24-bit RGB 
if (pmt-»subtype != MEDIASUBTYPE RGB24) 
( 
return VFW E INVALIDMEDIATYPE; 


} 
// 检查 format type 和 格式 块 的 大 小 
if ((pmt->formattype == FORMAT VideoInfo) 
&& (pmt-»cbFormat >= sizeof (VIDEOINFOHEADER) 
&& (pmt-»pbFormat != NULL) ) 
{ 
// 开始 安全 地 将 格式 块 指针 指向 正确 的 结构 体 
VIDEOINFOHEADER *pVIH = (VIDEOINFOHEADER*)pmt-»pbFormat; 
// 检查 pvIH， 正 确 则 返回 OK 
return S OK; 
} 
return VEW E INVALIDMEDIATYPE; 
} 


AM MEDIA TYPE 结构 包含 一 个 指向 数据 块 的 指针 ， 因 此 ， 使 用 这 个 结构 的 时 候 ， 

一 定 要 小 心 内 存 分 配 ， 以 防 内 存 泄漏 。 

2. 分 配 函 数 

TE DirectShow 应 用 中 ， 有 3 个 与 Media Type 相关 的 分 配 函 数 。 

(1) CreateMediaType0 函 数 ， 定 义 格 式 如 下 : 

AM MEDIA TYPE* WINAPI CreateMediaType(AM MEDIA TYPE const *pSrc); 

此 函数 可 以 分 配 一 个 新 的 AM. MEDIA TYPE 结构 ， 包 含 特定 格式 的 数据 块 。 要 释放 
这 个 函数 分 配 的 内 存 ， 可 以 调用 DeleteMediaTypeO PA Xt o 

(2) CreateAudioMediaType0 函 数 ， 定 义 格 式 如 下 : 


STDAPI CreateAudioMediaType( 
const WAVEFORMATEX *pwfx, 
AM MEDIA TYPE *pmt, 
BOOL bSetFormat 


de 

此 函数 利用 一 个 给 定 的 WAVEFORMATIEX 结构 来 初始 化 媒体 类 型 ， 如 果 bsetFormat 
参数 为 True， 该 函数 就 分 配 一 块 新 的 内 存 。 如 果 原 来 的 Pmt 已 经 包含 内 存 ， 就 有 可 能 发 生 
内 存 泄漏 。 为 了 避免 内 存 泄漏 ， 在 调用 此 函数 前 要 调用 FreeMediaType0。 在 此 函数 返回 之 
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后 ， 再 次 调用 FreeMediaType() 函 数 释 放 Format Block. 
(3) CopyMediaType0 函 数 。 定 义 格式 如 下 : 


HRESULT WINAPI CopyMediaType ( 


AM MEDIA TYPE *pmtTarget, 
const AM MEDIA TYPE *pmtSource 


) 7 


如 果 


此 函数 可 以 复制 一 个 结构 到 另 一 个 结构 中 去 。 此 函数 也 要 重新 分 配 内 存 给 目的 结构 ， 


pmtTarget 已 经 包含 了 一 个 内 存 块 ， 就 会 出 现 内 存 汇 漏 ， 因 此 ， 在 调用 该 函数 前 后 都 


要 调 上 


FreeMediaType( FÁ Zt . 


3. 释放 函数 
有 两 个 与 Media Type 相关 的 分 配 函 数 。 


( 


1) DeleteMediaType()rA Zt, iE XX Wl F: 


void WINAPI DeleteMediaType(AM MEDIA TYPE *pmt); 


无 论 是 采用 CoTaskMemAlloc0 函 数 还 是 CreateMediaType0 函 数 分 配 的 内 存 ， 都 可 以 
用 这 个 函数 来 释放 。 如 果 没 有 连接 基 类 的 动态 库 ， 可 以 用 下 面 的 代码 实现 : 


void MyDeleteMediaType (AM MEDIA TYPE *pmt) 


t 


) 


if (pmt != NULL) 

i 
MyFreeMediaType (*pmt); // 见 下 面 的 FreeMediaType 函数 
CoTaskMemFree (pmt) ; 


(2) FreeMediaType0 函 数 ， 定 义 格 式 如 下 : 

void WINAPI FreeMediaType(AM MEDIA TYPE &mt); 

此 函数 用 来 释放 数据 块 的 内 存 ， 可 以 用 DeleteMediaType0 函 数 来 删除 AM MEDIA - 
TYPE 结构 。 例 如 下 面 的 实现 代码 : 


void MyFreeMediaType(AM MEDIA TYPE& mt) 
t 


if (mt.cbFormat != 0) 

t 
CoTaskMemFree ( (PVOID) mt .pbFormat) ; 
mt.cbFormat = 0; 
mt.pbFormat = NULL; 


if (mt.pUnk != NULL) 
// 因 为 pUnk 不 被 使 用 ， 所 以 是 多 余 的 ， 但 也 是 最 安全 的 


mt.pUnk->Release(); 
mt.pUnk = NULL; 
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8.2.3 


Visual C++ GEZIEZEZEZ 


媒体 样本 Samples 和 分 配器 Allocators 


Filters 通过 Pin 的 连接 来 传递 数据 ， 数 据 流 从 一 个 Filter 的 输出 Pin 流向 相连 的 Filter 
的 输入 Pin。 输 出 Pin 常用 的 传递 数据 的 方式 是 调用 输入 Pin 上 的 IMemInputPin::Receive() 


方法 。 


对 于 Filter 来 说 ， 可 以 用 如 下 方式 来 分 配 媒体 数据 使 用 的 内 存 块 : 


口 


口 
口 
口 


在 堆 上 分 配 。 

在 DirectDraw 的 表面 分 配 。 

采用 GDI 共享 内 存 。 

通过 Directshow 中 的 内 存 分 配器 (Allocator) 来 分 配 内 存 ， 这 是 一 个 COM 对 象 ， 暴 
露 了 IMemAllocator 接口 。 


当 两 个 Pin 连接 的 时 候 ， 必 须 有 一 个 Pin 提供 一 个 Allocator， 在 DirectShow 中 定义 了 
一 系列 函数 调用 ， 用 来 确定 由 哪个 Pin 提供 Allocator， 以 及 Buffer 的 数量 和 大 小 。 

在 数据 流 开始 之 前 ，Allocator 会 创建 一 个 内 存 池 (Pool of Buffer)。 在 开始 发 送 数据 流 
以 后 ， 源 Filter 就 会 将 数据 填充 到 内 存 池 中 一 个 空闲 的 Buffer 中 ， 然 后 传递 给 下 面 的 
Filter。 但 是 源 Filter 并 不 直接 将 内 存 Buffer 的 指针 传递 给 下 游 的 Filter， 而 是 通过 一 个 
Media Samples 的 COM 对 象 ， 此 Sample 是 Allocator 创建 的 ， 用 来 管理 内 存 Buffer。Media 
Sample 暴露 了 IMediaSample 接口 ， 一 个 Sample 包含 下 面 的 内 容 : 


D 


ooo 


一 个 指向 没有 发 送 的 内 存 的 指针 。 
AER. 
一 些 标志 。 


媒体 类 型 。 


当 一 个 Filter 正在 使 用 Buffer 时 ， 就 会 保持 一 个 Sample 的 引用 计数 ，Allocator 通过 
Sample 的 引用 计数 来 确定 是 否 可 以 重新 使 用 一 个 Buffer。 这 样 就 防止 了 Buffer 的 使 用 冲 
突 ， 当 所 有 的 Filter 都 释放 了 对 Sample 的 引用 时 ，Sample 才 返 回 到 Allocator 的 内 存 池 ， 
供 我 们 重新 使 用 。 


8.3 VFW 视 频 处 理 


VFW(Video for Windows) Microsoft 推出 的 一 个 数字 视频 开发 包 ， 其 核心 是 AVI 文件 
标准 。 围 绕 AVI 文件 ，VFW 推出 了 一 套 完整 的 包括 视频 采集 、 压 缩 、 解 压缩 、 回 放 和 编 


辑 的 应 上 


程序 接口 (APD 方 案 。 在 讲解 DirectShow 系统 框架 时 ， 曾 经 提 及 DirectShow 开发 


的 三 大 应 用 一 一 WDM 采集 设备 、VFW 采集 设备 、MPEG2 硬件 解码 器 。 在 本 节 的 内 容 


中 ， 将 简要 介绍 使 用 VFW 技术 处 理 AVI 视频 的 基本 知识 ， 以 加 深 读者 对 DirectShow 技术 


的 了 解 。 
8.3.1 


使 有 


VFW 开 发 流程 
VEW 进行 开发 的 基本 流程 如 下 。 
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(1) 创建 “捕获 窗 ” 

在 进行 视频 捕获 之 前 ， 必 须 先 创建 一 个 “捕获 窗 ”， 并 以 它 为 基础 进行 所 有 的 捕获 及 
设置 操作 。“ 捕 获 窗 ”用 AVICap 窗口 类 的 CapCreateCaptureWindow() 函 数 创建 ， 其 窗口 
风格 默认 为 WS_CHILD fil WS VISIBLE. 

Q) 关联 捕获 窗 和 驱动 程序 

单独 定义 的 捕获 窗 是 不 能 工作 的 ， 还 需要 与 一 个 设备 相关 联 ， 这 样 才能 取得 视频 信 
号 。 使 用 函数 CapDriverConnect() 可 以 使 一 个 捕获 窗 与 一 个 设备 驱动 程序 相关 联 。 

(3) 设置 视频 设备 的 属性 

设置 TCaptureParms 结构 变量 的 各 个 成 员 变 量 后 ， 可 控制 设备 的 采样 频率 、 中 断 采样 
按键 、 状 态 行为 等 。 设 置 好 TCaptureParms 结构 变量 后 ， 可 以 用 函数 CapCaptureSetSetup() 
使 设置 生效 ， 还 可 以 用 CapPreviewScale()、CapPreviewRate() 来 设置 预览 的 比例 与 速度 ， 当 
然 也 可 以 直接 使 用 设备 的 默认 值 。 

(4) 打开 预览 

使 用 函数 CapOverlay() 选 择 是 否 采 用 又 加 模式 预览 ， 这 样 做 的 好 处 是 占用 系统 资源 
小 ， 并 且 视 频 显示 速度 快 。 然 后 用 CapPreview0 启 动 预览 功能 ， 这 时 就 可 以 在 屏幕 上 看 到 
摄像 机 的 图 像 。 

通过 以 上 4 个 步 又， 就 可 以 建立 一 个 基本 的 视频 捕获 程序 。 但 如 果 想 自己 处 理 从 设备 
捕获 到 的 视频 数据 ， 则 需要 使 用 捕获 窗 回 调 函 数 来 处 理 ， 比 如 一 帧 一 帧 地 获得 视频 数据 ， 
或 者 以 流 的 方式 获得 视频 数据 等 。 


832 ”VFW 视 频 捕获 流程 


视频 数据 的 实时 采集 ， 主 要 通过 AVICAP 模块 中 的 消息 、 宏 函数 、 结 构 以 及 回调 函数 
来 完成 。 捕 获 VFW 视频 的 基本 流程 如 下 。 

(1) 建立 捕获 窗口 

通过 AVICAP 组 件 函 数 capCreateCaptureWindow0 可 以 建立 视频 捕获 窗口 ， 它 是 所 有 
捕获 工作 及 设置 的 基础 。 

(2) 登记 回调 函数 

登记 回调 函数 用 来 实现 用 户 的 一 些 特殊 需要 。 例 如 在 实时 监控 系统 或 视频 会 议 系 统 
中 ， 需 要 将 数据 流 在 写 入 磁盘 以 前 就 进行 处 理 ， 以 达到 实时 功效 。 应 用 程序 可 以 用 捕获 窗 
来 登记 回调 函数 ， 以 便 及 时 处 理 捕获 窗 状态 改变 、 出 错 、 使 用 视频 或 音频 缓存 、 放 弃 控制 
权 等 情况 。 

(3) 获取 捕获 窗口 的 默认 设置 

通过 宏 capCaptureGetSetup(hWndCap,&m_Parms，sizeof(m_Parms)) 来 获取 捕获 窗口 的 
默认 设置 。 

(4) 设置 捕获 窗口 的 相关 参数 

通过 宏 capCaptureSetSetup(hWndCap，&m Parms, sizeof(m _ Parms)) 来 设置 捕获 窗口 的 
相关 参数 。 

(5) 连接 捕获 窗口 与 视频 捕获 卡 

通过 宏 capDriveConnect (hWndCap, 0) 来 连接 捕获 窗口 与 视频 捕获 卡 。 


$ 


(6) 获取 采集 设备 的 功能 和 状态 
通过 宏 capDriverGetCaps(hWndCap, &m CapDrvCap，sizeof(CAPDRIVERCAPS)) 来 获 
取 视 频 设备 的 功能 ， 通 过 宏 capGetStatus(hWndCap, &m CapStatus，sizeoftm_CapStatus)) 来 
获取 视频 设备 的 状态 。 
(7) 设置 捕获 窗口 显示 模式 
视频 显示 有 Overlay( 合 加 ) 和 Preview( 预 览 ) 两 种 模式 。 
o AMER: 捕获 视频 数据 布展 系统 资源 。 显 示 速 度 快 ， 视 频 采 集 格式 为 YUV 格 
式 ， 可 通过 capOverlay(hWndCap, TRUE) 来 设置 。 
口 “预览 模式 : 要 占用 系统 资源 ， 视 频 由 系统 调用 GDI 函数 在 捕获 窗 显示 ， 显 示 速 度 
慢 ， 支 持 RGB 视频 格式 。 
(8) 捕获 图 像 到 缓存 或 文件 并 做 相应 的 处 理 
需 用 回调 机 制 实 时 处 理 采 集 的 数据 ， 通 过 capSetCallbackOnFrame(hWndCap, FrameCall- 
backProc) 采 集 单 帧 视频 ;用 capSetCallbackOnVideoStream(hWndCap, VideoCallbackProc) 采 集 
视频 流 。 通 过 调用 capCaptureSequence(hWnd) 来 保存 采集 的 数据 ， 通 过 调用 capFileSetCap- 
ture(hwnd, Filename) 来 指定 文件 名 。 
(9) 终止 视频 捕获 ， 断 开 与 视频 采集 设备 的 连接 
通过 调用 capCatureStop(hWndCap) 停 止 采集 ， 调 用 capDriverDisconnect(hWndCap) 来 断 
开 视 频 窗口 与 捕获 驱动 程序 的 连接 。 


8.8.8 ”视频 编辑 和 播放 

利用 VFW， 不 仅 可 以 实时 采集 视频 流 ， 而 且 还 提供 了 编辑 和 播放 功能 ， 此 功能 主要 
通过 AVIFILE、ICM、ACM、MCIWnd 等 组 件 之 间 的 协作 来 完成 。 

1. 编辑 处 理 AVI 视 频 文件 

编辑 处 理 AVI 视频 文件 的 基本 流程 如 图 8-28 所 示 。 


连 
接 
视 
频 


8-28 ”处 理 AVI 视 频 文件 的 流程 


流程 中 对 应 实现 函数 的 说 明 如 下 。 

(1) AVIFilemit0: 初始 化 。 

(2) AVIFileOpenQ: 打开 一 个 AVI 文件 并 获取 文件 的 句柄 。 

(3) AVIFileInfoQ: 获取 文件 的 相关 信息 ， 如 图 像 的 Width 和 Height 等 。 

(4) AVIFileGetStream(): 建立 一 个 指向 需要 访问 的 数据 流 的 指针 。 

(5) AVIStreamImfo0: 获取 存储 数据 流 信 息 的 AVISTREAMINFO 结构 。 

(6) AVIStreamRead0: 读 取 数 据 流 中 的 原始 数据 , 对 ANT 文件 进行 所 需 的 编辑 处 理 。 


(7) 
(8) 
(9) 
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AVIStreamRelease(): 释放 指向 视频 流 的 指针 。 
AVIFileRelease(), AVIFileExit(): 释放 AVI 文件 。 
AVIStreamGetFrameOpen()/AVIStreamGetFrame()/AVIStreamGetFrameClose(): 操作 


压缩 过 的 数据 ， 并 可 以 逐 帧 分 解 完成 的 视频 流 。 

2. 播放 视频 

VFW 提供 了 MCIWnd 窗口 类 来 播放 视频 流 ， 它 可 以 创建 视频 播放 区 ， 控 制 并 修改 
MCI 窗口 当前 加 载 媒体 的 属性 。 一 个 由 函数 、 消 息 和 安 组 成 的 库 与 MCIWnd 相关 联 ， 通 
过 它们 可 以 操作 AVI 文件 ， 很 方便 地 使 应 用 程序 播放 视频 。 与 播放 视频 功能 相关 的 函数 的 
具体 说 明 如 下 。 


(1) 
Q) 
(3) 
(4) 
(5) 


(6) 
(7) 


8.3.4 


MCIWndCreate(): 注册 MCIWnd 窗口 类 ， 创建 MCIWnd 窗口 ， 指 定 窗口 风格 。 
AVIFileInit(): 初始 化 。 

AVIFileOpen(): 打开 AVI 文件 。 

AVIFileGetStream(): 获得 视频 流 。 

播放 控制 函数 。 

MCIWndPlay(): 用 于 正 向 播放 AVI 文件 内 容 。 

MCIWndPlayReverse(): 用 于 反 向 播放 。 

MCIWndResume(): 用 于 恢复 播放 。 

MCIWndPlayPause(): 用 于 暂停 播放 。 

MCIWndStop(): 用 于 停止 播放 。 

AVIStreamRelease(): 释放 视频 流 。 

AVIFileRlease()/AVIFileExit(): 断 开 与 AVI 文件 的 连接 ， 释 放 视 频 源 。 


VFW 的 视频 预览 


以 VEW 实现 视频 预览 的 基本 步骤 如 下 。 


a) 


准备 。 在 开始 之 前 ， 需 要 先 引 用 vfw.h 头 文件 ， 然 后 导入 vfw32.lib 库 文件 。 具 体 


代码 如 下 : 
#include "vfw.h" 
#pragma comment (lib, "vfw32") 


也 可 以 在 工程 选项 窗口 的 连接 选项 卡 中 设置 导入 vfw32.lib 库 文件 。 


Q) 


创建 视频 窗口 。 


在 此 需要 创建 一 个 视频 预览 窗口 ， 在 程序 中 可 以 使 用 capCreateCaptureWindow() Phi Zi 
创建 视频 预览 窗口 ， 该 函数 的 语法 格式 如 下 : 


HWND VEWAPI capCreateCaptureWindow ( 


LPCSTR lpszWindowName, 
DWORD dwStyle, 

30E $; 

int y, 

int nWidth, 

int nHeight, 
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HWND hWnd, 
int nID 


IpszWindowName: 视频 捕捉 窗口 的 名 称 。 
dwStyle: 视频 捕获 窗口 的 风格 ， 一 般 是 WS_CHILD 和 WS VISIBLE 风格 。 
x. y: 视频 捕捉 窗口 的 左上 角 坐 标 。 
nWidth, nHeight: 视频 捕捉 窗口 的 宽度 和 高 度 。 
hWnd: 视频 捕捉 窗口 父 窗口 的 句柄 。 
O nD: 视频 捕捉 窗口 标识 。 
(3) 连接 视频 设备 。 使 一 个 捕获 窗 与 一 个 设备 驱动 程序 相关 联 。 单 独 定 义 的 一 个 捕获 
窗 是 不 能 工作 的 ， 它 必须 与 一 个 设备 相关 联 ， 这 样 才能 取得 视频 信号 。 具 体 代码 如 下 : 
BOOL capDriverConnect ( 


hwnd, 
iIndex 


OOOOO 


) 7 


/* 

Parameters 

hwnd 

Handle to a capture window. 

iIndex 

Index of the capture driver. The index can range from 0 through 9. 

Return Values 

Returns TRUE if successful or FALSE if the specified capture driver cannot 
be connected to the capture window. 

Remarks 

Connecting a capture driver to a capture window automatically disconnects 
any previously connected capture driver.*/ 


4) 设置 摄像 头 参数 ， 具 体 代码 如 下 : 


capDlgVideoSource (HWND hwnd) ; 
/ /hwnd 
//Handle to a capture window. 


(5) 设置 视频 格式 ， 具 体 代码 如 下 : 
capDlgVideoFormat (HWND hwnd); 

(6) 设置 监视 频率 ， 具 体 代码 如 下 : 
capPreviewRate (HWND hwnd, int itimes); 
(7) 监视 处 理 ， 具 体 代 码 如 下 : 


capPreview(hwnd, TRUE); ”// 开 始 监视 

capCaptureStop (hwnd); 

capPreview(hwnd, FALSE); 

CWnd *pWnd = CWnd::FromHandle (hwnd) ; 
pWnd-»SendMessage(WM CAP DRIVER DISCONNECT, 0, OL); 
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8.4 小 试 牛 刀 一 一 开发 一 个 视频 播放 器 


实例 功能 使 用 Visual C++ 2010 开发 一 个 基于 DirectShow 的 视频 播放 器 
源码 路 径 光盘 \yuanma\8\Player 


8.4.1 系统 分 析 和 设计 


媒体 播放 器 的 基本 功能 是 对 硬盘 或 存储 设备 上 的 媒体 文件 进行 播放 处 理 ， 在 回放 或 显 
示 过 程 中 ， 用 户 可 以 控制 回放 的 动作 特性 和 显示 特性 。 在 本 节 的 内 容 中 ， 将 对 系统 进行 总 
体 分 析 和 设计 处 理 。 

1. 功能 需求 和 效果 展示 


作为 一 个 多 媒体 播放 器 ， 必 须 具备 下 面 的 功能 。 

(1) 不 但 能 够 播放 媒体 文件 ， 而 且 还 能 实现 播放 速度 控制 、 全 屏 控制 、 音 量 控制 、 顶 
部 显示 、 拖 忠 处 理 和 抓 图 存盘 等 功能 。 

(2) 能 够 播放 各 种 主流 媒体 文件 ， 如 AVI, ASF, MPG, WMA 等 。 使 用 DirectShow 
SDK 进行 开发 时 ， 不 需要 关心 媒体 文件 的 格式 ， 只 须 安装 解码 插件 集合 即 可 ， 例 如 
ffmpeg. ffdshow, xvid, divx 等 插件 。 这 样 DirectShow SDK 会 自动 剖析 、 演 染 媒体 文 
件 ， 定 位 媒体 文件 到 对 应 的 解码 库 解 码 回放 流 媒体 文件 。 

(3) 还 需要 具备 1/2. 1, 2 倍速 度 播放 ， 抓 图 并 保存 ， 全 屏 显 示 ， 静 音 控制 ， 置 顶 控 
制 ， 播 放 位 置 定位 等 功能 。 

本 实例 执行 后 的 效果 如 图 8-29 所 示 。 以 鼠标 在 屏幕 中 右 击 ， 弹 出 一 系列 的 控制 命令 ， 
如 图 8-30 所 示 。 


Üpen File 0) 
Close File (c) 
Play/Pause File (P) 
Stop 6) 
Half Rate 00 
Normal Rate an 
Double Rate 0) 
Grab Image G) 
Full Screen 0 


Mute/Unmute qu 


Always Ün Top (T) 


Save Graph v) 
Exit Œ) 
8-29 初始 效果 8-30 ”控制 命令 


图 8-30 中 各 个 控制 命令 的 具体 说 明 如 下 。 
a OpenFile: 打开 要 播放 的 媒体 文件 。 
口 Close File: 关闭 播放 的 文件 。 


- 网 络 编程 开发 与 实 成 


Play/Pause File: 播放 /暂停 。 
Stop: 停止 播放 。 

Half Rate: 1/2 速度 播放 。 
Normal Rate: 正常 速度 播放 。 
Double Rate: 2 倍速 度 播放 。 
Grab Image: 抓 图 并 保存 。 
Full Screen: 全 屏 播 放 。 
Mute/Unmute: 静音 。 

Always On Top: 置顶 。 

Save Graph: 保存 当前 播放 的 Graph 滤波 器 链表 。 
Exit: 退出 。 

2. 设计 界面 


不 同 媒体 播放 器 的 界面 基本 都 是 一 样 的 ， 都 是 以 对 话 框 的 形式 来 设计 主 界面 ， 并 且 在 
窗 内 支持 鼠标 右键 。 本 实例 的 界面 效果 分 别 如 图 8-29 和 8-30 所 示 。 在 进行 具体 界面 设计 
时 ， 在 Visual C++ 2010 的 “资源 视图 ”和 “属性 ”中 ， 分 别 添加 控件 和 设置 属性 。 激 活 一 
个 “属性 ”页 的 方法 比较 简单 ， 只 需 右 击 对 应 的 控件 ， 在 弹出 的 快捷 命令 中 选择 “属性 ” 
命令 即 可 。 

(1) 创建 对 话 框 应 用 程序 

®© 打开 Visual C++ 2010， 在 菜单 栏 中 选择 “文件 ”一 “新 建 ” 一 “项 目 ” 命 令 ， 打 
开 “ 新 建 项 目 ” 对 话 框 ， 如 图 8-31 Aras. 


口 
口 
口 
口 
口 
口 
口 
口 
口 
口 
口 


WET Tromark t 到 MFM: [RUG 


k EL vic ce B 
FAFA RA microsoft SMART 
ra BARF NEN eres 
= me Wem 
= C om € 
* 其 他 证 言 m Visual CH 
= XRXBAE ig] an Tes 
m m2 x —€—1 
= Mean mg "UU ads 
E tte saa m 
LET visi cH 
IE Views Ce 
I-- E simi ce 
| 
EI [986 
eso: Era J aa 
RSE): [aires a 
ARESEEN QU [GA Eo Te aa OR ERO 


图 8-31 “新 建 项 目 ” 对 话 框 
© 在 图 8-31 的 左 侧 选择 “MFC” 子 项 ， 在 右 侧 模板 中 选择 “MFC 应 用 程序 ” 子 


项 ， 然 后 命名 项 目 名 为 “MediaPlayer”， 选 择 保存 路 径 。 单 击 “ 确 定 ” 按 钮 后 弹出 “MFC 
日 程序 向 导 ” 对 话 框 ， 如 图 8-32 所 示 。 
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图 8-32 


“MFC 应 用 程序 向 导 ” 对 话 框 
© 单 击 “ 下 一 步 ”按钮 后 ， 进 入 “应 用 程序 类 型 ”界面 ， 在 此 设置 应 用 程序 类 型 为 
“基于 对 话 框 ”， 其 他 选项 使 用 默认 值 即 可 ， 如 图 8-33 所 示 。 


图 8-33 


“应 用 程序 类 型 ”界面 

© 单 击 “ 下 一 步 ”按钮 后 ， 进 入 “用 户 界面 功能 ”界面 ， 在 此 设置 对 话 框 标题 是 
“MediaPlayer”， 如 图 8-34 所 示 。 

© 单 击 “ 下 一 步 ”按钮 后 ， 进 入 “高 级 功能 ”界面 ， 在 此 使 用 默认 设置 ， 如 图 8-35 
Bras 


单 击 “ 下 一 步 ” 按 钮 后 ， 进 入 “生成 的 类 ”界面 ， 在 此 设置 向 导 生成 的 类 ， 此 处 
使 用 默认 设置 即 可 ， 如 图 8-36 所 示 。 


—— 


= 


图 8-34 “用 户 界面 功能 ”界面 


8-35 “高 级 功能 ”界面 


peer o eem 
CT OOO 


8-36 “生成 的 类 ”界面 
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C 单 击 “ 完 成 ”按钮 后 ， 返 回 Visual C++ 2010 主 界面 ， 这 就 完成 了 整个 项 目的 界面 
设计 工作 ， 此 时 可 以 查看 项 目的 对 话 框 设 计 界面 ， 如 图 8-37 所 示 。 


8-37 ”对 话 框 设计 界面 


(2) 修改 对 话 框 
在 此 需要 在 如 图 8-37 所 示 的 对 话 框 界面 中 添加 需要 的 各 个 控件 ， 首 先 添 加 如 下 6 个 
Button 控件 。 


口 “ 打 开 按 钮 控件 ;ID 为 DC_BUTTON_OPEN。 
播放 按钮 控件 : ID 为 IDC_BUTTON PLAY. 
暂停 按钮 控件 ， ID Jy IDC BUTTON PAUSE. 
停止 按钮 控件 : ID 为 IDC BUTTON STOP. 
抓 图 按钮 控件 ， ID 为 IDC BUTTON GRASP. 
口 “ 退 出 按钮 控件 ,ID 为 IDC_BUTTON_EXIT。 
然后 添加 一 个 图 像 控件 Picture Control, ID 为 IDC VIDEO_WINDOW， 图 片 位 置 是 
"res 123.bmp" 。 
最 后 添加 如 下 两 个 滑动 条 控件 (Slider Control). 
o HERH: ID IDC SLIDER PLAY. 
口 ”音量 控制 进度 条 控件 ， ID 为 IDC_SLIDER_ VOLUME. 
添加 如 下 两 个 Static Text 控件 : 
OQ ”进度 条 文本 控件 : ID 为 IDC_STATIC。 
a ”音量 控制 文本 控件 : ID X IDC STATIC. 
添加 上 述 控件 后 ， 调 整 它们 的 位 置 ， 调 整 后 的 效果 如 图 8-38 所 示 。 
(3) 添加 菜单 资源 
菜单 作为 应 用 程序 中 十 分 重要 的 操作 途径 ， 在 项 目 中 占有 重要 的 地 位 。 在 本 项 目 中 ， 
需要 添加 一 个 菜单 ， 当 鼠标 右 击 后 显示 出 控制 视频 的 命令 。 
具体 实现 流程 如 下 。 
QD 继续 上 面 的 操作 ， 在 Visual C++ 2010 的 菜单 栏 中 选择 “视图 ”一 “资源 视图 ” 命 
令 ， 然 后 在 “资源 视图 ”属性 页 内 右 击 ， 此 时 会 弹出 如 图 8-39 所 示 的 命令 。 


oooo 


8-38 ”插入 控件 后 的 窗 体 


abe String Table 
a Toolbar 
回 Version 


图 8-39 弹出 的 命令 图 8-40 “添加 资源 ”对 话 框 
图 8-40 中 的 资源 类 型 包括 位 图 Bitmap、 光 标 Cursor、 对 话 框 Dialog、 网 标 Icon, 3& 


X Menu, “744 


BX String Table. Af Toolbar 和 版 本 信息 Version。 上 述 资源 既 可 以 新 


建 ， 也 可 以 从 已 有 资源 中 导入 或 自 定义 。 


© 单 击 图 
示 的 界面 。 


8-40 中 的 Menu 子 项 ， 然 后 单 击 “ 新 建 ” 按 钮 ， 此 时 将 显示 如 图 8-41 所 


@ 在 图 8-41 的 界面 中 可 以 添加 对 应 的 菜单 以 及 对 应 的 子 项 ， 具 体 添 加 什么 子 项 可 以 
参考 图 8-42， 即 菜单 设计 完毕 后 的 效果 。 

对 图 8-42 中 各 个 菜单 子 项 的 具体 说 明 如 下 。 

口 ID MENU OPENFILE: 打开 媒体 文件 。 


DEUDE 


ID MENU CLOSEFILE: 关闭 媒体 文件 。 
ID MENU PLAY: 播放 、 和 暂停 媒体 文件 。 
ID MENU STOP: 停止 播放 。 

ID MENU HALFRATE: 1/2 速率 播放 。 


第 8 章 在 线 视频 播放 器 


ediaPlayer- .V2 — Benu)* 


8-41 编辑 菜单 


DODCDDDDGCU 


8-42 ”完成 后 的 菜单 


ID MENU NORMALRATE: 正常 速率 播放 。 

ID MENU DOUBLERATE: 2 倍速 率 播放 。 

ID MENU GRABIMAGE: 抓 图 并 保存 。 

ID MENU FULLSCREEN: 全 屏 播放 。 

ID MENU MUTE: 静音 控制 。 

ID MENU ALWAYSONTOP: 置顶 。 

ID MENU SAVEGRAPH: 保存 滤波 器 链表 为 文件 。 
ID MENU EXIT: 退出。 
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8.4.2 ”实现 媒体 控制 类 


DirectShow SDK 是 一 个 库 函 数 ， 在 使 用 时 需要 遵循 先 创 建 、 再 使 用 、 后 销毁 的 原则 。 
媒体 的 播放 和 图 像 显示 等 功能 都 是 由 SDK 来 完成 的 。 为 了 系统 开发 方便 ， 通 常 把 与 SDK 
有 关 的 开发 函数 封装 在 CDXGraph 中 去 。 这 样 应 用 程序 可 以 使 用 其 中 的 成 员 函 数 和 变量 来 
完成 媒体 的 播放 和 显示 。 在 该 类 中 包含 了 回放 媒体 时 所 需要 的 几乎 所 有 的 动作 和 控制 方 
法 。 当 然 感 兴趣 的 读者 可 以 以 本 实例 为 基础 ， 使 用 此 类 来 实现 功能 更 加 强大 、 回 放 控制 更 
加 灵活 的 媒体 播放 器 。 

1. CDXGraph 类 初始 化 


在 类 CDXGraph 中 封装 了 与 DirectShow 有 关 的 接口 和 方法 ， 此 类 在 CDXGraph.cpp 文 
件 中 实现 ， 其 头 文件 是 CDXGraph h。 在 文件 CDXGraph.h 中 定义 了 类 CDXGraph， 具 体 代 
码 如 下 : 

class CDXGraph 

m 

IGraphBuilder *pGraph; // 滤 波 器 链表 管理 器 


IMediaControl *pMediaControl; // 媒 体 控制 接口 ， 如 run. stop. pause 
IMediaEventEx *pMediaEvent; // 媒 体 事件 接口 


IBasicVideo *pBasicVideo; // 视 频 基本 接口 
IBasicAudio *pBasicAudio; // 音 频 基本 接口 
IVideoWindow *pVideoWindow; ”// 视 频 窗口 接口 


IMediaSeeking *pMediaSeeking; // 媒 体 定位 接口 
DWORD mObjectTableEntry; 
public: 


CDXGraph(); 
virtual -CDXGraph(); 


public: 
virtual bool Create (void); // 生 成 滤波 器 链表 管理 器 
virtual void Release (void); // 释 放 所 有 接口 


virtual bool Attach(IGraphBuilder *inGraphBuilder); 
IMediaEventEx* GetEventHandle (void); //i&|M IMediaEventEx 指针 


// 根 据 引 脚 方向 连接 滤波 器 

bool ConnectFilters(IPin *inOutputPin, IPin *inInputPin, 
const AM MEDIA TYPE *inMediaType=0) ; 

// 断 开 连 接 滤 波 器 

void DisconnectFilters (IPin *inOutputPin); 

// 设 置 显示 窗口 

bool SetDisplayWindow(HWND inWindow); 

// 设 置 窗口 通知 消息 

bool SetNotifyWindow(HWND inWindow); 


// 窗 口 大 小 改变 处 理 函 数 
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bool ResizeVideoWindow(long inLeft, long inTop, 
long inWidth, long inHeight); 
// 处 理事 件 


void HandleEvent (WPARAM inWParam, LPARAM inLParam); 


// 媒 体 运行 状态 

bool Run (void); // 控 制 滤 表 
bool Stop (void); 

bool Pause (void); 

bool IsRunning (void); // 滤 表 状 态 
bool IsStopped (void); 

bool IsPaused (void); 


// 设 置 显示 窗口 全 屏 显 示 
bool SetFullScreen(BOOL inEnabled) ; 
bool GetFullScreen (void); 


// 媒体 定位 

bool GetCurrentPosition (double *outPosition); 

bool GetStopPosition(double *outPosition); 

bool SetCurrentPosition (double inPosition); 

bool SetStartStopPosition(double inStart, double inStop) ; 
bool GetDuration (double *outDuration); 

bool SetPlaybackRate (double inRate); 


// 设 置 媒体 音量 : range from -10000 to 0, and 0 is FULL VOLUME. 
bool SetAudioVolume (long inVolume); 
long GetAudioVolume (void); 


// 设 置 音频 平衡 : range from -10000(1eft) to 10000(right), and 0 is both. 
bool SetAudioBalance (long inBalance); 
long GetAudioBalance (void); 


// 剖 析 媒 体 文件 
//bool RenderFile(char *inFile); 
bool RenderFile(TCHAR *inFile); 


// 抓 图 
bool SnapshotBitmap (TCHAR *outFile); 


int m nVolume; 
void ChangeAudioVolume (int nVolume); 


// 静 音 开 关 
void Mute () 
void UnMute(); 


private: 
/ /f& craphEdi t 调试 时 使 用 
void AddToObjectTable (void); 
void RemoveFromObjectTable (void); 


// 查 询 有 关 接 口 
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bool QueryInterfaces (void); 
335 
在 上 述 代 码 中 ， 类 CDXGraph 为 播放 的 媒体 文件 提供 了 几乎 所 有 的 操作 ， 例 如 音频 控 
制 、 抓 图 、 全 屏 和 播放 位 置 控制 等 。 在 类 的 构造 器 中 将 所 有 指针 清 零 ， 同 时 在 文件 
MediaPlayer.cpp 的 InitInstance() i Zt Xf COM 进行 初始 化 。 


2. 创建 Graph 滤波 器 链表 


在 此 需要 首先 创建 滤波 器 链表 管理 器 ， 然 后 在 该 链表 下 查询 、 使 用 各 种 接口 。 例 如 媒 
体 控制 接口 、 基 类 音频 /视频 接口 、 视 频 窗口 接口 和 媒体 定位 接口 等 。 实 现 滤 波 器 链表 管理 
Graph 的 具体 代码 如 下 : 


bool CDXGraph: :Create (void) 
t 
if (!pGraph) / /pGraph 为 空 则 创建 
{ 
if (SUCCEEDED (CoCreateInstance (CLSID FilterGraph, NULL, 
CLSCTX INPROC SERVER, IID IGraphBuilder, (void**) &pGraph) ) ) 
{ 


RddToobjectTable () ; // 添 加 到 目标 列表 ， 使 用 GraphEdit 调试 
return QueryInterfaces(); 
) 
pGraph = 0; 
} 
return false; 
} 


在 上 述 代 码 中 ， 如 果 滤 波 器 不 为 空 ， 则 在 此 调用 该 函数 时 不 再 重复 创建 ， 如 果 为 空 ， 
则 创建 链表 管理 器 pGraph， 然 后 将 其 添加 到 目标 列表 中 ， 以 便 使 用 GraphEdit 程序 进行 调 
试 ， 最 后 基于 pGraph 查询 各 种 接口 。 

创建 链表 管理 器 pGraph 后 ， 可 以 在 里 面 查询 、 初 始 化 所 必需 的 DirectShow 接口 。 具 
体 实现 代码 如 下 : 


bool CDXGraph: :QueryInterfaces (void) 
{ 
if (pGraph) 
{ 
HRESULT hr = NOERROR; // 函 数 返回 值 初始 化 
// 查 询 媒体 控制 接口 
hr |= 
pGraph-»QueryInterface(IID IMediaControl, (void**) &pMediaControl) ; 
// 查 询 媒体 事件 接口 
hr |= 
pGraph->QueryInterface (IID IMediaEventEx, (void**) &pMediaEvent) ; 
// 查 询 基 类 视频 接口 
hr |= pGraph->QueryInterface (IID IBasicVideo, (void**)&pBasicVideo); 
// 查 询 基 音 视频 接口 
hr |= pGraph->QueryInterface(IID IBasicAudio, (void**) &pBasicAudio) ; 
// 查 询 视频 窗口 接口 
hr |= 


9 


第 8 章 在 线 视频 播放 器 


pGraph-»QueryInterface(IID IVideoWindow, (void**)&pVideoWindow); 


// 查 询 媒体 定位 接口 
hr |= 

pGraph->QueryInterface (IID IMediaSeeking, (void**) &pMediaSeeking) ; 
if (pMediaSeeking) // 查 询 媒体 定位 接口 成 功 


{ 
pMediaSeeking->SetTimeFormat (&TIME FORMAT MEDIA TIME); 
) 
return SUCCEEDED (hr); 
} 
return false; 
} 


在 上 述 代 码 中 ， 滤 波 器 管理 器 如 果 不 为 空 ， 则 查询 各 种 必需 的 接口 ， 并 把 每 次 操作 的 
结果 放 在 hr 中 ， 最 后 判断 hr 的 值 。 


3. 设计 图 像 窗口 
打开 媒体 文件 ， 开 始 泻 染 、 分 析 其 媒体 格式 ， 并 链接 对 应 的 解码 器 。 有 具体 代码 如 下 : 


bool CDXGraph::RenderFile(TCHAR *inFile) 
t 


if (pGraph) 
t 
WCHAR szFilePath[MAX PATH]; 
// 把 传 入 的 文件 名 转换 成 宽 字 符 串 
MultiByteToWideChar(CP ACP, 0, inFile, -1, szFilePath, MAX PATH); 
if (SUCCEEDED (pGraph->RenderFile(inFile, NULL))) 


// 泻 染 媒体 文件 ， 构 建 滤波 器 链表 
return true; 
) 
} 
return false; 
} 


然后 设置 媒体 显示 窗口 ， 把 输入 窗口 句柄 与 DirectShow 控制 接口 pVideoWindow {H 
绑 。 具 体 代码 如 下 : 


// 输 入 显示 窗口 的 句柄 : inwindow 
bool CDXGraph::SetDisplayWindow(HWND inWindow) 
tf 


if (pVideoWindow) 
{ 

// 首先 隐藏 视频 窗口 
pVideoWindow-»put Visible (OAFALSE); 
pVideoWindow-»put Owner ( (OAHWND) inWindow) ; 
// 获 取 输 入 窗口 的 显示 区 域 
RECT windowRect; 

::GetClientRect (inWindow, &windowRect); 
pVideoWindow-»put Left (0); 
pVideoWindow-»put Top (0); 
pVideoWindow-»put Width (windowRect.right - windowRect.left); 
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pVideoWindow-»put Height (windowRect.bottom - windowRect.top); 
pVideoWindow-»put WindowStyle( 
WS CHILD|WS CLIPCHILDREN|WS CLIPSIBLINGS) ; 
pVideoWindow-»put MessageDrain ( (OAHWND) inWindow) ; 
// 恢复 视频 窗口 
if (inWindow != NULL) 
t 
pVideoWindow-»put Visible (OATRUE) ; 
} 
else 
{ 
pVideoWindow-»put Visible (OAFALSE) ; 
} 
return true; 
} 
return false; 
} 


在 上 述 代码 中 ， 把 传 入 的 视频 显示 窗口 与 DirectShow 的 视频 窗口 接口 捆绑 。 首 先 隐藏 
视频 窗口 ， 设 置 视频 窗口 所 属 为 传 入 的 显示 窗口 ; 然后 获取 传 入 的 显示 窗口 区 域 ， 并 将 该 
区 域 设置 到 | DirectShow 的 视频 窗口 ， 最 后 恢复 视频 窗口 ， 完 成 对 视频 窗口 的 设置 。 

设置 窗口 信息 通知 ， 先 在 文件 CDXGraph.h 中 自 定义 消息 WM_GRAPHNOTIFY, H 
体 代 码 如 下 : 


// 滤 波 器 链表 通知 给 特定 窗口 
#define WM GRAPHNOTIFY (WM USER*20) 


然后 实现 窗口 信息 、 事 件 通 知 函数 SetNotifyWindow(HWND inWindow)， 用 于 输入 显 
示 窗 口 的 句柄 inWindow。 具 体 代码 如 下 : 


bool CDXGraph: :SetNotifyWindow(HWND inWindow) 
t 


if (pMediaEvent) // 媒 体 事件 接口 不 为 空 

{ 
// 设 置 消息 通知 窗口 
pMediaEvent-»SetNotifyWindow((OAHWND)inWindow, WM GRAPHNOTIFY, 0); 
return true; // 设 置 成 功 

) 

return false; // 媒 体 事件 接口 为 空 


} 


4. 媒体 播放 控制 


项 目 中 的 播放 控制 包括 运行 Run、 和 暂停 Pause、 停 止 Sttp、 播 放 媒体 定位 和 静音 等 。 
下 面 的 代码 实现 播放 、 和 暂停 和 停止 功能 

bool CDXGraph: :Run (void) 

t 


if (pGraph && pMediaControl) // 链 表 和 媒体 控制 接口 都 不 为 空 
t 


if (!IsRunning()) // 看 是 否 在 播放 
t 
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下 面 的 代码 实现 播放 媒体 的 播放 位 置 定位 ， 此 处 包含 了 时 间 长 度 、 设 置 /获取 当前 播放 


位 置 和 设置 回放 速率 等 : 
// 获 取 播 放 时 间 长 度 


bool CDXGraph::GetDuration (double *outDuration) 
t 


if (pMediaSeeking) 

t 
. int64 length = 0; 
if (SUCCEEDED (pMediaSeeking-»GetDuration (&length))) 
t 


*outDuration = ((double)length) / 10000000; 


return true; 


4 


return false; 
} 


// 获 取 当 前 播放 位 置 


bool CDXGraph::GetCurrentPosition (double *outPosition) 


{ 
if (pMediaSeeking) 
{ 
. int64 position = 0; 
if (SUCCEEDED (pMediaSeeking-»GetCurrentPosition (&position))) 
t 


*outPosition = ((double)position) / 10000000; 


return true; 


} 
return false; 


} 
// 设 置 当前 播放 位 置 


bool CDXGraph::SetCurrentPosition (double inPosition) 


{ 
if (pMediaSeeking) 


{ 
int64 one = 10000000; 
int64) (one * inPosition) ; 


int64 position = ( 
HRESULT hr = pMediaSeeking->SetPositions (&position, 
AM SEEKING AbsolutePositioning | AM SEEKING SeekToKeyFrame, 
0, AM SEEKING NoPositioning) ; 
return SUCCEEDED (hr) ; 
} 
return false; 


} 


// 设 置 回复 速率 
bool CDXGraph: :SetPlaybackRate (double inRate) 


if (pMediaSeeking) 


t 
if (SUCCEEDED (pMediaSeeking-»SetRate (inRate))) 


$ 
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return true; 


} 
return false; 


} 

通过 上 述 代 码 实现 了 对 播放 文件 的 定位 设置 ， 各 个 设置 的 过 程 基本 相同 ， 首 先 要 确保 
媒体 定位 接口 不 为 空 ， 然 后 使 用 媒体 定位 接口 下 的 方法 实现 定位 。 另 外 还 需要 通过 下 面 的 
代码 来 设置 媒体 播放 位 置 : 

bool CDXGraph: :GetStopPosition (double *outPosition) 

t 


if (pMediaSeeking) 
t 
int64 position - 0; 
if (SUCCEEDED (pMediaSeeking-»GetStopPosition (&position))) 
t 
*outPosition = ((double)position) / 10000000.; 
return true; 


) 
return false; 


} 


bool CDXGraph: :SetStartStopPosition (double inStart, double inStop) 
$ 
if (pMediaSeeking) 
t 
int64 one = 10000000; 
int64 startPos = ( int64) (one * inStart); 
int64 stopPos = ( int64)(one * inStop); 
HRESULT hr = pMediaSeeking->SetPositions (&startPos, 
AM SEEKING AbsolutePositioning | AM SEEKING SeekToKeyFrame, 
&stopPos, 
AM SEEKING AbsolutePositioning | AM SEEKING SeekToKeyFrame) ; 
return SUCCEEDED (hr) ; 
} 
return false; 
} 


最 后 讲解 静音 设置 ， 具 体 代码 如 下 


void CDXGraph: :Mute () 
{ 


if (!pBasicAudio) // 如 果 基 类 音频 接口 为 空 则 直接 返回 
return; 
pBasicAudio-»put Volume (-10000); // 设 置 静音 


} 


void CDXGraph: :UnMute () 
{ 
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if (!pBasicAudio) // 如 果 基 类 音频 接口 为 空 则 直接 返回 


return; 
long lVolume = (m nVolume - 100) * 100; // 设 置 静音 
pBasicAudio-»put Volume (lVolume); 
} 


5. 视频 全 屏 显示 
视频 的 全 屏 显示 是 播放 器 的 最 基本 功能 之 一 ， 本 项 目 中 ， 实 现 视 频 全 屏 显 示 的 代码 


如 下 : 


// 全 屏 显示 函数 
bool CDXGraph: :SetFullScreen(BOOL inEnabled) 
t 
if (pVideoWindow) // 视 频 窗口 接口 不 为 空 
t 
// Wi ture fil false 来 表示 全 屏 开关 
HRESULT hr = 
pVideoWindow-»put FullScreenMode(inEnabled ? OATRUE : OAFALSE) ; 
return SUCCEEDED (hr); 
) 
return false; 
} 


6. MARE 
抓 图 保存 也 是 播放 器 的 最 基本 功能 ， 本 项 目 中 实现 抓 图 保存 的 具体 代码 如 下 : 


bool CDXGraph: :SnapshotBitmap (TCHAR *outFile) 
{ 
if (pBasicVideo) // 基 类 视频 接口 不 为 空 
{ 
long bitmapSize = 0; // 位 图 大 小 
if (SUCCEEDED (pBasicVideo->GetCurrentImage (&bitmapSize, 0))) 
{ 
bool pass = false; 
unsigned char *buffer = new unsigned char[bitmapSize] ; 
// 以 bitmapsize 大 小 读 取 图 像 数据 ， 并 放 在 buffer 中 
if (SUCCEEDED (pBasicVideo->GetCurrent Image ( 
&bitmapSize, (long*)buffer) )) 
{ 
BITMAPFILEHEADER hdr; 
LPBITMAPINFOHEADER lpbi; 


lpbi = (LPBITMAPINFOHEADER) buffer; 
int nColors - 0; 
// 创 建 位 图 头 文件 结构 体 字段 信息 
if (lpbi->biBitCount < 8) 
t 
nColors = 1 << lpbi-»biBitCount; 
H 
hdr.bfType = ((WORD) ('M' << 8) | 'B'); // 设 置 总 是 “BM” 
hdr .bfSize = bitmapSize + sizeof (hdr); 
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hdr.bfReservedl zo 

hdr.bfReserved2 0; 

hdr.bfOffBits = (DWORD) (sizeof (BITMAPFILEHEADER) 
+ lpbi-»biSize + nColors * sizeof (RGBQUAD)); 

// 可 读 写 二 进 制 创建 文件 

CFile bitmapFile((outFile), CFile::modeReadWrite 
| CFile::modeCreate | CFile::typeBinary); 

bitmapFile.Write(&hdr, sizeof (BITMAPFILEHEADER)); 

bitmapFile.Write (buffer, bitmapSize); 


bitmapFile.Close(); // 关 闭 位 图 文件 
pass = true; // 抓 图 成 功 

) 

delete []buffer; // 释 放 缓冲 区 


return pass; 
) 
} 
return false; 


84.3 创建 播放 器 主题 


经 过 前 面 的 实现 步骤 ， 完 成 了 项 目 中 类 的 设计 。 接 下 来 开始 讲解 创建 播放 器 主题 的 过 
程 ， 详 细 介绍 各 个 控制 按钮 和 弹出 命令 功能 的 具体 实现 过 程 。 


1. 打开 


单 击 播放 器 界面 中 的 “打开 ”按钮 后 ， 即 可 打开 要 播放 的 媒体 文件 ， 此 处 需要 添加 一 
个 鼠标 单 击 事件 响应 。 有 具体 实现 代码 如 下 : 


void CMediaPlayerD1g: :OnBnClickedButtonOpen () 
t 
// TODO: 在 此 添加 控件 通知 处 理 程序 代码 
#if 1 
CString strFilter = T("AVI File (*.avi) | *.avi|"); 
strFilter += "MPEG File (*.mpg; *.mpeg) | *.mpg; *.mpeg|"; 
strFilter += "MP3 File (*.mp3) | *.mp3|"; 
strFilter += "WMA File (*.wma) | *.wma|"; 
strFilter += "All File (*.*) | *.*|"; 
#else 
CString strFilter = T("AVI File (*.avi)|*.avi|MPEG File 
(*.mpg)|*.mpg|MP3 File (*.mp3)|*.mp3|]All Files (*.*)|*.*] |"); 
#endif 
CFileDialog dlg (TRUE, NULL, NULL, 
OFN PATHMUSTEXIST|OFN HIDEREADONLY, strFilter, this); 
if (dlg.DoModal() == IDOK) 
{ 


m sourceFile = dlg.GetPathName(); 


// 从 路 径 中 获取 多 媒体 文件 名 称 
m mediaFileName = GetFileTitleFromFileName (m sourceFile, 1); 
CreateGraph(); / /创建 链 表 ， 连 接 滤波 器 
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在 上 述 代码 中 ， 以 只 读 的 方式 打开 要 播放 的 文件 ， 并 且 过 滤 了 流 媒体 文件 的 格式 ， 获 
取 了 媒体 的 路 径 和 文件 名 。 
2. i83 


泻 染 媒体 文件 ， 把 显示 图 像 窗口 和 DirectShow SDK 的 视频 窗口 接口 进行 捆绑 。 因 为 
所 有 对 DirectShow SDK 的 控制 是 在 封装 类 CDXGraph 中 实现 的 ， 所 以 首先 要 创建 一 个 
CDXGraph 对 象 ， 然 后 创建 滤波 器 链表 管理 器 ， 并 把 读 取 的 文件 的 路 径 名 修改 为 宽 字 符 形 
式 。 演 染 媒体 文件 ， 自 动 剖 析 媒 体格 式 ， 构 建 滤波 器 列表 。 如 果 演 染 成 功 ， 则 设置 图 像 显 
示 窗 口 并 注册 消息 通知 窗口 ， 最 后 显示 第 一 帧 图 像 后 ， 马 上 和 暂停。 上 述 功能 的 具体 实现 代 
人 码 如 下 : 

void CMediaPlayerDlg: :CreateGraph () 

i 


DestroyGraph(); // 销 毁 滤 波 器 链表 图 
m pFilterGraph = new CDXGraph(); // 创 建 CDXGraph 对 象 
if (m pFilterGraph->Create()) // 创 建 滤波 器 链表 管理 器 


{ 


//if (!m pFilterGraph->RenderFile (ch) ) // 演 染 媒 体 文件 ， 构 建 滤波 器 链表 
TCHAR *chl = m sourceFile.GetBuffer(m sourceFile.GetLength()); 


if (!m pFilterGraph-»RenderFile (ch1)) // 演 染 媒 体 文件 ， 构 建 滤波 器 链表 
{ 
MessageBox( T( 
"无 法 泻 染 此 媒体 文件 ! 请 确认 是 否 安装 相关 解码 器 插件 ! \n 或 此 媒体 文件 已 损坏 ! n), 
_T ("系统 提示 ")，MB_ICONWARNING) ; 
return; 
} 
m sourceFile.ReleaseBuffer(); 
// 设 置 图 像 显示 窗口 
m pFilterGraph->SetDisplayWindow(m videoWindow.GetSafeHwnd () ) ; 
// 设 置 窗口 消息 通知 
m pFilterGraph-»SetNotifyWindow (this-»GetSafeHwnd()); 
// 显 示 第 一 帧 图 像 
m pFilterGraph->Pause () ; 


} 


3. 播放 


单 击 “ 播 放 ” 按 钮 后 开始 播放 选择 的 媒体 文件 ， 同 时 在 标题 栏 中 显示 播放 速度 和 媒体 
文件 名 。 具 体 实现 代码 如 下 : 


void CMediaPlayerDlg: :OnBnClickedButtonPlay () 
t 
// TODO: 在 此 添加 控件 通知 处 理 程序 代码 
if (m pFilterGraph) 
t 
SetWindowText( T("1ÍiGÉJÉUX ") + m mediaFileName); 
m_pFilterGraph->Run () ; 


} 


m pFilterGraph-»ChangeAudioVolume (m volume); 
m sliderVolume.SetPos (m volume); 


if (m playerTimer == 0) 


{ 
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m playerTimer = SetTimer(SLIDER TIMER, 100, NULL); 
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为 了 获取 媒体 播放 的 信息 和 各 种 事件 ， 需 要 向 窗口 发 送 通知 ， 有 具体 步骤 如 下 。 
对 话 框 类 中 添加 自 定义 的 消息 处 理 函数 OnGraphNotify: 


a) 


afx msg LRESULT OnGraphNotify (WPARAM inWParam, LPARAM inLParam) 


Q) 


f 


IMediaEventEx *pEvent = NULL; 


E] 


= 


对 话 框 消息 映射 部 分 添加 消息 映射 宏 : 
ON MESSAGE (WM GRAPHNOTIFY, OnGraphNotify) 
消息 处 理 函 数 OnGraphNotify 的 具体 实现 代码 如 下 : 


LRESULT CMediaPlayerDlg::OnGraphNotify (WPARAM inWParam, LPARAM inLParam) 


if ((m pFilterGraph!-NULL) 
&& (pEvent = m pFilterGraph-»GetEventHandle () ) ) 


{ 


LONG eventCode = 0; // 事 件 码 


LONG eventParaml = 0; 
LONG eventParam2 = 0; 


while (SUCCEEDED (pEvent-»GetEvent ( 


{ 


&eventCode, &eventParaml, &eventParam2, 0))) 


// 获 取 成 功 释放 事件 和 参数 


// 媒 体 事件 接口 


// 事 件 码 的 第 一 个 参数 
// 事 件 码 的 第 二 个 参数 


pEvent-»FreeEventParams (eventCode, eventParaml, eventParam2); 


switch (eventCode) 
{ 


case EC COMPLETE: // 播 放 结束 
OnBnClickedButtonPause () ; // 暂 停 播放 
m pFilterGraph-»SetCurrentPosition (0); 
break; 
case EC USERABORT: // 用 户 终止 消息 
case EC ERRORABORT: // 出 错 终止 消息 
OnBnClickedButtonStop () ; 
break; 
default: 
break; 
} 
} 
} 
return 0; 


è 
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4. 播放 控制 


经 过 前 面 步 骤 的 操作 ， 其 实 已 经 实现 了 一 个 简单 的 播放 器 效果 ， 具 备 了 播放 、 打 开 文 
件 和 停止 播放 的 功能 。 但 是 作为 一 个 视频 播放 器 ， 还 需要 添加 一 些 用 于 控制 播放 处 理 的 控 
制 功能 ， 下 面 一 一 讲解 。 

(1) 视频 窗口 中 的 右键 快捷 菜单 

在 播放 视频 时 ， 鼠 标 右 击 后 弹出 如 图 8-30 所 示 的 菜单 命令 ， 通 过 这 些 菜单 命令 可 以 对 
当前 播放 的 视频 进行 控制 。 此 功能 的 具体 实现 流程 如 下 。 

®© 在 Visual C++ 2010 的 菜单 栏 中 选择 “视图 ”一 “类 视图 ”命令 ， 打 开 “ 类 视图 ” 
属性 页 。 选 中 类 “CMediaPlayerDlg”， 鼠 标 右 击 ， 在 弹出 菜单 中 选择 “属性 ”命令 ， 打 开 
“属性 ”对 话 框 ， 如 图 8-43 所 示 。 


Cliedi ePlayerDlg VCCodeClass - 


8-43 “属性 ”对 话 框 


Q 单 击 “ 重 写 ” 工 具 按 钮 急 ， 查 询 定位 PreTranslateMessage 函数 ， 然 后 单 击 “ 添 
加 ”按钮 。 
© 编写 虚拟 函数 PreTranslateMessage， 具 体 实现 代码 如 下 : 


BOOL CMediaPlayerDlg::PreTranslateMessage (MSG *pMsg) 
{ 
{ 
// ToolTip 处 理 如 下 信息 
m tooltip.RelayEvent (pMsg) ; 


} 
// 按 下 鼠标 右键 
if (pMsg->message == WM KEYDOWN) 
{ 
if (pMsg->wParam == VK RETURN || VK ESCAPE) 
{ 
if (m pFilterGraph != NULL) 
{ 
if (m pFilterGraph-»GetFullScreen()) 
{ 
m pFilterGraph-»SetFullScreen (FALSE); 
} 
H 
return TRUE; 


} 


} 
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else if (WM RBUTTONDOWN == pMsg->message) 


t 


) 


CPoint point; 

//HMENU hmenu; 

CMenu hmenu; 

HMENU hmenuTrackPopup; 

hmenu.LoadMenu(IDR MENU MAIN); // 装 载 菜单 
GetCursorPos (&point); // 获 取 鼠 标 当前 位 置 
hmenuTrackPopup = GetSubMenu(hmenu, 0); 

// 弹 出 式 菜单 


Trac 


kPopupMenu(hmenuTrackPopup, TPM LEFTALIGN | TPM LEFTBUTTON, 


point.x, point.y, 0, this-»m hWnd, NULL); 


Dest. 


royMenu (hmenu) ; 


(2) 在 线 提示 

当 把 鼠标 放 在 播放 器 中 的 一 个 按钮 上 面 时 ， 系 统 会 提示 此 按钮 的 功能 信息 。 此 功能 世 
具体 实现 步骤 如 下 。 

®© 在 类 CMediaPlayerDlg 中 定义 声明 的 tooltip 控件 : 

CToolTipCtrl m tooltip; 


@ 在 类 CMediaPlayerDlg 的 实现 文件 的 对 话 框 初始 函数 OnInitDialeg 中 ， 添 加 如 下 


代码 : 


m tooltip.Create (this); 
m tooltip.Activate (TRUE); 


// 添 加 各 个 按钮 的 提示 说 明 信 息 

m tooltip.AddTool(GetDlgItem(IDC BUTTON OPEN), T("Open Media File")); 
m tooltip.AddTool(GetDlgItem(IDC BUTTON PLAY), T("Play Media File")); 
m tooltip.AddTool(GetDlgItem(IDC BUTTON PAUSE), _T("Pause Media File")); 


m tooltip.A 
m tooltip.AddTool (GetDlgItem(IDC BUTTON GRASP), T("Grasp Image")); 


m tooltip.A 
m tooltip.AddTool(GetDlgItem(IDC SLIDER PLAY), T("Slider of Player")) 
m tooltip.AddTool(GetDlgItem(IDC SLIDER VOLUME), T("Slider of Volume" 
m tooltip.AddTool (GetDlgItem(IDC VIDEO WINDOW),  T("Display Pictures") 
return TRUE; // 除非 将 焦点 设置 到 控件 ， 否 则 返回 TRUE 


@ 在 PreTranslateMessage 消息 处 理 函数 中 添加 如 下 代码 : 


m tooltip.RelayEvent (pMsg); 


(3) 相应 菜单 子 项 


TE 


iia» H 


ddTool(GetDlgItem(IDC BUTTON STOP), _T("Stop Media File")); 


ddTool(GetDlgItem(IDC BUTTON EXIT), _T("Exit the App")); 


且 面 有 一 个 “Open File” 菜 单 ， 在 此 菜单 下 可 以 设置 子 菜单 项 。 右 


ye 
); 


f 此 菜 


单 后 ， 在 弹出 的 菜单 命令 中 选择 “添加 事件 处 理 程序 命令 ”后 ， 将 弹出 “事件 处 理 程序 向 
导 ” 对 话 框 ， 如 图 8-44 所 示 。 
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mS: 


[UPDATE COMMAND VT 
p. a sm 
psenmsenm 7000000000007 
Cine 


EE 


EMRAN RA 


图 8-44 “事件 处 理 程序 向 导 ” 对 话 框 


选择 消息 类 型 “COMMAND”， 在 类 列表 中 选择 “CMediaPlayerDlg” 选 项 ， 然 后 单 
击 “ 添 加 编辑 ”按钮 ， 此 时 会 生成 如 下 代码 : 


void CMediaPlayerDlg: :OnMenuOpenfile () 
t 
// TODO: 在 此 添加 命令 处 理 程序 代码 
OnBnClickedButtonopen|(); 
) 


(à) 控制 播放 速率 

播放 器 既 可 以 慢 速 播放 视频 ， 也 可 以 快速 播放 视频 。 控 制 播放 速率 的 具体 编程 实现 步 
又 如 下 。 

@ 选中 “Half Rate”， 以 1/2 速率 播放 媒体 ， 添 加 如 下 事件 处 理 程序 : 


void CMediaPlayerDlg: :OnMenuHalfrate () 
t 
// TODO: 在 此 添加 命令 处 理 程序 代码 
if (m pFilterGraph) 
t 
m pFilterGraph-»SetPlaybackRate (0.5) ; 
SetWindowText( T("1/2 倍速 播放 ") + m mediaFileName); 


5 
在 此 设置 回放 速率 小 于 1. denti. 
@ 选中 “Normal Rate”， 以 正常 速率 播放 媒体 ， 添 加 如 下 事件 处 理 程序 : 


void CMediaPlayerDlg: :OnMenuNormalrate () 
t 
// TODo: 在 此 添加 命令 处 理 程序 代码 
if (m pFilterGraph) 
t 
m pFilterGraph-»SetPlaybackRate (1.0); 
SetWindowText (_T ("1 倍速 播放 ") + m mediaFileName); 
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在 此 设置 回放 速率 为 1， 表 示 正 常 播放 。 
@ 选中 “DoubleRate”， 以 2 倍速 率 播放 媒体 ， 添 加 如 下 事件 处 理 程序 : 


void CMediaPlayerDlg: :OnMenuDoublerate () 
{ 


// TODO: 在 此 添加 命令 处 理 程序 代码 

if (m pFilterGraph) 

{ 
m pFilterGraph->SetPlaybackRate (2.0); 
SetWindowText (_T ("2 倍速 播放 ") + m mediaFileName); 


} 


在 此 设置 回放 速率 大 于 2， 表 示 快 放 。 
(5) 全 屏 和 置顶 播放 
© 选中 “FullScreen Display”， 添 加 如 下 事件 处 理 程序 代码 ， 实 现 全 屏 播放 功能 : 


void CMediaPlayerDlg: :OnMenuFullscreen () 
t 
// TODO: 在 此 添加 命令 处 理 程序 代码 
static int flag = 0; 
if (m pFilterGraph != NULL) 
{ 
if (!flag) ( 
m pFilterGraph->SetFullScreen (TRUE); 
flag = 1; 
} else { 
m pFilterGraph->SetFullScreen (FALSE); 
flag = 0; 


} 


© 实现 退出 全 屏 显 示 。 在 此 程序 首先 捕获 Esc 键 消息 ， 然 后 在 PreTranslateMessage 
中 添加 消息 捕获 处 理 。 具 体 代码 如 下 : 


if (pMsg-»message == WM KEYDOWN) 
t 
if (pMsg-»wParam — VK RETURN || VK ESCAPE) 
{ 
//RestoreFromFullScreen () ; 
if (m_pFilterGraph != NULL) 
{ 
if (m pFilterGraph->GetFullScreen () ) 
{ 
m pFilterGraph-»SetFullScreen (FALSE); 
H 
H 
return TRUE; 
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图 实现 播放 置顶 处 理 ， 添 加 下 面 的 事件 处 理 代码 : 


void CMediaPlayerDlg: :OnMenuAlwaysontop () 
t 

// TODO: 在 此 添加 命令 处 理 程序 代码 

static int flag = 07 

if (!flag) 

t 


::SetWindowPos (m hWnd, 
HWND TOPMOST, 0,0,0,0, SWP NOMOVE | SWP NOSIZE); 
flag = 1; 
} 
else 
{ 
::SetWindowPos (m hWnd, HWND NOTOPMOST, 0, 0, 0, 0, 
SWP NOSIZE | SWP NOMOVE) ; 
flag = 0; 


} 


5. 拖 放 

此 处 的 拖 放 功 能 ， 是 指 以 通过 拖 动 滑动 条 来 控制 播放 文件 的 位 置 ， 并 定时 滚动 对 应 的 
媒体 播放 。 具 体 实 现 步骤 如 下 。 

(1) 滑动 条 控件 与 变量 捆绑 。 在 滑动 条 上 右 击 ， 将 “添加 变量 名 ”设置 为 
“m sliderPlayer" . 

Q) 滑动 条 变量 初始 化 。 在 OnlnitDialog 函数 中 添加 如 下 代码 : 


m sliderPlayer.SetRange(0, 1000); 
m sliderPlayer.SetPos (0); 


(3) 添加 水 平 滚动 消息 处 理 函 数 。 首 先 选中 播放 器 的 主 对 话 框 ， 右 击 ， 在 弹出 的 菜单 
中 选择 “属性 ”命令 ， 在 对 话 框 中 单 击 消息 按钮 呵 ， 查 找 WM HSCROLL. ， 添 加 
OnHScroll 消息 处 理 函 数 。 有 具体 代码 如 下 : 


void CMediaPlayerDlg::OnHScroll(UINT nSBCode, UINT nPos, 
CScrollBar *pScrollBar) 
t 
// TODO: 在 此 添加 消息 处 理 程序 代码 和 /或 调用 默认 值 
if (pScrollBar-»GetSafeHwnd() == m sliderPlayer.GetSafeHwnd()) 
{ 
if (m pFilterGraph != NULL) 
{ 
double duration = 1.0; 
m pFilterGraph-»GetDuration(&duration); // 获 取 流 媒体 文件 时 间 长 度 
// 获 取 滑 动 条 当前 位 置 
double pos = duration * m sliderPlayer.GetPos() / 1000.0; 
m pFilterGraph-»SetCurrentPosition(pos); // 设 置 当前 位 置 
} 
H 
else if (pScrollBar-»GetSafeHwnd() == m sliderVolume.GetSafeHwnd|()) 
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if (m pFilterGraph != NULL) 
{ 
m volume = m sliderVolume.GetPos(); 
m pFilterGraph-»ChangeAudioVolume (m volume); 


) 
else 


{ 
CDialog::OnHScroll(nSBCode, nPos, pScrollBar); 


音量 调节 


6. 

音量 调节 功能 与 播放 位 置 控 制 类 似 ， 有 具体 实现 步骤 如 下 。 
(1) 滑动 条 和 变量 捆绑 ， 定 义 变量 m_sliderVolume。 

(2) 初始 化 滑动 条 ， 有 具体 代码 如 下 : 


m sliderVolume.SetRange(50, 100); 
m sliderVolume.SetPos (50); 


(3) 添加 水 平 滚动 消息 处 理 函 数 ， 有 具体 代码 如 下 : 


void CMediaPlayerDlg::OnHScroll(UINT nSBCode, UINT nPos, 


{ 


CScrollBar *pScrollBar) 


// TODO: 在 此 添加 消息 处 理 程序 代码 和 /或 调用 默认 值 
if (pScrollBar-»GetSafeHwnd() == m sliderPlayer.GetSafeHwnd()) 
t 
if (m pFilterGraph != NULL) 
t 
double duration = 1.0; 
m pFilterGraph-»GetDuration (&duration); 
double pos = duration * m sliderPlayer.GetPos() / 1000.0; 
m pFilterGraph-»SetCurrentPosition (pos); 
} 
} 
else if (pScrollBar-»GetSafeHwnd() == m sliderVolume.GetSafeHwnd() ) 
{ 
if (m_pFilterGraph != NULL) 
{ 
//m volume = m sliderAudio.GetPos(); 
m volume = m sliderVolume.GetPos(); 
m pFilterGraph-»ChangeAudioVolume (m volume); 


ji 
else 


{ 
CDialog: :OnHScroll(nSBCode, nPos, pScrollBar); 
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在 上 述 代码 中 ， 函 数 OnHScroll0 是 所 有 滑动 条 的 消息 处 理 函 数 ， 能 够 根据 窗口 句柄 识 
别 具 体 的 滑动 条 ， 然 后 获取 当前 滑动 条 的 位 置 ， 最 后 设置 当前 参数 。 
(4) 实现 静音 控制 。 编 写 菜单 响应 代码 ， 具 体 代码 如 下 : 
void CMediaPlayerDlg: :OnMenuMute () 
ü 
// TODO: 在 此 添加 命令 处 理 程序 代码 
if (m pFilterGraph != NULL) 
{ 
static int flag = 0; 
if (!flag) 
{ 
m pFilterGraph-»Mute (); 
flag = 1; 
} 
erse 
{ 
m pFilterGraph-»UnMute () ; 
flag = 0; 


844 添加 背景 图 片 


添加 背景 图 片 ， 即 播放 器 的 背景 图 像 ， 具 体 实现 步骤 如 下 。 

(1) 加 载 背景 图 像 资源 。 

(2) 修改 图 像 控件 IDC VIDEO WINDOW 的 属性 ， 设 置 Type 属性 为 “Bitmap”， 
Sunken 为 “True”，Image 为 “IDB_ BITMAP BKGROUND” . 

(3) 设置 图 像 显示 窗口 m_videoWindow 的 模式 ， 在 主 对 话 框 的 初始 化 函数 中 添加 如 
下 代码 ; 


m videoWindow.ModifyStyle(0, WS CLIPCHILDREN); 


(4) 重 载 WM ERASEBKGND 消息 ， 为 图 像 控 件 m videoWindow 创建 一 个 新 的 剪 切 
区 域 ， 以 保证 其 他 窗口 覆盖 图 像 显示 窗口 后 ， 再 正常 显示 以 前 的 图 像 。 具 体 代 码 如 下 : 


BOOL CMediaPlayerDlg::OnEraseBkgnd(CDC *pDC) 
t 


// TODO: 在 此 添加 消息 处 理 程序 代码 和 /或 调用 默认 值 
#if 1 
CRect rect; 
m_videoWindow.GetClientRect (&rect) ; 
pDC-» ExcludeClipRect (&rect) ; 
endif 
return CDialog: :OnEraseBkgnd (pDC) ; 
} 


至 此 ， 整 个 播放 器 程序 的 主要 代码 介绍 完毕 ， 最 终 效果 如 图 8-45 所 示 。 因 为 本 书 篇 幅 
有 限 ， 只 介绍 了 比较 重要 的 和 难以 理解 的 部 分 。 至 于 其 他 文件 的 具体 实现 过 程 ， 请 读者 参 


sD 
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阅 本 书 附带 的 光盘 。 如 果 遇 到 疑难 问题 ， 可 以 参阅 本 书 前 面 介绍 的 基础 知识 部 分 。 


图 8-45 执行 效果 


Egg 安全 卫 十 防火墙 系 统 。 ee 


随 着 网 络 的 普及 ， 人 们 的 日 常 交流 和 生活 将 越 来 越 多 地 依靠 网 
络 来 完成 。 无 论 是 网 上 业务 洽谈 ， 还 是 网 上 购物 ， 都 不 可 避免 地 面 
临安 全 性 问题 。 为 了 提高 个 人 电脑 的 安全 性 ， 市 面 上 诞生 了 很 多 杀 


^ 
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9.1 防火 墙 基 础 


防火 墙 是 一 种 协助 用 户 确保 信息 安全 的 设备 ， 它 会 依照 特定 的 规则 ， 人 允许 或 是 限制 传 
输 的 数据 通过 。 防 火 墙 可 以 是 一 台 专 属 的 硬件 ， 也 可 以 是 架设 在 一 般 硬件 上 的 一 套 软 件 。 
在 本 节 的 内 容 中 ， 将 简单 介绍 防火 墙 的 基本 知识 


9.1.1 什么 是 防火 墙 


防火 墙 是 由 软件 和 硬件 设备 组 合 而 成 、 在 内 部 网 和 外 部 网 之 间 、 专 用 网 与 公共 网 之 间 
的 界面 上 构造 的 保护 屏障 ， 是 一 种 获取 安全 性 方法 的 形象 说 法 ， 它 是 一 种 计算 机 硬件 和 软 
件 的 结合 ， 使 Intemet 与 Intranet 之 间 建 立 起 一 个 安全 网 关 (Security Gateway)， 从 而 保护 内 
部 网 免 受 非法 用 户 的 侵入 。 防 火 墙 主要 由 服务 访问 规则 、 验 证 工具 、 包 过 滤 和 应 用 网 关 4 
个 部 分 组 成 。 防 火 墙 就 是 一 个 位 于 计算 机 和 它 所 连接 的 网 络 之 间 的 软件 或 硬件 。 该 计算 机 
流入 流出 的 所 有 网 络 通信 均 要 经 过 此 防火 墙 。 

网 络 中 的 “防火 墙 ” 是 一 种 将 内 部 网 和 公众 访问 网 (如 Internet) 分 开 的 方法 ， 实 际 上 是 
一 种 隔离 技术 。 防 火 墙 是 在 两 个 网 络 通讯 时 执行 的 一 种 访问 控制 尺度 ， 它 能 多 许 你 “ 同 
意 ” 的 人 和 数据 进入 你 的 网 络 ， 同 时 将 你 “不 同意 ”的 人 和 数据 拒 之 门 外 ， 最 大 限度 地 阻 
止 网 络 中 的 黑客 来 访问 你 的 网 络 。 换 句 话 说， 如 果 不 通过 防火 墙 ， 公 司 内 部 的 人 就 无 法 访 
问 Internet, Internet. 上 的 人 也 无 法 与 公司 内 部 的 人 进行 通信 。 


9.12 防火墙 的 类 型 


常见 的 “防火 墙 ” 有 两 类 ， 分 别 是 网 络 层 防火 墙 和 应 用 层 防 火 墙 。 

(1) 网 络 层 防火 墙 

可 以 把 网 络 层 防 火 墙 视 为 一 种 IP 封包 过 滤器 ， 运 作 在 底层 的 TCP/IP 协议 堆栈 上 。 我 
们 可 以 通过 枚 举 的 方式 ， 只 允许 符合 特定 规则 的 封包 通过 ， 其 余 的 一 概 禁 止 穿 越 防 火 墙 。 

这 些 规则 通常 可 以 经 由 管理 员 定义 或 修改 ， 不 过 某 些 防 火 墙 设备 可 能 只 能 套用 内 置 的 
规则 。 

我 们 也 能 以 男 一 种 较 宽松 的 角度 来 制定 防火 墙 规则 ， 只 要 封包 不 符合 任何 一 项 “否定 
规则 ”， 就 予以 放行 。 现 在 的 操作 系统 及 网 络 设备 大 多 已 内 置 了 防火 墙 功 能 。 

较 新 的 防火 墙 能 利用 封包 的 多 样 属 性 来 进行 过 滤 ， 例 如 来 源 IP 地 址 、 来 源 端口 号 、 目 
的 IP 地 址 或 端口 号 、 服 务 类 型 (如 WWW 或 是 FTP)。 也 能 经 由 通信 协议 、TTL 值 、 来 源 
的 网 域名 称 或 网 段 等 属性 来 进行 过 滤 。 

Q) 应 用 层 防 火 墙 

应 用 层 防火 墙 是 在 TCP/IP 堆栈 的 “应 用 层 ” 上 运作 ， 您 使 用 浏览 器 时 所 产生 的 数据 
流 或 是 使 用 FTP 时 的 数据 流 都 是 属于 这 一 层 。 应 用 层 防火 墙 可 以 拦截 进出 某 应 用 程序 的 所 
有 封包 ， 并 且 封 锁 其 他 的 封包 (通常 是 直接 将 封包 丢弃 )。 理 论 上 ， 这 一 类 的 防火 墙 可 以 完 
全 阻 绝 外 部 的 数据 流 进 到 受 保护 的 机 器 里 。 
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防火 墙 通过 监测 所 有 的 封包 并 找 出 不 符合 规则 的 内 容 ， 可 以 防范 电脑 蠕虫 或 是 木马 程 
序 的 快速 蔓延 。 不 过 就 实现 而 言 ， 这 个 方法 既 繁 且 杂 (须知 软件 有 成 百 上 千 种 )， 所 以 大 部 
分 防火 墙 都 不 会 考虑 以 这 种 方法 设计 。 

XML 防火 墙 是 一 种 新 形态 的 应 用 层 防 火 墙 。 


9.1.3 防火墙 的 结构 


防火 墙 的 基本 结构 可 以 分 为 包 过 滤 和 应 用 代理 两 种 。 包 过 滤 技 术 关 注 的 是 网 络 层 和 传 
输 层 的 保护 ， 而 应 用 代理 则 更 关心 应 用 层 的 保护 。 


1. 包 过 滤 
包 过 滤 是 历史 最 久远 的 防火 墙 技术 ， 从 实现 上 又 可 以 分 为 简单 包 过 滤 和 状态 检测 包 过 
滤 两 种 。 


ü ”简单 包 过 滤 : 是 对 单个 包 的 检查 ， 目 前 绝 大 多 数 路 由 器 产品 都 提供 这 样 的 功能 ， 
所 以 如 果 你 已 经 有 边界 路 由 器 ， 那 么 完全 没有 必要 购买 一 个 简单 包 过 滤 的 防火 墙 
- 品 。 由 于 这 类 技术 不 能 跟踪 TCP 的 状态 ， 所 以 对 TCP 层 的 控制 是 有 漏洞 的 ， 
比如 当 你 在 这 样 的 产品 上 配置 了 仅 允 许 从 内 到 外 的 TCP 访问 时 ， 一 些 以 TCP 应 
答 包 的 形式 进行 的 攻击 仍然 可 以 从 外 部 通过 防火 墙 对 内 部 的 系统 进行 攻击 。 简 单 
包 过 滤 的 产品 由 于 其 保护 的 不 完善 ， 在 1999 年 以 前 国外 的 防火 墙 市 场 上 就 已 经 
不 存在 了 ， 但 是 目前 国内 研制 的 产品 仍然 有 很 多 采用 的 是 这 种 简单 包 过 滤 的 技 


口 ” 状 态 检测 包 过 滤 : 利用 状态 表 跟 踪 每 一 个 网 络 会 话 的 状态 ， 对 每 一 个 包 的 检查 不 
仅 根据 规则 表 ， 更 考虑 了 数据 包 是 否 符合 会 话 所 处 的 状态 。 因 而 提供 了 更 完整 的 
对 传输 层 的 控制 能 力 。 同 时 由 于 一 系列 优化 技术 的 采用 ， 状 态 检 测 包 过 滤 的 性 能 
也 明显 优 于 简单 包 过 滤 产 品 ， 尤 其 是 在 一 些 规则 复杂 的 大 型 网 络 上 。 

包 过 滤 结构 的 最 大 的 优点 是 部 署 容易 ， 对 应 用 透明 。 一 个 产品 如 果 保 护 功能 十 分 强 
大 ， 但 是 不 能 加 到 你 的 网 络 中 去 ， 那 么 这 个 产品 所 提供 的 保护 就 毫 无 意义 ， 而 包 过 滤 产 品 
则 很 容易 安装 到 用 户 所 需要 控制 的 网 络 节点 上 ， 对 用 户 的 应 用 系统 则 几乎 没有 影响 。 特 别 
是 近来 出 现 的 透明 方式 的 包 过 滤 防 火 墙 ， 由 于 采用 了 网 桥 技 术 ， 几 乎 可 以 部 署 在 任何 的 以 
太 网 线路 上 ， 而 完全 不 需要 改动 原来 的 拓扑 结构 。 

包 过 滤 的 另 一 个 优点 是 性 能 ， 状 态 检测 包 过 滤 是 各 种 防火 墙 结构 中 在 吞吐 能 力 上 最 具 
优势 的 结构 。 但 是 对 于 防火 墙 产品 来 说 ， 毕 况 安 全 是 首要 的 因素 ， 包 过 滤 防 火 墙 对 于 网 络 
控制 的 依据 仍然 是 了 P 地 址 和 服务 端口 等 基本 的 传输 层 以 下 的 信息 。 对 于 应 用 层 则 缺少 足够 
的 保护 ， 而 大 量 的 网 络 攻击 是 利用 应 用 系统 的 漏洞 实现 的 。 


2. 应 用 代理 


应 用 代理 防火 墙 可 以 说 就 是 为 防范 应 用 层 攻 击 而 设计 的 。 应 用 代理 也 算是 一 个 历史 比 
较 长 的 技术 ， 最 初 的 代表 是 TIS 工具 包 ， 现 在 这 个 工具 包 也 可 以 在 网 络 上 免费 得 到 ， 它 是 
一 组 代理 的 集合 。 代 理 的 原理 是 彻底 隔断 两 端的 直接 通信 ， 所 有 通信 都 必须 经 应 用 层 的 代 
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理 转发 ， 访 问 者 任何 时 候 都 不 能 直接 与 服务 器 建立 直接 的 TCP 连接 ， 应 用 层 的 协议 会 话 过 
程 必须 符合 代理 的 安全 策略 的 要 求 。 针 对 各 种 应 用 协议 的 代理 防火 墙 提供 了 丰富 的 应 用 层 
的 控制 能 力 。 可 以 这 样 说 ， 状 态 检测 包 过 滤 规范 了 网 络 层 和 传输 层 行为 ， 而 应 用 代理 则 是 
规范 了 特定 的 应 用 协议 上 的 行为 。 

对 于 使 用 代理 防火 墙 的 用 户 来 说 ， 在 得 到 安全 性 的 同时 ， 用 户 也 需要 付出 其 他 的 代 
价 。 代 理 技术 的 一 个 主要 的 弱点 是 缺乏 对 应 用 的 透明 性 ， 这 个 缺陷 几乎 可 以 说 是 天 生 的 ， 
因为 它 只 有 位 于 应 用 会 话 的 中 间 环节 ， 才 会 对 会 话 进行 控制 ， 而 几乎 所 有 的 应 用 协议 在 设 
计时 都 不 认为 中 间 应 该 有 一 个 防火 墙 存在 。 这 使 得 对 于 许多 应 用 协议 来 说 实现 代理 是 相当 
困难 的 。 代 理 防火 墙 通常 是 一 组 代理 的 集合 ， 需 要 为 每 一 个 支持 的 应 用 协议 实现 专门 的 功 
能 ， 所 以 对 于 使 用 代理 防火 墙 的 用 户 来 说 ， 经 常 遇 到 的 问题 是 防火 墙 不 支持 某 个 正在 使 用 
的 应 用 协议 ， 要 么 放弃 防火 墙 ， 要 么 放弃 应 用 。 特 别 是 在 一 个 复杂 的 分 布 计算 的 网 络 环 境 
下 ， 几 乎 无 法 成 功 地 部 署 一 个 代理 结构 的 防火 墙 ， 而 这 种 情况 在 企业 内 部 网 进行 安全 区 域 
分 割 时 尤其 明显 。 

代理 的 另 一 个 无 法 回避 的 缺陷 是 性 能 很 差 。 代 理 防 火 墙 必须 建立 在 操作 系统 提供 的 
Socket 服务 接口 之 上 ， 其 对 每 个 访问 实例 的 处 理 开 销 和 资源 消耗 接近 于 Web 服务 器 的 两 
倍 。 这 使 得 应 用 代理 防火 墙 的 性 能 通常 很 难 超过 45Mbps 的 转发 速率 和 1000 个 并 发 访问 。 
对 于 一 个 繁忙 的 站 点 来 说 ， 这 是 很 难 接受 的 性 能 。 

代理 防火 墙 的 技术 发 展 远 没有 包 过 滤 技 术 活跃 ， 比 较 一 下 几 年 以 前 的 TIS 和 现在 的 代 
理 类 型 的 商用 产品 ， 在 核心 技术 上 几乎 没有 什么 变化 ， 变 化 的 主要 是 增加 了 协议 的 种 类 。 
同时 为 了 克服 代理 种 类 有 限 的 局 限 性 ， 很 多 代理 防火 墙 同时 也 提供 了 状态 检测 包 过 滤 的 能 
力 ， 当 用 户 遇 到 防火 墙 不 能 支持 的 应 用 协议 时 ， 就 以 包 过 滤 的 方式 让 其 通过 。 由 于 很 难 将 
这 两 者 的 安全 策略 结合 在 一 起 ， 所 以 混合 型 的 产品 通常 更 难于 配置 ， 也 很 难 真正 地 结合 P 
者 的 长 处 。 

状态 检测 包 过 滤 和 应 用 代理 这 两 种 技术 目前 仍然 是 防火 墙 市 场 中 普遍 采用 的 主流 技 
术 ， 但 两 种 技术 正在 形成 一 种 融合 的 趋势 ， 演 变 的 结果 也 许 会 导致 一 种 新 的 结构 名 称 的 出 
现 。 在 NetEye 防火 墙 中 以 状态 检测 包 过 滤 为 基础 实现 了 一 种 暂时 称 之 为 “ 流 过 滤 ” 的 结 
构 ， 其 基本 的 原理 是 在 防火 墙 外 部 仍然 是 包 过 滤 的 形态 ， 工 作 在 链 路 层 或 瑟 层 ， 在 规则 允 
许 下 ， 两 端 可 以 直接 的 访问 ， 但 是 对 于 任何 一 个 被 规则 允许 的 访问 在 防火 墙 内 部 都 存在 两 
个 完全 独立 的 TCP 会话， 数据 是 以 “ 流 ” 的 方式 从 一 个 会 话 流向 另 一 个 会 话 ， 由 于 防火 墙 
的 应 用 层 策略 位 于 流 的 中 间 ， 因 此 可 以 在 任何 时 候 代替 服务 器 或 客户 端 参与 应 用 层 的 会 
话 ， 从 而 起 到 了 与 应 用 代理 防火 墙 相同 的 控制 能 力 。 比 如 在 NetEye 防火 墙 对 SMTP 协议 
的 处 理 中 ， 系 统 可 以 在 透明 网 桥 的 模式 下 实现 完全 的 对 邮件 的 存储 转发 ， 并 实现 丰富 的 对 
SMTP 协议 的 各 种 攻击 的 防范 功能 。 

“ 流 过 滤 ”的 另 一 个 优势 在 于 性 能 ， 完 全 为 转发 目的 而 重新 实现 的 TCP 协议 栈 相 对 于 
以 自身 服务 为 目的 的 操作 系统 中 的 TCP 协议 栈 来 说 ， 消 耗资 源 更 少 而 且 更 加 高 效 ， 如 果 你 
需要 一 个 能 够 支持 几 千 个 ， 甚 至 数 万 个 并 发 访问 ， 同 时 又 有 相当 于 代理 技术 的 应 用 层 防 护 
能 力 的 系统 ，“ 流 过 滤 ” 结 构 几乎 是 唯一 的 选择 。 
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防火 墙 技术 发 展 了 这 么 多 年 ， 已 经 成 为 了 网 络 安全 中 最 为 成 熟 的 技术 ， 是 安全 管理 员 
手中 有 效 的 防御 工具 。 但 是 防火 墙 本 身 的 核心 技术 的 进步 却 从 来 没有 停止 过 ， 事 实 上 ， 任 
何 一 个 安全 产品 或 技术 都 不 能 提供 永远 的 安全 ， 因 为 网 络 在 变化 ， 应 用 在 变化 ， 入 侵 的 手 
段 在 变化 。 对 于 防火 墙 来 说 ， 技 术 的 不 断 进 步 才 是 真实 的 保障 。 

9.1.4 实现 防火 墙 的 几 种 方式 

有 以 下 4 种 方式 可 以 实现 防火 墙 。 

(1) 应 用 网 关 (Application Gateway): 检验 通过 此 网 关 的 所 有 数据 包 中 的 应 用 层 的 数 
据 ; 经 常 是 由 经 过 修改 的 应 用 程序 组 成 ， 运 行 在 防火 墙 上 。 如 FTP 应 用 网 关 ， 对 于 连接 的 
Client 端 来 说 是 一 个 FTP Server， 对 于 Server 端 来 说 是 一 个 FTP Client。 连 接 中 传输 的 所 有 
FTP 数据 包 都 必须 经 过 此 FTP 应 用 网 关 。 

(2) 电路 级 网 关 (Circuit-level Gateway): 此 电路 指 虚 电路 。 在 TCP 或 UDP 发 起 (open) 
一 个 连接 或 电路 之 前 ， 验 证 该 会 话 的 可 靠 性 。 只 有 在 握手 被 验证 为 合法 且 握 手 完 成 之 后 ， 
才 允 许 数据 包 的 传输 。 一 个 会 话 建立 后 ， 此 会 话 的 信息 被 写 入 防火 墙 维护 的 有 效 连接 表 
中 。 数 据 包 只 有 在 它 所 含 的 会 话 信息 符合 该 有 效 连 接 表 中 的 某 一 入 口 (entry) 时 ， 才 被 允许 
通过 。 会 话 结束 时 ， 该 会 话 在 表 中 的 入 口 被 删 掉 。 电 路 级 网 关 只 对 连接 在 会 话 层 进行 验 
证 。 一 旦 验证 通过 ， 在 该 连接 上 可 以 运行 任何 一 个 应 用 程序 。 以 FTP 为 例 ， 电 路 层 网 关 只 
在 一 个 FIP 会 话 开始 时 ， 在 TCP 层 对 此 会 话 进行 验证 。 如 果 验 证 通过 ， 则 所 有 的 数据 都 
可 以 通过 此 连接 进行 传输 ， 直 至 会 话 结束 。 

(3) 包 过 滤 (Packet Filter): 对 每 个 数据 包 按 照 用 户 所 定义 的 进行 过 滤 ， 如 比较 数据 包 
的 源 地 址 、 目 的 地 址 是 否 符合 规则 等 。 包 过 滤 不 管 会 话 的 状态 ， 也 不 分 析 数 据 。 如 用 户 规 
定 允 许 端 口 是 21 或 者 大 于 等 于 1024 的 数据 包 通过 ， 则 只 要 端口 符合 该 条 件 ， 数 据 包 便 可 
以 通过 此 防火 墙 。 如 果 配 置 的 规则 比较 符合 实际 应 用 的 话 ， 在 这 一 层 能 够 过 滤 掉 很 多 有 安 
全 隐患 的 数据 包 。 

(4) 代理 (Proxy): 通常 情况 下 指 的 是 地 址 代理 ， 一 般 位 于 一 台 代 理 服务 器 或 路 由 器 
上 。 它 的 机 制 是 将 网 内 主机 的 TP. 地 址 和 端口 替换 为 服务 器 或 路 由 器 的 IP. 地 址 和 端口 。 

举例 来 说 ， 一 个 公司 内 部 网 络 的 地 址 是 129.0.0.0 网 段 ， 而 公司 对 外 的 正式 IP 地 址 是 
202.138.160.2~202.38.160.6， 则 内 部 的 主机 129.9.9.100 以 WWW 方式 访问 网 外 的 某 一 台 服 
务 器 时 ， 在 通过 代理 服务 器 后 ，IP 地 址 和 端口 可 能 为 202.138.160.2:6080。 在 代理 服务 器 中 
维护 着 一 张 地 址 对 应 表 。 当 外 部 网 络 的 WWW 服务 器 返回 结果 时 ， 代 理 服务 器 会 将 此 IP 
地 址 及 端口 转化 为 内 部 网 络 的 IP 地 址 和 端口 80。 使 用 代理 服务 器 可 以 让 所 有 的 外 部 网 络 
的 主机 与 内 部 网 络 之 间 的 访问 都 必须 通过 它 来 实现 。 这 样 可 以 控制 对 内 部 网 络 带 有 重要 资 
源 需 求 的 机 器 的 访问 。 

路 由 器 中 的 防火 墙 主要 是 指 包 过 滤 加 地 址 转换 。 


8 


Visual C++ GES Se 


9.15 ”防火 墙 编程 
要 开发 防火 墙 工具 ， 需 要 先 建立 驱动 程序 。 通 过 使 用 IP 过 滤 驱 动 ， 可 以 开发 出 应 用 广 
泛 的 网 络 安全 产品 。 在 进行 驱动 开发 时 ， 大 多 数 都 是 选择 Filter-Hook Driver. 
Filter-Hook Driver 是 Windows 2000、Windows XP 等 系统 自 带 的 内 核 模式 驱动 ， 它 的 
结构 是 一 个 典型 的 内 核 模式 驱动 结构 。 
在 Windows 2000 和 Windows XP 中 ， 在 “System32\drivers” 目 录 下 的 IPfltdrv.sys 是 
Microsoft 提供 的 IP 协议 过 滤 驱 动 程序 。 它 允许 用 户 注册 自己 的 IP 数据 报 处 理 函 数 。 在 
MSDN 中 有 关于 这 方面 内 容 的 简短 说 明 ， 位 于 Filter-Hook Driver Reference 章节 中 。 这 一 
部 分 说 明文 档 论述 了 Filter-Hook 驱动 程序 实现 的 回调 函数 和 该 驱动 程序 用 以 注册 回调 函数 
的 IO 控制 码 。 回 调 函数 是 这 类 驱动 程序 的 主体 部 分 。 操 作 系统 提供 的 IP 过 滤 驱 动 程序 使 
用 这 个 过 滤 钧 子 来 判断 下 数据 包 的 处 理 方式 。 
所 注册 的 过 滤 钧 子 是 用 PacketFilterExtensionPtr 数据 类 型 定义 的 。 由 于 是 使 用 函数 的 
也 址 而 不 是 函数 的 名 字 注 册 过 滤 钩 子 的 入 口 点 ， 所 以 可 以 自由 地 为 过 滤 钩子 函数 命名 。 下 
面 分 别 说 明 钧 子 的 数据 结构 和 注册 该 钩子 的 IO 控制 码 。 
1. 回调 函数 
PacketFilterExtensionPtr 是 Filter-Hook Driver 的 回调 函数 ， 其 定义 格式 如 下 : 
typedef PF FORWARD ACTION (*PacketFilterExtensionPtr)( 
unsigned char  *PacketHeader, 
unsigned char  *Packet, 
unsigned int PacketLength, 
unsigned int RecvInterfaceIndex, 
unsigned int SendInterfaceIndex, 
IPAddr RecvLinkNextHop, 
IPAddr SendLinkNextHop 
); 
该 类 型 就 是 过 滤 钧 子 的 回调 函数 ， 它 决定 所 有 传 过 来 的 他 数据 包 的 命运 一 一 是 继续 传 
递 ， 还 是 丢掉 ， 或 者 允许 IP 过 滤 驱 动 程序 继续 处 理 。 
(1) 参数 说 明 
回调 函数 PF FORWARD _ ACTION0 中 各 个 参数 的 具体 说 明 如 下 。 
Q  PacketHeader: 指向 该 数据 包 的 IP 头 部 的 指针 。Filter-Hook 驱动 程序 可 以 将 其 转 
换 为 IPHeader 结构 指针 类 型 。 

Q Packet: Filter-Hook 驱动 程序 接收 到 的 包含 数据 包 信息 的 缓冲 区 指针 。 该 缓冲 区 
不 包含 PacketHeader 指针 指向 的 他 协议 头 。 

Q  PacketLength: 以 字 节 为 单位 的 Packet 缓冲 区 的 长 度 。 该 长 度 不 包含 IP 协议 头 的 
大 小 。 

Q  RecvInterfaceIndex: 数据 包 到 达 的 接口 适配器 的 序号 。Filter-Hook 驱动 程序 使 用 
该 序号 访问 接收 数据 包 的 适配器 。 对 于 发 送 的 数据 包 ， 该 参数 为 INVALID_PF_ 


Q 


(2) 


的 值 。 
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IF INDEX, Jf H £3 RecvLinkNextHop 的 值 没有 意义 。 
SendInterfaceIndex: 数据 包 发 送 的 接口 适配器 的 序号 。 如 果 数 据 包 需 要 通过 该 适 


配器 路 由 ， 


可 以 通过 简单 网 络 协议 (SNMP) 查 询 路 由 


表 。 对 于 接收 的 数据 包 ， 该 


参数 为 INVALID PF IF INDEX， 并 且 参 数 SendLinkNextHop 的 值 没有 意义 。 
RecvLinkNextHop: 如 果 接 口 适配器 是 一 个 多 点 接口 ， 该 参数 为 适配器 接收 该 数 
据 包 时 的 下 地址。 否则 ， 该 参数 为 ZERO_ PF IP ADDR. 

SendLinkNextHop: 如 果 接 口 适 配器 是 一 个 多 点 接口 ， 该 参数 为 适配器 接 发 送 数 
据 包 时 的 人 P 地 址 。 否 则 该 参数 为 ZERO PF IP ADDR. 


返回 值 


回调 函数 PF_FORWARD_ACTION() 将 会 返回 


如 下 PF FORWARD ACTION 枚 举 类 型 


Q PF FORWARD: 该 返回 值 指示 IP 过 滤 驱 动 程序 应 该 立刻 将 数据 包 转 发 到 IP 协 
议 栈 中 。 如 果 该 数据 包 是 本 机 需要 的 数据 包 ， 卫 协议 将 其 转发 给 上 层 协 议 处 理 ， 
如 果 不 是 到 本 机 的 数据 包 ， 则 TP 将 路 由 该 数据 包 (如 果 此 时 路 由 功能 被 打开 )。 
PF DROP: 该 返回 值 指示 IP 过 滤 驱 动 程序 将 立刻 向 IP 协议 栈 发 出 丢弃 响应 。 这 
时 IP 协议 将 丢弃 该 数据 包 。 
PF PASS: 该 返回 值 指示 IP 过 滤 驱 动 程序 处 理 该 数据 包 ， 并 将 结果 动作 返回 到 
IP 协议 栈 。 若 Filter-Hook 驱动 程序 认为 不 需要 处 理 该 数据 包 ， 则 应 该 返回 该 值 。 
(3) 参数 PacketHeader 
参数 PacketHeader 指向 的 缓冲 区 通常 被 定义 为 IPHeader 结构 ， 在 该 结构 中 提供 了 数据 
包 的 细节 信息 。IPHeader 结构 的 定义 格式 如 下 : 


typedef struct iphdr ( 


u 


u 


UCHAR 
UCHAR 
USHORT 
USHORT 
USHORT 
UCHAR 
UCHAR 
USHORT 
ULONG 
ULONG 


} iphdr; 


iph verlen; // Version and length 

iph tos; // Type of service 
iph_length; // Total datagram length 
iph id; // Identification 

iph offset; // Flags, fragment offset 
iph ttl; // Time to live 

iph protocol;  // Protocol 

iph xsum; // Header checksum 

iph src; // Source address 

iph dest; // Destination address 


2. 函数 loBuildDeviceloControlIRequest() 

Filter-Hook 使 用 该 VO 控制 码 建立 一 个 IRP， 并 将 其 提交 给 IP 过 滤 驱 动 程 序 。 通 常 
Filter-Hook 驱动 程序 使 用 IloBuildDeviceloControlRequest() P ZA ££ v7. jr hi If] IRP. 

该 控制 码 向 IP 过 滤 驱 动 程序 注册 过 滤 钧 子 回调 函数 ， 当 有 数据 包 发 送 或 者 接收 时 ， 人 PP 


这 些 回调 函数 。 并 且 ， 该 控制 码 也 用 来 从 IP 过 滤 驱 动 程序 中 清除 回 
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函数 IoBuildDeviceIoControlRequestO 的 声明 格式 如 下 : 


PIRP IoBuildDeviceloControlRequest ( 


) 7 


IN ULONG IoControlCode, 

IN PDEVICE OBJECT DeviceObject, 

IN PVOID InputBuffer OPTIONAL, 

IN ULONG InputBufferLength, 

OUT PVOID OutputBuffer OPTIONAL, 
IN ULONG OutputBufferLength, 

IN BOOLEAN InternalDevicelIoControl, 
IN PKEVENT Event, 

OUT PIO_STATUS_BLOCK IoStatusBlock 


各 个 参数 的 具体 说 明 如 下 。 


口 


口 


口 


a 


ToControlCode: 提供 VO 控制 请 求 所 需 的 VO 控制 码 。 这 个 VO 控制 码 可 以 在 
msdn 中 查询 到 。 

DeviceObject: 指向 下 层 驱动 的 设备 对 象 的 指针 。 这 个 就 是 构造 的 IRP 要 被 发 向 
的 目标 对 象 。 

InputBuffer: 指向 输入 缓冲 区 的 指针 ， 这 个 缓冲 区 中 的 内 容 是 给 下 层 驱 动 使 用 
的 。 此 指针 可 为 NULL。 

InputBufferLength: 输入 缓冲 区 的 长 度 ， 按 字 节 计算 。 若 InputBuffer 为 NULL, 
则 此 参数 必须 为 0。 

OutputBuffer: 指向 输出 缓冲 区 的 指针 ， 这 个 缓冲 区 是 用 于 给 下 层 驱 动 返回 数 
据 。 此 指针 可 为 NULL。 

OutputBufferLength: 输出 缓冲 区 的 长 度 ， 按 字 节 计算 。 如 果 OutputBuffer 为 
NULL， 则 此 参数 必须 为 0。 

InternalDeviceloControl: 如 果 此 参数 为 TRUE， 这 个 函数 设置 所 构造 的 IRP 的 主 
函数 码 (Major Function Code) IRP MJ INTERNAL DEVICE CONTROL, I) 
这 个 函数 设置 所 构造 的 IRP 的 主 函数 码 为 了 RP_MJ DEVICE CONTROL. 

Event: 提供 一 个 指向 事件 对 象 的 指针 ， 该 事件 对 象 由 调用 者 分 配 并 初始 化 。 当 下 
层 驱 动 程序 完成 这 个 IRP 请 求 时 UO 管理 器 将 此 事件 对 象 设置 为 通知 状态 
(Signaled)。 调 用 IoCallDriver 后 ， 调 用 者 可 以 等 待 这 个 事件 对 象 成 为 通知 状态 。 
IoStatusBlock: 调用 者 指定 一 个 IO 状态 块 ， 当 这 个 IRP 完成 时 ， 下 层 驱动 会 把 
相应 信息 填 入 这 个 IO 状态 块 。 


当 调用 此 函数 成 功 时 ， 会 返回 一 个 指向 所 构造 的 IRP 的 指针 并 且 下 一 层 驱 动 的 IO HE 
栈 会 根据 调用 此 函数 提供 的 参数 设置 好 ， 若 调用 失败 ， 将 返回 NULL。 

Filter-hook 驱动 程序 通过 调用 IoBuildDeviceloControlRequest() rf Zi ££ y. IRP, Filter- 
Hook 驱动 程序 将 所 需 的 参数 传 入 。 其 中 一 个 为 IP 过 滤 驱 程 的 设备 对 象 ，Filter-Hook 驱 程 


可 以 使 用 


IoGetDeviceObjectPointer() 函 数 。 这 时 ， 要 将 IP 过 滤 驱 程 的 设备 对 象 的 名 字 作 为 


参数 传 入 ， 还 有 SYNCHRONIZE, GENERIC READ 和 GENERIC _ WRITE。 这 些 参数 表明 
这 三 种 访问 权限 是 必需 的 。 如 果 调 用 成 功 ，IoGetDeviceObjectPointer() 返 回 目标 设备 对 象 和 
文件 对 象 。 卫 过 滤 驱 动 程序 的 设备 对 象 的 名 字 需 要 使 用 “\Device\ipfilterdriver” 的 Unicode 
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字符 串 。 
然后 使 用 IoCallDriver0 函 数 提交 IRP. 
PF SET EXTENSION HOOK INFO 结构 的 定义 如 下 ， 其 中 包含 了 回调 函数 的 指针 : 


typedef struct PF SET EXTENSION HOOK INFO 
{ 


PacketFilterExtensionPtr ExtensionPointer; 
) PF SET EXTENSION HOOK INFO, *PPF SET EXTENSION HOOK INFO; 


成 员 ExtensionPointer 是 指向 Hook 回调 函数 的 指针 。 通 过 该 结构 完成 向 IP 过 滤 驱 动 
程序 注册 Hook 函数 。 如 果 ExtensionPointer 为 NULL， 则 从 IP 过 滤 驱 动 程序 中 清除 回调 
函数 。 


9.1.6 ”小 试 牛刀 一 一 IP 过 滤 驱 动 演练 


当前 有 很 多 NDIS 和 TDI 的 驱动 资料 ， 并 且 有 比较 成 熟 的 代码 可 以 供 读者 参考 ， 但 是 
使 用 IPFIREWALL.h 开发 的 IP 过 滤 驱 动 的 资料 非常 少 。 为 此 作者 在 借鉴 前 人 经 验 的 基础 
上 ， 写 了 一 个 很 简单 的 驱动 程序 。 为 了 便于 读者 后 续 扩 展 ， 将 特殊 的 回调 函数 去 掉 了 ， 保 
留 了 最 原始 的 完整 框架 ， 读 者 可 以 在 此 基础 上 继续 快速 开发 。 

(1) 文件 SmatrixIPDiv.cpp 实现 IP 过 滤 驱 动 ， 利 用 ipfirewall 捕获 包 、 分 析 包 和 过 滤 
包 功 能 。 具 体 代码 如 下 : 


extern"C"( 

#include <stdio.h> 

#include <string.h> 

#include <stdlib.h> 

#include <ntddk.h> 

#include <ntddndis.h> 

#include <pfhook.h> 

#include <ndis.h> 

#include <ipfirewall.h> 

} 
#include "SmatrixIPDiv.h" 
#include "protocol.h" 
LHUAllllltttt t Hur BREQREISSSI/LZZ LLL TIT HL MM T Gg 
// 关 闭 打开 驱动 函数 
NTSTATUSDispatchCreateClose(PDEVICE OBJECTpDevObj, PIRPpIrp); 
// 驱 动 卸载 函数 
voidDriverUnload(PDRIVER OBJECTpDriverObj); 


//IO 控制 派遣 函数 (内 核 消息 处 理 ) 
NTSTATUSDispatchlIoctl(PDEVICE OBJECTpDevObj, PIRPpIrp); 
// 向 过 滤 列表 中 添加 一 个 过 滤 规 则 
NTSTATUSAddFilterToList(CIPFilter *pFilter); 

// 清 除 过 滤 列 表 

voidClearFilterList (); 


/ HAERES e RE PRL 
NTSTATUS SetFilterFunction(IPPacketFirewallPtr filterFunction, BOOLEAN load); 


g 


// 包 过 滤 函 数 

FORWARD ACTION FilterPacket ( 
unsignedchar *PacketHeader, 
unsignedchar *Packet, 
unsignedint PacketLength, 
DIRECTION E direction, 
unsignedint RecvInterfaceIndex, 
unsignedint SendInterfaceIndex 

i 


/ /1P 过 滤器 函数 

FORWARD ACTION IPFilterFunction( 
VOID  **pData, 
UINT  RecvInterfaceIndex, 
UINT  *pSendInterfaceIndex, 
UCHAR  *pDestinationType, 
VOID  *pContext, 
UINT  ContextLength, 
struct IPRcvBuf **pRcvBuf 

) 7 


// 过 滤 列 表 首 地 址 
struct CFilterList *g pHeader = NULL; 
// 驱 动 内 部 名 称 和 符号 连接 名 称 
#define DEVICE NAMEL "\\Device\\DevSMF1tIP" 
#define LINK NAMEL "\\DosDevices\\DrvSMF1tIp" 
// 驱 动 入 口 函数 
NTSTATUS DriverEntry (PDRIVER OBJECTpDriverObj, 
PUNICODE STRINGpRegistryString) 
ü 
NTSTATUS status = STATUS SUCCESS; 
// 初 始 化 各 个 派遣 例 程 
pDriverObj-»MajorFunction[IRP MJ CREATE] = DispatchCreateClose; 
pDriverObj-»MajorFunction[IRP MJ CLOSE] = DispatchCreateClose; 
pDriverObj-»MajorFunction[IRP MJ DEVICE CONTROL] = DispatchIoctl; 
pDriverObj-»DriverUnload = DriverUnload; 
// 创 建 、 初 始 化 设备 对 象 
// 设 备 名 称 
UNICODE STRINGustrDevName; 
RtlInitUnicodeString(&ustrDevName, DEVICE NAME); 
// 创 建设 备 对 象 
PDEVICE OBJECT pDevObj; 
status = IoCreateDevice( 
pDriverObj, 
0, 
&ustrDevName, 
FILE DEVICE DRVFLTIP, 
0, 
FALSE, 
&pDevObj 
); 
if(!NT SUCCESS (status) ) 
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returnstatus; 


) 
// 创 建 符号 连接 名 称 
// 符 号 连接 名 称 
UNICODE STRING ustrLinkName; 
RtlInitUnicodeString(&ustrLinkName, LINK NAME); 
// 创 建 关联 
status = IoCreateSymbolicLink(&ustrLinkName, &ustrDevName); 
if(!NT SUCCESS (status)) 
t 
IoDeleteDevice (pDevObj); 
return status; 
) 
returnSTATUS SUCCESS; 
} 
voidDriverUnload(PDRIVER OBJECT pDriverObj) 
t 
// 印 载 过 滤 函 数 
SetFilterFunction(IPFilterFunction, FALSE); 
// 释 放 所 有 资源 
ClearFilterList(); 
// 删 除 符号 连接 名 称 
UNICODE STRINGstrLink; 
RtlInitUnicodeString(&strLink, LINK NAME); 
IoDeleteSymbolicLink(&strLink); 
// 删 除 设备 对 象 
IoDeleteDevice (pDriverObj-»DeviceObject); 
} 
// 处 理 IRP MJ CREATE. IRP MJ CLOSE 功能 代码 
NTSTATUS DispatchCreateClose(PDEVICE OBJECT pDevObj, PIRP pIrp) 
ü 
pirp-»IoStatus.Status = STATUS SUCCESS; 
// pIrp-»IoStatus.Information = 0; 
// 完 成 此 请 求 
IoCompleteRequest (pIrp, IO NO INCREMENT); 
return STATUS SUCCESS; 


} 
//1/0 控制 派遣 例 程 
NTSTATUS Dispatchloctl(PDEVICE OBJECT pDevObj, PIRP pIrp) 
{ 
NTSTATUS status = STATUS SUCCESS; 
// 取 得 此 IRP (pIrp) 的 1/0 堆栈 指针 
PIO STACK LOCATION pIrpStack = IoGetCurrentIrpStackLocation (pIrp) ; 
// 取 得 1/0 控制 代码 
ULONG uloControlCode = 
pirpStack-»Parameters.DeviceloControl.IoControlCode; 
/ [3 1/0 缓冲 区 指针 和 它 的 长 度 
PVOIDpIoBuffer-pIrp-»AssociatedIrp.SystemBuffer; 
ULONG uInSize = pIrpStack-»Parameters.DeviceloControl.InputBufferLength; 


// 响 应 用 户 的 命令 


- 网 络 编程 开发 与 实战 


switch (uIoControlCode) 

{ 

case START IP HOOK: // 开 始 过 滤 
status = SetFilterFunction(IPFilterFunction, TRUE); 
break; 

case STOP IP HOOK: // 停 止 过 滤 
status = SetFilterFunction(IPFilterFunction, FALSE); 


break; 
caseADD FILTER: // 添 加 一 个 过 滤 规 则 
if(uInSize == sizeof (CIPFilter)) 
status = AddFilterToList ((CIPFilter*)pIoBuffer); 
else 
status = STATUS INVALID DEVICE REQUEST; 
break; 


case CLEAR FILTER: // 释 放 过 滤 规则 列表 
ClearFilterList(); 
break; 


default: 
Status = STATUS INVALID DEVICE REQUEST; 
break; 

} 


// 完 成 请 求 

pirp-»IoStatus.Status = status; 
plrp-»IoStatus.Information = 0; 
IoCompleteRequest (pIrp, IO NO INCREMENT); 
returnstatus; 


} 
// 过 滤 列表 
// 向 过 滤 列 表 中 添加 一 个 过 滤 规 则 
NTSTATUS AddFilterToList(CIPFilter *pFilter) 
t 
// 为 新 的 过 滤 规 则 申请 内 存 空间 
CFilterList *pNew = 
(CFilterList*) ExAllocatePool (NonPagedPool, sizeof (CFilterList) ); 
if (pNew == NULL) 
return STATUS INSUFFICIENT RESOURCES; 
// 填 充 这 块 内 存 
RtlCopyMemory(&pNew-»ipf, pFilter, sizeof (CIPFilter)); 
// 连 接 到 过 滤 列 表 中 
pNew-»pNext = g pHeader; 
g pHeader = pNew; 
return STATUS SUCCESS; 
5 
// 清 除 过 滤 列 表 
voidClearFilterList () 
{ 
CFilterList *pNext; 
// 释 放 过 滤 列 表 占 用 的 所 有 内 存 
while(g pHeader != NULL) 
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pNext = g pHeader-»pNext; 
// 释 放 内 存 
ExFreePool(g pHeader); 
g pHeader - pNext; 
$ 


} 

// 包 过 滤 函 数 

FORWARD ACTION FilterPacket( 
unsignedchar *PacketHeader, 
unsignedchar *Packet, 
unsignedint PacketLength, 
DIRECTION E direction, 
unsignedint RecvInterfaceIndex, 
unsignedint SendInterfaceIndex) 


// 提 取 IP 头 

IPHeader *pIPHdr = (IPHeader*)PacketHeader; 
TCPHeader *pTCPHdr - NULL; 

UDPHeader *pUDPHdr NULL; 

if (pIPHdr->ipProtocol == 6) // 是 TCP 协 议 

t 


// 提 取 TCR 头 
pTCPHdr = (TCPHeader*)Packet; 
// 我 们 接受 所 有 已 经 建立 连接 的 TCP 封包 
if(!(pTCPHdr-»flags&0x02)) 
t 
returnFORWARD; 
Hi 


} 
// 与 过 滤 规 则 相 比 较 ， 决 定 采取 的 行动 
CFilterList *pList = g pHeader; 
while(pList != NULL) 
t 
// 比 较 协议 
if (pList->ipf .protocol==0 
|| phist-»ipf.protocol--pIPHdr-»ipProtocol) 
{ 
// 查 看 源 IP 地 址 
if (pList->ipf.sourceIP != 
O&(pList-»ipf.sourceIP&pList-»ipf.sourceMask) !=pIPHdr->ipSource) 
{ 
pList = pList-»pNext; 
continue; 


} 

// 查 看 目标 IP 地 址 

if(pList-»ipf.destinationIP != 
O0&(pList-»ipf.destinationIP&pList-»ipf.destinationMask) 
!=pIPHdr—>ipDestination) 


pList = pList-»pNext; 
continue; 


} 
// 如 果 是 TCP 封包 ， 查 看 端口 号 
if (pIPHdr->ipProtocol == 6) 
{ 
pTCPHdr = (TCPHeader*) Packet; 
if (pList—>ipf .sourcePort==0 
|| pList-»ipf.sourcePort--pTCPHdr-»sourcePort) 
{ 
if (pList->ipf .destinationPort== 
|| pList-»ipf.destinationPort--pTCPHdr-»destinationPort) 
{ 
// 现 在 决定 如 何 处 理 这 个 封包 
if (pList->ipf.bDrop) 
return DROP; 
else 
return FORWARD; 


) 


) 
// 如 果 是 UDP 封包 ， 查 看 端口 号 
elseif (pIPHdr->ipProtocol == 17) 
{ 
pUDPHdr = (UDPHeader*) Packet; 
if (pList->ipf .sourcePort==0 
|| pList->ipf.sourcePort==pUDPHdr->sourcePort) 


{ 


if (pList->ipf.destinationPort==0 
|| pList->ipf.destinationPort==pUDPHdr->destinationPort) 
{ 
// 现 在 决定 如 何 处 理 这 个 封包 
if(PList->ipf.bDrop) 
returnDROP; 
else 
returnFORWARD; 


} 
else 


{ 

// 对 于 其 他 封包 ， 我 们 直接 处 理 
if(pList-»ipf.bDrop) 
return DROP; 

else 
return FORWARD; 


} 


H 
// 比 较 下 一 个 规则 
pList = pList-»pNext; 


} 


// 我 们 接受 所 有 没有 注册 的 封包 


return FORWARD; 
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J 
// 注 册 钧 子 回 调 函 数 


NTSTATUS SetFilterFunction(IPPacketFirewallPtr filterFunction, BOOLEAN load) 


t 


//{ 变 量 定义 BEGIN] 

NTSTATUS status = STATUS SUCCESS; // KWRA 

NTSTATUS waitStatus = STATUS SUCCESS; // 受 信 状 态 

PDEVICE OBJECT pDeviceobj = NULL; //pDeviceOb} 变量 将 指向 IP 过 滤 驱 动 设备 对 象 
PFILE OBJECT pFileObj = NULL; // 内 核 过 滤器 设备 

IP SET FIREWALL HOOK INFO filterData; //IP SET FIREWALL HOOK INFO 结构 


UNICODE STRING ustrFilterDriver; //IP 过 滤 驱 动 的 名 称 
KEVENT event; 
IO STATUS BLOCK ioStatus; 
PIRP pIrp; 
// {变量 定义 END} 
// 初 始 化 IP 过 滤 驱 动 的 名 称 
RtlInitUnicodeString(&ustrFilterDriver, DD IP DEVICE NAME); 
// 取 得 设备 对 象 指针 
status = IoGetDeviceObjectPointer (&ustrFilterDriver, 

STANDARD RIGHTS ALL, &pFileObj, &pDeviceObj); 
if(!NT SUCCESS (status)) 
{ 

return status; 


) 
4111111111 TRIB] re 过 滤 驱 动 中 设备 对 象 的 指针 创建 一 个 18p// 7 / 14 1 40 44) 4 1 4 9 MH 
//Wij& IP SET FIREWALL HOOK INFO 结构 
filterData.FirewallPtr = filterFunction; 
filterData.Priority - 1; 
filterData.Add = load; 
// 我 们 需要 初始 化 一 个 事件 对 象 。 
// 构 建 IRP 时 需 使 用 这 个 事件 内 核对 象 ， 当 IP 过 滤 接 受到 此 IRP， 完 成 工作 后 会 将 它 置 位 
KeInitializeEvent (&event, NotificationEvent, FALSE); 
// 为 设备 控制 请 求 申 请 和 构建 一 个 IRP 
pIrp = IoBuildDeviceIoControlRequest ( 

IOCTL IP SET FIREWALL HOOK, //io control code 

pDeviceObj, 

(PVOID) &filterData, 

Sizeof(IP SET FIREWALL HOOK INFO), 

NULL, 

0, 

FALSE, 

&event, 

&ioStatus); 


if (NULL == pIrp) 
{ 

// 如 果 不 能 申请 空间 得 到 pIrp， 返 回 对 应 的 错误 代码 

return STATUS INSUFFICIENT RESOURCES; 
} 
A11111111111111 请 求 安装 钧 子 回调 函数 /1114741117111111111111111111 
// 发 送 此 IRP 到 IP 过 滤 驱 动 


status = IoCallDriver(pDeviceObj, pIrp); 
// 等 待 IP 过 滤 驱 动 的 通知 
if(status — STATUS PENDING) 
t 
waitStatus = 
KeWaitForSingleObject(&event, Executive, KernelMode, FALSE, NULL); 


if(!NT SUCCESS(waitStatus)) // 受 信 状 态 不 成 功 ， 返 回 
t 
return waitStatus; 


) 
status = ioStatus.Status; 
if(!NT SUCCESS(status)) // 状 态 不 成 功 ， 返 回 
t 
return status; 
) 
HU B MIL LL LL B TATA BRESREORRRU LLL LL LL B B g MM MUI TTT n n ng ng n 
if(pFileObj != NULL) 
ObDereferenceObject (pFileObj); 
pDeviceObj = NULL; ”// 避 免 产 生 时 指针 
pFileObj = NULL;  // 避 免 产 生 野 指针 


return status; 


//IP 过 滤器 函数 
FORWARD ACTIONIP FilterFunction( 
VOID **pData, 
UINT RecvInterfaceIndex, 
UINT *pSendInterfaceIndex, 
UCHAR *pDestinationType, 
VOID *pContext, 
UINT ContextLength, 
struct IPRcvBuf **pRcvBuf) 


FORWARD ACTION result = FORWARD; 

unsignedchar *packet = NULL; 

int bufferSize = 0; 

struct IPRcvBuf *buffer - (struct IPRcvBuf*)*pData; 

PFIREWALL CONTEXT T fwContext = (PFIREWALL CONTEXT T)pContext; 
DIRECTION E direction = IP RECEIVE; 


// 如 果 包 指针 不 为 空 ， IPRcvBuf 中 存在 数据 
if(buffer != NULL) 
t 

bufferSize = buffer->ipr size; 


while(buffer-»ipr next != NULL) // 得 到 整个 IPRcvBuf 缓冲 链 中 数据 总 长 度 
buffer = buffer-»ipr next; 
bufferSize += buffer-»ipr size; 
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// 分 配 一 个 不 分 页 的 内 存 ， 将 整个 IPRcvBuf 缓冲 链 放 入 其 中 
packet = (unsignedchar*) ExAllocatePool (NonPagedPool, bufferSize); 
if(packet != NULL) 
{ 
IPHeader *ipp = (IPHeader*) packet; 
unsignedint offset = 0; 
buffer = (struct IPRcvBuf*) *pData; 
memcpy (packet, buffer-»ipr buffer, buffer-»ipr size); 


while(buffer-»ipr next != NULL) 
i 
offset += buffer-»ipr size; 
buffer - buffer-»ipr next; 


memcpy (packet+offset, buffer-»ipr buffer, buffer-»ipr size); 
} 
if (NULL != fwContext) 
{ 
direction = fwContext-»Direction; 
} 
else 


{ 
direction = (DIRECTION E)0; 


} 
// 调 用 包 检 测 函 数 ， 通 过 返回 FORWARD， 否 则 返回 DROP 
result = FilterPacket( 
packet, 
packet+ (ipp->ipHeaderLength*4) , 
bufferSize- (ipp-»ipHeaderLength*4), 
direction, 
RecvInterfaceIndex, 
(pSendInterfaceIndex!=NULL) ? *pSendInterfaceIndex : 0); 
} 


} 
// 释 放 分 配 的 临时 包 缓存 
if(NULL != packet) ExFreePool (packet); 


return result; 
} 


(2) 文件 protocolh 定义 常见 的 封包 结构 信息 。 具 体 实 现代 码 如 下 : 


typedef struct IPHeader { 
UCHAR ipHeaderLength:4; // 头 长 度 
UCHAR ipVersion:4; // 版 本 号 
UCHAR ipTOS; ”// 服 务 类 型 
USHORT ipLength; // 封 包 总 长 度 ， 即 整个 rp 报 的 长 度 
USHORT ipID; // 封 包 标识 ， 唯 一 标识 发 送 的 每 一 个 数据 报 
USHORT ipFlags; // 标 志 
UCHAR ipTTL; // 生 存 时 间 ， 就 是 TTL 
UCHAR ipProtocol; // 协 议 ， 可 能 是 TCP、UDP、ICMP 等 
USHORT ipChecksum; // 校 验 和 
ULONG ipSource; // 源 IP 地 址 


t 


ULONG ipDestination; // 目 标 IP 地 址 
) IPPacket; 
typedef struct  TCPHeader 


USHORT sourcePort; // 源 端口 号 
USHORT ”destinationPort; // 目 的 端口 号 
ULONG SequenceNumber; 
ULONG acknowledgeNumber; // 确 认 序 号 
UCHAR dataoffset; // 数 据 指针 


UCHAR flags; 


USHORT | windows; 
USHORT checksum; 


// 标 志 


// 序 号 


// 窗 口 大 小 
// 校 验 和 


USHORT  urgentPointer; // 紧 急 指 针 
) TCPHeader; 


typedef struct _UDPHeader 


{ 


USHORT  sourcePort; // 
USHORT destinationPort; // 目 的 端口 号 


USHORT len; // 


USHORT  checksum; 


) UDPHeader; 


封包 长 度 


源 端口 号 


// 校 验 和 


enum 
{ 
IPPROTO IP = 0, //DummyprotocolforTCP. 
IPPROTO HOPOPTS = 0, //IPv6Hop-by-Hopoptions.*/ 
IPPROTO ICMP = 1, //InternetControlMessageProtocol.*/ 
IPPROTO IGMP = 2, //InternetGroupManagementProtocol.*/ 
IPPROTO IPIP = 4, //IPIPtunnels (olderKA9Qtunnelsuse94).*/ 
IPPROTO TCP = 6, //TransmissionControlProtocol.*/ 
IPPROTO EGP = 8, //ExteriorGatewayProtocol.*/ 
IPPROTO PUP = 12, // PUPprotocol.*/ 
IPPROTO UDP = 17, // UserDatagramProtocol.*/ 
IPPROTO IDP = 22, //XNSIDPprotocol.*/ 
IPPROTO TP = 29, //SOTransportProtocolClass4.*/ 


n 


IPPROTO IPV6 
IPPROTO ROUTING 


IPPROTO FRAGMENT 


IPPROTO RSVP 


= ful, 


// IPv6header.*/ 


= 43, // IPv6routingheader.*/ 


EMG 


= 44, // IPv6fragmentationheader.*/ 


//ReservationProtocol.*/ 


IPPROTO GRE = 47, //GeneralRoutingEncapsulation.*/ 
IPPROTO ESP = 50, //encapsulatingsecuritypayload.*/ 
IPPROTO AH = 51, //authenticationheader.*/ 

IPPROTO ICMPV6 = 58, //ICMPv6.*/ 

IPPROTO NONE = 59, /*IPv6nonextheader.*/ 


IPPROTO DSTOPTS 
IPPROTO MTP 
IPPROTO ENCAP 
IPPROTO PIM 
IPPROTO COMP 
IPPROTO RAW 
IPPROTO MAX 


= 60, /*IPv6destinationoptions.*/ 
= 92, /*MulticastTransportProtocol.*/ 


- 98, 


/*EncapsulationHeader.*/ 
/*ProtocolIndependentMulticast.*/ 
/*CompressionHeaderProtocol.*/ 
/*RawIPpackets.*/ 
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(3) 文件 SmatrixIPDiv.h, SKIE IP 过 滤 驱 动 相关 结构 和 宏 定 义 。 具 体 实现 代码 如 下 : 


#ifndef SMATRIXIPDIV H - 
#define SMATRIXIPDIV H - 


// 自 定义 设备 类 型 ， 在 创建 设备 对 象 时 使 用 
// 注 意 ， 自 定义 值 的 范围 是 32768~65535 
$defineFILE DEVICE DRVFLTIP0x00654322 


// 自 定义 的 xo 控制 代码 ， 用 于 区 分 不 同 的 设备 控制 请 求 
// 注 意 ， 自 定义 值 的 范围 是 2048~4095 
#define DRVFLTIP IOCTL INDEX 0x830 


// 定 义 各 种 设备 控制 代码 。 分 别 是 开始 过 滤 、 停 止 过 滤 、 添 加 过 滤 规 则 、 清 除 过 滤 规 则 
#define START IP HOOK CTL CODE (FILE DEVICE DRVFLTIP, \ 
DRVFLTIP IOCTL INDEX, METHOD BUFFERED, FILE ANY ACCESS) 
#defineSTOP IP HOOK CTL CODE (FILE DEVICE DRVFLTIP, \ 
DRVFLTIP_IOCTL_INDEX+1, METHOD BUFFERED, FILE ANY ACCESS) 
#defineADD FILTER CTL CODE (FILE DEVICE DRVFLTIP,V 
DRVFLTIP_IOCTL_INDEX+2, METHOD BUFFERED, FILE WRITE ACCESS) 
#defineCLEAR FILTER CTL CODE (FILE DEVICE _DRVFLTIP, \ 
DRVFLTIP IOCTL INDEX+3, METHOD BUFFERED, FILE ANY ACCESS) 


// 定 义 过 滤 规 则 的 结构 
structCIPFilter 
{ 

USHORTprotocol; // 使 用 的 协议 


ULONGsourceIP; // 源 IP 地 址 
ULONGdestinationIP; // 目 标 IP 地 址 


ULONGsourceMask; ”// 源 地 址 屏蔽 码 
ULONGdestinationMask; // 目 的 地 址 屏蔽 码 


USHORTsourcePort; // 源 端口 号 
USHORTdestinationPort; // 目 的 端口 号 


BOOLEANbDrop; ”// 是 否 丢弃 此 封包 
he 


// 过 滤 列 表 
struct CFilterList 
{ 
CIPFilter ipf; // 过 滤 规 则 
CFilterList *pNext; // 指 向 下 一 个 CFilterList 结构 
Uc 
#endif //  SMATRIXIPDIV H — 


上 述 代码 都 做 了 详细 的 注释 ， 读 者 只 要 稍微 有 点 驱动 设计 基础 ， 都 能 看 懂 。 
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9.2 ”小 试 牛刀 一 一 一 个 简单 的 防火 墙 程序 


经 过 本 章 前 面 内 容 的 学 习 ， 已 经 基本 了 解 了 开发 网 络 防火 墙 的 基本 知识 。 在 本 节 的 内 
容 中 ， 将 通过 一 个 具体 实例 的 实现 过 程 ， 来 讲解 开发 简单 网 络 防火 墙 的 方法 。 


实例 功能 | 使 用 Visual C++ 开 发 一 个 简单 的 网 络 防火 墙 
源码 路 径 | 光盘 \yuanmavojiandan 
92.1 原理 


本 实例 基于 Filter-Hook Driver。 

Filter-Hook Driver 并 不 是 网 络 驱 动 ， 而 是 一 种 内 核 模式 驱动 (Kernel Mode Driver). 7t 
Filter-Hook Driver 中 ， 我 们 提供 回调 函数 (CallBack)， 然 后 使 用 IP Filter Driver 注册 回调 函 
数 。 这 样 当 数 据 包 发 送 和 接收 时 ，IP Filter Driver 会 调用 回调 函数 。 具 体 实现 流程 如 下 。 

(1) 建立 Filter-Hook Driver。 我 们 必须 建立 内 核 模式 驱动 ， 可 以 选择 名 称 ， 用 DOS 名 
称 和 其 他 驱动 特性 ， 这 些 不 是 必须 的 ， 但 建议 使 用 描述 名 称 。 

(2) 如 果 要 安装 过 滤 函 数 ， 首 先 需 要 得 到 指向 IP Filter Driver 的 指针 。 

G) 取得 指针 后 ， 可 以 通过 发 送 特殊 的 IRP 来 安装 过 滤 函 数 ， 该 “消息 ”传递 的 数据 
包含 了 过 滤 函 数 的 指针 。 

(4) 过 滤 数 据 包 。 

(5) 当 想 结束 过 滤 时 ， 必 须 撤消 过 滤 函 数 ， 这 通过 传递 null 指针 作为 过 滤 函 数 指针 来 
实现 。 


9.2.2 具体 实现 
1. 创建 内 核 模式 驱动 (Kernel Mode Driver) 


Filter-Hook Driver 属于 内 核 模式 驱动 ， 因 此 我 们 要 创建 内 核 模 式 驱 动 ，Filter-Hook 
Driver 结构 是 典型 的 内 核 模 式 驱 动 的 结构 。 创 建 内 核 模式 驱动 的 流程 如 下 。 

(1) 设置 一 个 创建 设备 的 驱动 程序 入 口 ， 为 通讯 创建 符号 连接 和 处 理 IRPs( 分 派 、 加 
载 、 卸 载 、 创 建 ……) 的 标准 例 程 。 

(2) 在 标准 例 程 里 管理 IRPs。 在 开始 编码 前 ， 建 议 先 思考 一 下 哪些 IOCTL 需要 从 设 
备 驱动 中 暴露 给 应 用 程序 。 在 例子 中 ， 实 现 了 4 个 IOCTL 代码 : START_IP_HOOK( 注 册 
过 滤 函 数 )、STOP IP HOOK( 注 销 过 滤 函 数 )、ADD FILTER( 安 装 新 的 过 滤 规 则 )、 
CLEAR FILTER( 清 除 所 有 规则 )。 

(3) 为 驱动 实现 多 个 用 于 过 滤 的 函数 。 

驱动 结构 的 具体 实现 代码 如 下 : 

NTSTATUS DriverEntry(IN PDRIVER OBJECT DriverObject, 


IN PUNICODE STRING RegistryPath) 
t 
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Wiser 
dprintf("DrvFltIp.SYS: entering DriverEntry\n"); 
// 我 们 必须 创建 设备 
RtlInitUnicodeString (&deviceNameUnicodeString, NT DEVICE NAME); 
ntStatus = IoCreateDevice( 

DriverObject, 

0, 

&deviceNameUnicodeString, 

FILE DEVICE DRVFLTIP, 

0, 

FALSE, 

&deviceObject); 
if (NT SUCCESS (ntStatus) ) 


// 创建 符号 连接 使 Win32 应 用 程序 可 以 处 理 驱动 与 设备 

RtlInitUnicodeString(&deviceLinkUnicodeString, DOS DEVICE NAME); 

ntStatus = IoCreateSymbolicLink (&deviceLinkUnicodeString, 
&deviceNameUnicodeString); 

dS ere 

// 创建 用 于 控制 、 创 建 、 关 闭 的 dispatch 指针 

DriverObject-»MajorFunction[IRP MJ CREATE] = 

DriverObject-»MajorFunction[IRP MJ CLOSE] = 

DriverObject-»MajorFunction[IRP MJ DEVICE CONTROL] = DrvDispatch; 

DriverObject-»DriverUnload = DrvUnload; 


if (!NT SUCCESS (ntStatus) ) 


dprintf("Error in initialization. Unloading..."); 
DrvUnload (DriverObject); 
) 
return ntStatus; 
5 
NTSTATUS DrvDispatch(IN PDEVICE OBJECT DeviceObject, IN PIRP Irp) 
t 
(f aes 
switch (irpStack-»MajorFunction) 
t 
case IRP MJ CREATE: 
dprintf("DrvFltIp.SYS: IRP MJ CREATE An"); 
break; 
case IRP MJ CLOSE: 
dprintf("DrvFltIp.SYS: IRP MJ CLOSEWM"); 
break; 
case IRP MJ DEVICE CONTROL: 
dprintf("DrvFltIp.SYS: IRP MJ DEVICE CONTROL\n") ; 
ioControlCode = irpStack-»Parameters.DeviceloControl.IoControlCode; 
switch (ioControlCode) 
{ 
// 启动 过 滤 的 ioctl 代码 
case START IP HOOK: 
{ 
SetFilterFunction (cbFilterFunction) ; 


- 网 络 编程 开发 与 实战 


break; 


} 

// 关闭 过 滤 的 iocti 

case STOP IP HOOK: 

t 
SetFilterFunction (NULL); 
break; 

} 


// 添加 过 滤 规 则 的 ioct1 
case ADD FILTER: 
t 
if(inputBufferLength == sizeof (IPFilter) 
{ 
IPFilter *nf; 
nf = (IPFilter*) ioBuffer; 


AddFilterToList (nf) ; 
) 
break; 


} 

// 释放 过 滤 规 则 列表 的 ioct1 

case CLEAR FILTER: 

t 
ClearFilterList(); 
break; 

) 

default: 
Irp->IoStatus.Status = STATUS INVALID PARAMETER; 
dprintf("DrvFltIp.SYS: unknown IRP MJ DEVICE CONTROL\n") ; 
break; 


) 
break; 


} 
ntStatus = Irp-»IoStatus.Status; 
IoCompleteRequest (Irp, IO NO INCREMENT); 
// 我 们 不 会 有 未 决 的 操作 ， 所 以 总 是 返回 状态 码 
return ntstatus; 
} 
VOID DrvUnload(IN PDRIVER OBJECT DriverObject) 
{ 
UNICODE STRING deviceLinkUnicodeString; 
dprintf("DrvFltIp.SYS: Unloading\n") ; 
SetFilterFunction (NULL) ; 
// 释放 所 有 资源 
ClearFilterList (); 


// 删除 符号 连接 
RtlInitUnicodeString(&deviceLinkUnicodeString, DOS DEVICE NAME); 
IoDeleteSymbolicLink (&deviceLinkUnicodeString) ; 


// 删除 设备 对 象 


$9 
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IoDeleteDevice (DriverObject-»DeviceObject); 
} 


2. 注册 过 滤 函 数 

在 前 面 的 代码 中 有 SetFilterFunction0 函 数 ， 我 们 需要 在 IP Filter Driver 中 执行 这 个 函 
数 来 注册 过 滤 函 数 ， 有 具体 步骤 如 下 。 

(1) 首先 必须 得 到 IP Filter Driver 的 指针 ， 这 要 求 驱动 已 经 安装 并 执行 。 为 了 保证 IP 
Filter Driver 已 经 安装 并 执行 ， 需 要 在 程序 中 在 加 载 本 驱动 前 加 载 并 启动 IP Filter Driver. 

(2) 必须 建立 用 IOCTL PF SET EXTENSION POINTER 作为 控制 代码 的 IRP。 必 须 
传递 PF SET EXTENSION HOOK INFO 参数 ， 该 参数 结构 中 包含 了 指向 过 滤 函 数 的 指 
针 。 如 果 要 务 载 该 函数 ， 必 须 在 同样 的 步骤 里 传递 NULL 作为 过 滤 函 数 指针 。 

(3) 向 设备 驱动 发 送 创建 IRP， 这 里 有 一 个 大 的 问题 ， 只 有 一 个 过 滤 函 数 可 以 安装 ， 
因此 如 果 另 外 的 应 用 程序 已 经 安装 了 一 个 过 滤 函 数 ， 就 不 能 再 安装 了 。 

设置 过 滤 函 数 的 具体 代码 如 下 : 

NTSTATUS SetFilterFunction(PacketFilterExtensionPtr filterFunction) 

t 


NTSTATUS status-STATUS SUCCESS, waitStatus-STATUS SUCCESS; 
UNICODE STRING filterName; 
PDEVICE OBJECT ipDeviceObject = NULL; 
PFILE OBJECT ipFileObject - NULL; 
PF SET EXTENSION HOOK INFO filterData; 
KEVENT event; 
IO STATUS BLOCK ioStatus; 
PIRP irp; 
dprintf("Getting pointer to IpFilterDriver Win"); 
// 首 先 我 们 要 得 到 rpFilterDriver Device 的 指针 
RtlInitUnicodeString(&filterName, DD IPFLTRDRVR DEVICE NAME); 
status = IoGetDeviceObjectPointer(&filterName, STANDARD RIGHTS ALL, 
&ipFileObject, &ipDeviceObject) ; 
if (NT SUCCESS (status) ) 
Ü 
// 用 过 滤 函 数 作为 参数 初始 化 PFE_SET_EXTENSION_HOOK_INFO 结构 
filterData.ExtensionPointer = filterFunction; 
// 需 要 初始 化 事件 ， 用 于 在 完成 工作 后 通知 
KelnitializeEvent(&event, NotificationEvent, FALSE); 
// 创 建 用 于 设立 过 滤 函 数 的 IRP 
irp = IoBuildDeviceIoControlRequest (IOCTL PF SET EXTENSION POINTER, 
ipDeviceObject, 


if(irp != NULL) 
{ 
// 发 送 IRP 
status = IoCallDriver(ipDeviceObject, irp); 
// 然后 等 待 TpFilter Driver 的 回应 
if (status 一 STATUS PENDING) 
t 
waitStatus — KeWaitForSingleObject (&event, 
Executive, KernelMode, FALSE, NULL); 


NS RE 
p CH 网 络 编程 开发 与 实战 


E 


if (waitStatus != STATUS SUCCESS) 
dprintf("Error waiting for IpFilterDriver response."); 
} 
status = ioStatus.Status; 
if(!NT SUCCESS (status) ) 
dprintf("Error, IO error with ipFilterDriver\n"); 


} 
else 


// 如 果 不 能 分 配 空间 ， 返 回 相应 的 错误 代码 
Status = STATUS INSUFFICIENT RESOURCES; 
dprintf("Error building IpFilterDriver IRP\n"); 


) 
if(ipFileObject != NULL) 
ObDereferenceObject (ipFileObject); 
ipFileObject = NULL; 
ipDeviceObject = NULL; 
} 
else 
dprintf ("Error while getting the pointer\n"); 
return status; 
ji 


当 完 成 了 建立 过 滤 函 数 的 编码 工作 并 取得 设备 驱动 的 指针 后 ， 必 须 及 时 释放 文件 对 
象 。 可 以 使 用 事件 来 通知 IpFilter Driver 已 经 完成 了 IRP 处 理 。 

3. 过 滤 函 数 

已 经 了 解 了 如 何 开 发 驱动 并 安装 过 滤 函 数 ， 但 还 不 知道 该 过 滤 函 数 中 的 任何 东西 。 当 
主机 接收 或 发 送 一 个 数据 包 时 ， 该 过 滤 函 数 总 会 被 调用 ， 系 统 会 根据 函数 的 返回 值 决 定 如 
何 处 理 这 个 数据 包 。 过 滤 函 数 根据 用 户 程序 的 要 求 将 每 个 包 与 规则 列表 进行 比较 ， 这 个 列 
表 是 连接 列表 ， 是 在 运行 期 间 用 START IP HOOK 的 IOCTL 创建 的 。 在 代码 里 可 以 看 到 
这 些 。 
注意 ;有关 过 滤 函 数 的 具体 用 法 ， 已 经 在 9.1 节 中 进行 了 详细 介绍 。 


到 此 位 置 ， 此 实例 的 核心 代码 介绍 完毕 ， 为 节省 本 书 篇 幅 ， 没 有 讲解 其 他 部 分 的 代 
码 。 读 者 可 以 参考 本 书 附带 光盘 中 的 源码 文件 。 


9.3 小 试 牛刀 一 一 网 络 防火 墙 系统 


实例 功能 使 用 Visual C++ 开发 一 个 网 络 防火 墙 系统 
源码 路 径 光盘 \yuanma9\Fire 


9.3.1 设计 界面 


打开 Visual C++ 6.0， 新 建 一 个 名 为 “Fire” 的 窗 体 程序 ， 然 后 创建 如 下 4 个 窗 体 。 
(1) ID %IDD_ABOUTBOX 的 窗 体 ， 如 图 9-1 所 示 。 
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图 9-1 IDD ABOUTBOX 图 9-2 IDD_ADDRULE 


(3) ID XIDD FIRE FORM 的 窗 体 ， 如 图 9-3 所 示 。 
(4) ID 为 IDD_ PORTSCAN FORM 的 窗 体 ， 如 图 9-4 所 示 。 


图 9-3 IDD FIRE FORM 图 9-4 IDD PORTSCAN FORM 


9.32 具体 实现 
1. 设计 数据 结构 和 类 
在 实现 过 滤 之 前 ， 需 要 先 设计 需要 的 数据 结构 和 类 。 
Q) 过 滤 规 则 结构 体 
过 滤 规则 结构 体 filter 的 具体 代码 如 下 : 


typedef struct filter { 
USHORT protocol; // 使 用 协议 


ULONG sourceIp; // 源 IP 地址 

ULONG destinationIp; // 目 标 IP 地址 

ULONG sourceMask; // 源 地 址 掩 码 

ULONG destinationMask; ”// 目 的 地 址 掩 码 

USHORT sourcePort; // 源 端口 

USHORT destinationPort; // 目 的 端口 

BOOLEAN drop; // 为 真 则 放弃 数据 包 ， 为 假 则 使 数据 包 通 过 


Visual C++ GEZETEN: 
} IPFilter; 


然后 建立 规则 表 filterList， 具 体 代 码 如 下 所 示 。 


struct filterList 
t 


IPFilter ipf; 
struct filterList *next; 
E 
Q) 过 滤 数 据 包 形 式 的 结构 体 
我 们 实例 的 目的 是 过 滤 数据 包 ， 接 下 来 将 分 别 介绍 定义 IP 包 、TCP 包 和 UDP 包 结 构 
(D 卫 包 结构 IPHeader 的 具体 实现 代码 如 下 : 
typedef struct IPHeader 
{ 


UCHAR iphVerLen; // 版 本 长 度 
UCHAR ipTOS; // 服务 类 型 
USHORT  ipLength; // 整个 数据 包 长 度 
USHORT ipID; // 特殊 标识 符 
USHORT ipFlags; // 标志 

UCHAR ipTTL; // 生存 周期 


UCHAR ipProtocol; // 协议 类 型 
USHORT  ipChecksum; // 数据 包 校 验 和 


ULONG ipSource; // 源 地 址 
ULONG ipDestination; // 目标 地 址 
) IPPacket; 


®© TOP 包 结 构 TCPHeader 的 具体 实现 代码 如 下 : 


typedef struct TCPHeader 
{ 


USHORT SourcePort; // 源 端口 

USHORT destinationPort; // 目标 端口 
ULONG sequenceNumber; // 顺序 数 

ULONG acknowledgeNumber;  // 应 答 次 数 
UCHAR dataoffset; // 指向 数据 的 指针 
UCHAR flags; // 标志 

USHORT windows; // 窗口 大 小 
USHORT checksum; // 总 校 验 和 
USHORT urgentPointer; // 紧急 指针 符 


} TCPHeader; 
© UDP 包 结 构 UDPHeader 的 具体 实现 代码 如 下 : 


typedef struct UDPHeader 
t 


USHORT SourcePort; // 源 端 口 
USHORT destinationPort; // 目标 端口 
USHORT len; // 总 长 度 
USHORT checksum; // 总 校 验 和 


) UDPHeader; 


g 
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2. 设计 类 

类 是 C++ 程序 面向 对 象 的 基础 ， 接 下 来 将 讲解 项 目 中 各 个 类 的 实现 过 程 。 
(1) 类 TDriver 

此 类 是 本 项 目的 关键 类 ， 具 体 代 码 如 下 : 


class TDriver 
t 


public: 
TDriver (void) ; // 构 造 函 数 
~TDriver (void); // 析 构 函 数 
// 初 始 化 IP 过 滤 驱 动 程序 参数 的 函数 


DWORD InitDriver(LPCTSTR name, LPCTSTR path, LPCTSTR dosName-NULL); 
DWORD InitDriver(LPCTSTR path); 


DWORD LoadDriver(BOOL start = TRUE); 

DWORD LoadDriver(LPCTSTR name, LPCTSTR path, 
LPCTSTR dosName-NULL, BOOL start-TRUE); 

DWORD LoadDriver(LPCTSTR path, BOOL start-TRUE); 


DWORD UnloadDriver(BOOL forceClearData = FALSE); 


DWORD StartDriver (void); 
DWORD StopDriver (void); 


void SetRemovable (BOOL value); 


BOOL IsInitialized(); 
BOOL IsStarted(); 
BOOL IsLoaded(); 


HANDLE GetDriverHandle (void); 


DWORD Writelo(DWORD code, PVOID buffer, DWORD count); 
DWORD ReadIo(DWORD code, PVOID buffer, DWORD count); 
DWORD RawIo(DWORD code, PVOID inBuffer, DWORD inCount, 
PVOID outBuffer, DWORD outCount); 
private: 
HANDLE driverHandle; 


LPTSTR driverName; 
LPTSTR driverPath; 
LPTSTR driverDosName; 


BOOL initialized; 
BOOL started; 
BOOL loaded; 

BOOL removable; 


DWORD OpenDevice (void); 


g 


(2) 类 CAddRuleDlg 


此 类 用 于 添加 新 的 过 滤 规 则 ， 是 类 CDialog 的 子 类 。 具 体 代 码 如 下 : 


class CAddRuleDlg : public CDialog 
t 


private: 
BOOL Verify (CString); // 检查 过 滤 规 则 字符 串 是 否 有 效 
BOOL NewFile (void); // 打开 新 文件 或 已 用 文件 


DWORD GotoEnd (void) ; // 到 达 文 件 结尾 处 


HANDLE hFile; 
DWORD SaveFile(char*) ; 
BOOL CloseFile(); 


public: 
CAddRuleDlg(CWnd *pParent-NULL); ”// 实 现 过 滤 规 则 函数 
TDriver ipFltDrv; 
DWORD AddFilter(IPFilter); 

protected: 
virtual void DoDataExchange (CDataExchange *pDX); 
//}}AFX VIRTUAL 


// Implementation 
protected: 

DECLARE MESSAGE MAP() 
dr 


(3) 类 CFireView 


此 类 用 于 载 入 核心 驱动 ， 过 滤 规 则 类 后 显示 程序 界面 。 类 CFireView 是 CFormView 
类 的 子 类 ， 有 具体 代码 如 下 : 


class CFireView : public CFormView 

t 

protected: // create from serialization only 
CFireView(); 


DECLARE DYNCREATE (CFireView) 
public: 
CFireDoc* GetDocument (); 


// DDX/DDV support 


WALLLELEILLILIIDID TD LLL 


HANDLE hFile; // 指向 文件 的 句柄 
TDriver m filterDriver; 
TDriver m ipFltDrv; 


CAddRuleDlg m Addrule; 
BOOL ImplementRule (void); // 实 现 已 定义 的 规则 


Protected: 
BOOL start; 
BOOL block; 
BOOL allow; 
BOOL ping; 
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CMainFrame *m parent; 

HICON m hIcon; 

void ParseToIp(CString str); 
int rows; 


[ [ BRRRRREKEEEK Kk KORR EKER ERK RE KEKE KEK IGI 

// 列 表 控制 

void ShowHeaders (void); 

void AddHeader (LPTSTR hdr); 

AddItem(int nItem, int nSubItem, LPCTSTR strItem, int nImageIndex--1); 


AddColumn(LPCTSTR strItem, int nItem, int nSubItem=-1, 
int nMask-LVCF FMT|LVCF WIDTH|LVCF TEXT|LVCF SUBITEM, 
int nFmt-LVCFMT LEFT); 

CStringList *m pColumns; 


public: 

virtual ~CFireView(); 
#ifdef DEBUG 

virtual void AssertValid() const; 

virtual void Dump(CDumpContext &dc) const; 
#endif 


protected: 

DECLARE MESSAGE MAP () 
private: 

CBrush *m pBrush; 
ing 


#ifndef DEBUG 

inline CFireDoc* CFireView: :GetDocument () 
{ return (CFireDoc*)m pDocument; } 
#endif 


3. 具体 编码 
(1) 在 文件 TDriver.cpp 中 定义 各 个 成 员 函 数 的 具体 实现 ， 代 码 如 下 : 


#include "stdafx.h" 
#include "TDriver.h" 


// 定 义 构造 函数 
TDriver: :TDriver (void) 
{ 
driverHandle = NULL; 


removable = TRUE; 
driverName = NULL; 
driverPath = NULL; 


driverDosName = NULL; 


initialized = FALSE; 


$ 


loaded = FALSE; 
Started — FALSE; 


} 
// 定 义 析 构 函数 
TDriver: :~TDriver (void) 
{ 
if (driverHandle != NULL) 
{ 
CloseHandle (driverHandle); 
driverHandle = NULL; 


UnloadDriver(); 
) 


// 初 始 化 
BOOL TDriver::IsInitialized (void) 


t 
return initialized; 


//is driver loaded? 
BOOL TDriver::IsLoaded (void) 
t 
return loaded; 
} 


// 了 驱动 是 否 局 动 
BOOL TDriver::IsStarted(void) 
{ 
return started; 
} 


// 初 始 化 驱动 
DWORD TDriver::InitDriver(LPCTSTR path) 
{ 
if (initialized) 
{ 
if (UnloadDriver() != DRV SUCCESS) 
return DRV ERROR ALREADY INITIALIZED; 
i 
driverPath = (LPTSTR)malloc(strlen(path) + 1); 
if (driverPath == NULL) 
return DRV ERROR MEMORY; 
strcpy(driverPath, path); 
LPTSTR sPosl = strrchr(driverPath, (int)'NN'); 


if (sPosl == NULL) 
SPosl - driverPath; 


LPTSTR sPos2 = strrchr(sPosl, (int)'.'); 
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if (sPos2==NULL || sPosl>sPos2) 
t 
free (driverPath); 
driverPath = NULL; 


return DRV ERROR INVALID PATH OR FILE; 


} 
driverName = (LPTSTR)malloc(sPos2 - sPosl); 


if (driverName NULL) 


{ 
free (driverPath) ; 
driverPath = NULL; 
return DRV ERROR MEMORY; 
} 
memcpy (driverName, sPosl+1, sPos2-sPosl-1); 


driverName[sPos2 - sPosl - 1] = 0; 
driverDosName = (LPTSTR)malloc(strlen(driverName) + 5); 


if (driverDosName 
{ 


= NULL) 


free (driverPath) ; 
driverPath = NULL; 
free (driverName) ; 
driverName = NULL; 
return DRV ERROR MEMORY; 
) 
sprintf(driverDosName, "\\\\.\\%s", driverName) ; 
initialized = TRUE; 
return DRV SUCCESS; 
} 
DWORD TDriver::InitDriver(LPCTSTR name, LPCTSTR path, LPCTSTR dosName) 
t 
//if already initialized, first unload 
if (initialized) 
{ 
if (UnloadDriver() != DRV_SUCCESS) 
return DRV ERROR ALREADY INITIALIZED; 
} 
LPTSTR dirBuffer; 
if (path != NULL) 
{ 
//if yes, copy in auxiliar buffer and continue 
DWORD len = (DWORD) (strlen (name) + strlen (path) + 1); 
dirBuffer = (LPTSTR)malloc (len); 
if(dirBuffer == NULL) 
return DRV ERROR MEMORY; 
strcpy(dirBuffer, path); 
} 
èlse 


t 
LPTSTR pathBuffer; 


DWORD len = GetCurrentDirectory(0, NULL); 
pathBuffer = (LPTSTR)malloc (len); 
if(pathBuffer == NULL) 
return DRV ERROR MEMORY; 
if (GetCurrentDirectory(len, pathBuffer) != 0) 
{ 
len = (DWORD) (strlen(pathBuffer) + strlen(name) + 6); 
dirBuffer = (LPTSTR)malloc (len); 
if (dirBuffer == NULL) 
{ 
free (pathBuffer) ; 
return DRV ERROR MEMORY; 
) 
sprintf(dirBuffer, "%s\\%s.sys", pathBuffer, name); 
if(GetFileAttributes (dirBuffer) == OxFFFFFFFF) 
t 
free (pathBuffer) ; 
free (dirBuffer) ; 
LPCTSTR sysDriver = "\\system32\\Drivers\\"; 
LPTSTR sysPath; 
DWORD len = GetWindowsDirectory (NULL, 0); 
sysPath = (LPTSTR)malloc(len + strlen(sysDriver) ); 
if (sysPath == NULL) 
return DRV ERROR MEMORY; 
if (GetWindowsDirectory(sysPath, len) == 0) 
{ 
free (sysPath) ; 
return DRV ERROR UNKNOWN; 
} 
strcat(sysPath, sysDriver) ; 
len = (DWORD) (strlen(sysPath) + strlen(name) + 5); 
dirBuffer = (LPTSTR)malloc(len); 
if (dirBuffer == NULL) 
return DRV ERROR MEMORY; 
sprintf (dirBuffer, "$s$s.sys", sysPath, name); 
free (sysPath) ; 
if (GetFileAttributes (dirBuffer) == OxFFFFFFFF) 
{ 
free (dirBuffer) ; 
return DRV ERROR INVALID PATH OR FILE; 


} 
else 
{ 
free (pathBuffer) ; 
return DRV ERROR UNKNOWN; 


} 
driverPath 


dirBuffer; 


driverName (LPTSTR)malloc(strlen(name) + 1); 


$ 
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if(driverName == NULL) 
t 
free (driverPath); 
driverPath = NULL; 


return DRV ERROR MEMORY; 


} 
strcpy(driverName, name); 


LPCTSTR auxBuffer; 
if(dosName != NULL) 
auxBuffer — dosName; 


else 
auxBuffer — name; 
if(auxBuffer[0] != '\\' && auxBuffer[1] != '\\') 
t 
driverDosName = (LPTSTR)malloc(strlen(auxBuffer) + 5); 
if(driverDosName == NULL) 
t 
free (driverPath) ; 
driverPath = NULL; 
free (driverName) ; 
driverName = NULL; 
return DRV ERROR MEMORY; 
} 
sprintf (driverDosName, "\\\\.\\%s", auxBuffer) ; 
) 
else 


t 
driverDosName - (LPTSTR)malloc (strlen (auxBuffer)); 


if(driverDosName —- NULL) 
t 
free (driverPath); 
driverPath = NULL; 
free (driverName); 
driverName = NULL; 
return DRV ERROR MEMORY; 
} 
strcpy(driverDosName, auxBuffer) ; 
} 
initialized = TRUE; 
return DRV SUCCESS; 


// 重 载 函数 
DWORD TDriver::LoadDriver (LPCTSTR name, LPCTSTR path, 
LPCTSTR dosName, BOOL start) 


DWORD retCode - InitDriver(name, path, dosName); 
if (retCode == DRV SUCCESS) 
retCode = LoadDriver (start); 


$ 


return retCode; 


// 根 据 路 径 载 入 


DWORD TDriver::LoadDriver(LPCTSTR path, BOOL start) 


{ 
//first initialized it 
DWORD retCode - InitDriver (path); 
if(retCode == DRV SUCCESS) 
retCode = LoadDriver (start); 
return retCode; 


// 载 入 函数 
DWORD TDriver::LoadDriver(BOOL start) 
t 
// 如 果 已 经 加 载 驱动 程序 
if (loaded) 
return DRV SUCCESS; 
if(!initialized) 
return DRV ERROR NO INITIALIZED; 


// 打 开 服 务 管理 器 ， 创 建 一 个 新 服务 


SC HANDLE SCManager = OpenSCManager(NULL, NULL, 


DWORD retCode — DRV SUCCESS; 


if (SCManager NULL) 
return DRV ERROR SCM; 


SC HANDLE SCService = CreateService (SCManager, 


driverName, 
driverName, 


SERVICE ALL ACCESS, 

SERVICE KERNEL DRIVER, 
SERVICE DEMAND START, 
SERVICE ERROR NORMAL, 


driverPath, 
NULL, 
NULL, 


if (SCService == NULL) 
tf 


SCService = OpenService(SCManager, driverName, SERVICE ALL 


if (SCService == NULL) 
retCode — DRV ERROR SERVICE; 


CloseServiceHandle (SCService) ; 
SCService = NULL; 


SC MANAGER ALL ACCESS) ; 


ACCESS) ; 
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CloseServiceHandle (SCManager) ; 
SCManager = NULL; 
if (retCode == DRV SUCCESS) 
{ 

loaded = TRUE; 

if (start) 

retCode = StartDriver(); 

} 
return retCode; 


} 
/ ERIRE 
DWORD TDriver::UnloadDriver (BOOL forceClearData) 
{ 
DWORD retCode = DRV SUCCESS; 
if (started) 
{ 
if ((retCode-StopDriver()) == DRV SUCCESS) 
{ 
if (removable) 


{ 
SC HANDLE SCManager = 
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OpenSCManager (NULL, NULL, SC MANAGER ALL ACCESS); 


if (SCManager == NULL) 
return DRV_ERROR_SCM; 
SC_HANDLE SCService = 


OpenService(SCManager, driverName, SERVICE ALL ACCESS); 


if (SCService != NULL) 
t 
if (!DeleteService (SCService) ) 
retCode = DRV ERROR REMOVING; 
else 
retCode = DRV SUCCESS; 
} 
else 
retCode = DRV ERROR SERVICE; 
CloseServiceHandle (SCService); 
SCService = NULL; 
CloseServiceHandle (SCManager) ; 
ScManager = NULL; 
if(retCode == DRV SUCCESS) 
loaded = FALSE; 


// 如 果 已 经 驱动 初始 化 
if(initialized) 
5 
if(retCode!-DRV SUCCESS && forceClearData--FALSE) 


return retCode; 
initialized = FALSE; 


//free memory 
if(driverPath != NULL) 
{ 
free (driverPath) ; 
driverPath = NULL; 
} 
if (driverDosName != NULL) 
{ 
free (driverDosName) ; 
driverDosName = NULL; 
} 
if (driverName != NULL) 
{ 
free (driverName) ; 
driverName = NULL; 


} 
return retCode; 


// 启 动 服务 
DWORD TDriver::StartDriver (void) 
{ 
if (started) 
return DRV SUCCESS; 
SC HANDLE SCManager = OpenSCManager (NULL, NULL, SC MANAGER ALL ACCESS); 
DWORD retCode; 


if (SCManager NULL) 
return DRV ERROR SCM; 
SC HANDLE SCService = OpenService (SCManager, 
driverName, 
SERVICE ALL ACCESS) ; 
if (SCService == NULL) 
return DRV ERROR SERVICE; 
if (!StartService(SCService, 0, NULL)) 


if (GetLastError() == ERROR SERVICE ALREADY RUNNING) 
t 
removable — FALSE; 
retCode = DRV SUCCESS; 
} 
else 
retCode = DRV ERROR STARTING; 
} 
else 
retCode = DRV SUCCESS; 
CloseServiceHandle (SCService) ; 
SCService = NULL; 


$ 
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CloseServiceHandle (SCManager) ; 
SCManager = NULL; 
if (retCode == DRV SUCCESS) 
{ 
started TRUE; 
retCode = OpenDevice(); 


} 
return retCode; 
} 


// 停 止 与 IP 协议 过 滤 驱 动 程序 相关 的 服务 
DWORD TDriver: :StopDriver (void) 
t 
if(!started) 
return DRV SUCCESS; 
SC HANDLE SCManager = OpenSCManager (NULL, NULL, SC MANAGER ALL ACCESS); 
DWORD retCode; 


if (SCManager == NULL) 
return DRV ERROR SCM; 
SERVICE STATUS status; 
SC HANDLE SCService = 
OpenService (SCManager, driverName, SERVICE ALL ACCESS); 
if (SCService !- NULL) 
t 
CloseHandle (driverHandle); 
driverHandle = NULL; 
if(!ControlService(SCService, SERVICE CONTROL STOP, &status)) 
retCode = DRV ERROR STOPPING; 
else 
retCode = DRV SUCCESS; 
} 
else 
retCode = DRV ERROR SERVICE; 
CloseServiceHandle (SCService) ; 
scService = NULL; 
CloseServiceHandle (SCManager) ; 
SCManager = NULL; 
if (retCode == DRV_SUCCESS) 
started = FALSE; 
return retCode; 


// 打 开 驱 动 服务 
DWORD TDriver: :OpenDevice (void) 
H 
if (driverHandle !- NULL) 
CloseHandle (driverHandle); 
driverHandle = CreateFile (driverDosName, 
GENERIC READ | GENERIC WRITE, 
0, 
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NULL, 
OPEN EXISTING, 
FILE ATTRIBUTE NORMAL, 
NULL); 
if(driverHandle == INVALID HANDLE VALUE) 
return DRV ERROR INVALID HANDLE; 


return DRV SUCCESS; 


HANDLE TDriver::GetDriverHandle (void) 


i 
return driverHandle; 


b 
/7 发 送 数据 给 IP 协议 过 滤 驱 动 程序 ， 即 发 送 数据 到 驱动 
DWORD TDriver::Writelo(DWORD code, PVOID buffer, DWORD count) 
t 
if(driverHandle == NULL) 
return DRV ERROR INVALID HANDLE; 
DWORD bytesReturned; 
BOOL returnCode - DeviceloControl (driverHandle, 
code, 
buffer, 
count, 
NULL, 
0, 
&bytesReturned, 
NULL); 
if(!returnCode) 
return DRV ERROR IO; 
return DRV SUCCESS; 
} 


// 从 驱动 程序 中 读 取 数据 
DWORD TDriver::ReadIo(DWORD code, PVOID buffer, DWORD count) 
t 
if(driverHandle == NULL) 
return DRV ERROR INVALID HANDLE; 
DWORD bytesReturned; 
BOOL retCode = DeviceIoControl (driverHandle, 
code, 
NULL, 
0, 
buffer, 
count, 
&bytesReturned, 
NULL); 
if(!retCode) 
return DRV ERROR IO; 
return bytesReturned; 


} 
// 在 驱动 程序 增加 一 列 
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DWORD TDriver::RawIo(DWORD code, PVOID inBuffer, DWORD inCount, 
PVOID outBuffer, DWORD outCount) 
{ 
if (driverHandle == NULL) 
return DRV_ERROR INVALID HANDLE; 
DWORD bytesReturned; 
BOOL retCode = DeviceIoControl (driverHandle, 
code, 
inBuffer, 
inCount, 
outBuffer, 
outCount, 
&bytesReturned, 
NULL); 
if(!retCode) 
return DRV ERROR IO; 
return bytesReturned; 


5 
(2) 编写 文件 AddRuleDlg.cpp， 用 于 设置 过 滤 规 则 ， 实 现 IP 协议 与 过 滤 驱 动 程序 的 
交互 。 具 体 实现 代码 如 下 : 


// 发 送 过 滤 规 则 到 IP 协议 过 滤 规 则 驱动 程序 中 
DWORD CAddRuleDlg::AddFilter(IPFilter pf) 


{ 
DWORD result = ipFltDrv.WriteIo(ADD FILTER, &pf, sizeof (pf)); 


if (result != DRV SUCCESS) 
{ 
AfxMessageBox ("Unable to add rule to the driver"); 
return FALSE; 
} 
else 
return TRUE; 
} 
// 添 加 新 过 滤 规 则 
void CAddRuleD1lg: :OnAdd() 
{ 
// TODO: Add your control notification handler code here 
UpdateData () ; 
BOOL setact; 
int setproto; 
int action = m action.GetCurSel (); 


char ch[30]; 

if (action == 0) 
setact = FALSE; 

else 


setact = TRUE; 


int proto = m protocol .GetCurSel (); 
if (proto == 0) 
setproto = 1; 


if(proto == 1) 
setproto = 17; 
if(proto — 2) 
setproto = 6; 
wsprintf(ch, "Action: $d, Protocol $d", action, proto); 
MessageBox (ch) ; 


IPFilter ip; 

ip.destinationIp = inet addr((LPCTSTR)m sdadd); 
ip.destinationMask = inet addr("255.255.255.255"); 
ip.destinationPort = htons(atoi((LPCTSTR)m sdport)); 
ip.sourceIp = inet addr((LPCTSTR)m ssadd); 
ip.sourceMask = inet addr("255.255.255.255"); 
ip.sourcePort = htons(atoi((LPCTSTR)m ssport)); 
ip.protocol = setproto; 

ip.drop = setact; 


DWORD result = AddFilter(ip); 


j 
// 数 据 验证 
BOOL CAddRuleDlg::Verify(CString str) 
t 
int pos-0, prevpos--1; // Keeps track of current and previous 
// positions in the string 
CString striz 


if(str.Find('.') == -1) 
return FALSE; 
if (str.FindOneOf ( 
"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPORSTUVWXYZ") != -1) 
return FALSE; 
if(str.FindOneOf("!84$$^&*() +|-7:'"\"/2><,") != -1 


return FALSE; 
int pos = 0; 
pos = str.Find('.'); 
if((0» pos) || ( pos>3)) 
return FALSE; 
int newpos = pos; 
.pos = str.Find('.', pos*1); 
if ((newpos+1>=_pos) || ( pos»newpos*4)) 
return FALSE; 
newpos = pos; 
pos = str.Find('.', pos*1); 
if ((newpos+1>= pos) || ( pos>newpos+4) ) 
return FALSE; 
for(int cnt=0; cnt<=3; cnt++) 
{ 


if(cnt < 3) 
pos = str.Find('.', pos+l); 
else 


pos = str.GetLength (); 
stri Str he repos) iz 
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char ch[30]; 
strl = strl.Right (pos- (prevpos41)); 
unsigned int a = atoi(LPCTSTR(strl)); 
if((0»a) || (a>255)) 
{ 
return FALSE; 

} 
prevpos = pos; 

} 

return TRUE; 

} 
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void CAddRuleDlg: :OnKillfocusSadd() 
{ 
// TODO: Add your control notification handler code here 
UpdateData () ; 
BOOL bresult - Verify(m ssadd); 
if(bresult == FALSE) 
MessageBox("Invalid IP Address"); 


void CAddRuleDlg::OnKillfocusDadd|() 
t 
UpdateData () ; 
BOOL bresult = Verify(m sdadd) ; 
if (bresult == FALSE) 
MessageBox ("Invalid IP Address") ; 


} 
// 添 加 保存 响应 函数 
void CaddRuleD1g: :OnAddsave () 
{ 
UpdateData () ; 
BOOL setact; 
int setproto; 
int action - m action.GetCurSel(); 
char ch[30]; 


if (action == 0) 
setact = FALSE; 
else 


setact = TRUE; 
int proto = m protocol.GetCurSel(); 
if(proto — 0) 
setproto = 1; 
if(proto — 1) 
setproto = 17; 
if(proto — 2) 
setproto = 6; 
wsprintf(ch, "Action: $d, Protocol $d", action, proto); 
MessageBox (ch) ; 
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) 


(3) 编写 文件 fireView.cpp， 实 现 程 序 的 主 窗 体 类 以 实现 包 过 滤 功 能 ， 实 现 窗 体 


IPFilter ip; 

ip.destinationIp = inet addr((LPCTSTR)m sdadd); 
ip.destinationMask — inet addr("255.255.255.255"); 
ip.destinationPort = htons (atoi ((LPCTSTR)m sdport)); 
ip.sourcelIp = inet addr((LPCTSTR)m ssadd); 
ip.sourceMask = inet_addr ("255.255.255.255") ; 
ip.sourcePort = htons (atoi ((LPCTSTR)m ssport)); 
ip.protocol = setproto; 

ip.drop - setact; 


CString SET; 
char ch1[100]; 
wsprintf (chl, "%s,%s,%s,%S,%S,%S,%d,%d\n", 
m sdadd, 
tp 
m sdport, 
m ssadd, 
B255:255:255825587 
m ssport, 
setproto, 
setact); 
if(NewFile() == FALSE) 
MessageBox ("unable to create file"); 
GotoEnd(); 
SaveFile(chl); 
if(CloseFile() == FALSE) 
MessageBox ("Unable to close the file"); 
DWORD result = AddFilter (ip); 


个 按钮 的 响应 函数 。 具 体 代码 如 下 : 


// 


启动 按钮 响应 函数 


void CFireView: :OnStart () 


{ 


CString text; 

m cstart.GetWindowText ( text); 
if( text != "Stop") 

{ 


if(m ipFltDrv.Writelo(START IP HOOK, NULL, 0) != DRV ERROR IO) 


t 
MessageBox("Firewall Started Successfully"); 
AAAS OA A A ONAA NAA ISVIS OE OAO N AKA N i 
start = FALSE; 
m cstart.SetWindowText ("Stop"); 


//BOOL tmp = m SysTray.SetTooltipText ("Firewall Stops"); 
//Change the led to indicate that Firewall has Started 


m parent-»SetOnlineLed (TRUE); 
m parent-»SetOfflineLed (FALSE) ; 


Lr 


各 
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else 
t 
if(m ipFltDrv.Writelo(STOP IP HOOK,NULL,0) != DRV ERROR IO) 
t 
MessageBox("Firewall Stopped Successfully"); 
m cstart.SetWindowText ("Start"); 
start = TRUE; 
//Change the led to indicate that Firewall is Stopped 
m parent-»SetOnlineLed (FALSE); 
m parent-»SetOfflineLed (TRUE); 


} 


} 
//Block Ping 按钮 响应 函数 
void CFireView: :OnBlockping() 
{ 
if (MessageBox ("Are you sure to block all Incoming Ping Messages", 
"Confirm", 
MB YESNO) == IDYES) 


IPFilter IPflt; 


IPflt.protocol = ds 
IPflt.destinationIp = 0; 
IPflt.destinationMask = m 
IPflt.destinationPort - 0; 
IPflt.sourceIp = 07 
IPflt.sourceMask = WP 
IPflt.sourcePort = Wr 
IPflt.drop = TRUE; 


m Addrule.AddFilter (IPflt); 
m cping.EnableWindow (FALSE); 
ping = FALSE; 
allow = TRUE; 
block = TRUE; 

} 


} 
//Block All 按钮 响应 函数 
void CFireView: :OnBlockall() 
{ 
// TODO: Add your control notification handler code here 
if (MessageBox("This action will prevent any further transfer" 
"or receiving of the data to and from your " 
"computer, Are you sure to proceed with it", 
"WARNING", MB YESNO) == IDYES) 


IPFilter IPflt; 


IPflt.protocol = 0; 
IPflt.destinationIp = 0; 
IPflt.destinationMask = 0; 
IPflt.destinationPort = 0; 
IPflt.sourceIp- 0; 
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IPflt.sourceMask = 0; 
IPflt.sourcePort — 0; 
IPflt.drop - TRUE; 


m Addrule.AddFilter (IPflt); 
block — FALSE; 

ping = FALSE; 

allow — TRUE; 

m cblockall.EnableWindow (FALSE); 


| 


} 
//Allow A11 按钮 响应 函数 
void CFireView::OnAllowall() 
t 
if(MessageBox("This action will clear all the rules from the firewall", 
"CONFIRM", MB YESNO) ==IDYES) 


if(m ipFltDrv.WriteIo(CLEAR FILTER,NULL,0) != DRV ERROR IO) 
t 

MessageBox("All Rules had been cleared"); 

m cResult.DeleteAllItems(); 

m cping.EnableWindow(); 

m cblockall.EnableWindow(); 

m cvrules.EnableWindow(); 

allow = FALSE; 

block = TRUE; 

ping = TRUE; 

rows = 1; 


BOOL CFireView::Create(LPCTSTR lpszClassName, LPCTSTR lpszWindowName, 
DWORD dwStyle, const RECT &rect, CWnd *pParentWnd, 
UINT nID, CCreateContext *pContext) 
t 
return CFormView::Create(lpszClassName, lpszWindowName, dwStyle, 
rect, pParentWnd, nID, pContext); 
} 
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HBRUSH CFireView::OnCtlColor(CDC *pDC, CWnd *pWnd, UINT nCtlColor) 


t 
HBRUSH hbr = CFormView::OnCtlColor(pDC, pWnd, nCtlColor); 


// TODO: Change any attributes of the DC here 


//break statement must be ignored: 
switch (nCtlColor) 

{ 

case CTLCOLOR BTN: 

case CTLCOLOR STATIC: 
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pDC->SetBkColor (m clrBk); 
pDC-»SetTextColor (m clrText); 
case CTLCOLOR DLG: 
return static cast«HBRUSH» (m pBrush-»GetSafeHandle ()) ; 


return CFormView: :OnCtlColor (pDC, pWnd, nctlColor); 


} 
// 查 看 规则 响应 函数 


void CFireView: :OnViewrules () 


ImplementRule () ; 
m cvrules.EnableWindow (FALSE) ; 


BOOL CFireView: : ImplementRule (void) 


{ 


HANDLE hFile; 
DWORD error, nbytesRead; 
char data; 
CString butt = "m; 
hFile = CreateFile("saved.rul", 
GENERIC READ | GENERIC WRITE, 
FILE SHARE READ | FILE SHARE WRITE, 
NULL, 
OPEN EXISTING, 
NULL, 
NULL); 
if( hFile == INVALID HANDLE VALUE) 
t 
error = GetLastError(); 
MessageBox("Unable to open the file"); 
return FALSE; 
} 
else 
{ 
BOOL bResult; 
do 
{ 


bResult = ReadFile( hFile, &data, 1, &nbytesRead, NULL); 


if((data != '\n')) 
{ 
buff = buff + data; 
} 
erse 
if((bResult&&nbytesRead) != 0) 


t 
buff.Remove ('\n'); 
ParseToIp( buff); 
POLE 1007 
} 
} while ((bResult&&nbytesRead) != 0); 


g 


} 


CloseHandle( hFile); 


} 
return TRUE; 


void CFireView:: ParseToIp(CString str) 


{ 


CString  str[8]; 
int count = 0; 
int pos, prevpos=0; 
for(; count<8; count++) 
{ 
if (count « 7) 
{ 
pos = str.Find(',', prevpos + 1); 
if((count > 0)) 
{ 
str[count] = str.Left( pos); 
str[count].Delete(0, prevpos + 1); 
} 
else { 
if (count == 0) 
_str[count] = str.Left( pos); 


} 
else 
{ 
str[count] = str.Right (1); 
) 
prevpos = pos; 
} 
wsprintf(ch, "%s,%s,%S,%S,%S,%S,%S,%S", 
(LPCTSTR) str[0], 
(LPCTSTR) str[1], 
(LPCTSTR) str[2], 
(LPCTSTR) str[3], 
(LPCTSTR) str[4], 
(LPCTSTR) str[5], 
(LPCTSTR) str[6], 
(LPCTSTR) str[7]); 
/*MessageBox (ch) ; */ 


if( rows — 1) 

t 

) 

AddItem(0, 0, (LPCTSTR) str[0]); 
AddItem(0, 1, (LPCTSTR) str[1]):; 
AddItem(0, 2, (LPCTSTR) str[2]); 


AddItem(0, 4, (LPCTSTR) str[4]); 
AddItem(0, 5, (LPCTSTR) str[5]); 
int proto atoi((LPCTSTR) str[6]); 
CString proto; 
if( proto = 0) 

proto = "ANY"; 


0 
T 
2 
AddItem(0, 3, (LPCTSTR) str[3]); 
4 
5 
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if( proto == 1) 

proto = "ICMP"; 
if( proto == 6) 

proto = "TCP"; 
if (_proto 17) 

proto = "UDP"; 
AddItem(0, 6, ((LPCTSTR) proto) ) 7 
int drop = atoi((LPCTSTR) str[7]); 
if( drop == 0) 

AddItem(0, 7, "ALLOW"); 

//m fgrid.SetTextArray(8* rows + 7, "ALLOW"); 
if( drop -- 1) 

AddItem(0, 7, "DENY"); 
rows — rows * 1; 
IPFilter ipl; 
ipl.destinationIp - inet addr((LPCTSTR) str[0]); 
ipl.destinationMask - inet addr((LPCTSTR) str[1]); 
ipl.sourceIp - inet addr((LPCTSTR) str[3]); 
ipl.sourceMask = inet addr((LPCTSTR) str[4]); 
ipl.sourcePort = htons(atoi((LPCTSTR) str[5])); 
ipl.protocol = atoi((LPCTSTR) str[6]); 
int drop; 
drop = atoi((LPCTSTR) str[7]); 
if (drop == 0) 
{ 


ipl.drop = FALSE; 
} 
if (drop == 1) 
{ 
ipl.drop = TRUE; 
} 
m Addrule.AddFilter(ipl); 
) 


// 添 加 行 响应 函数 
BOOL CFireView::AddColumn (LPCTSTR strItem, int nItem, int nsubItem, 
int nMask, int nFmt) 
t 
LV COLUMN lvc; 
lvc.mask = nMask; 
lvc.fmt = nFmt; 
lvc.pszText = (LPTSTR)strItem; 
lvc.cx = m cResult.GetStringWidth(lvc.pszText) + 25; 
if(nMask & LVCF SUBITEM) 
t 
if(nSubItem != -1) 
lvc.iSublItem = nSubItem; 
else 
lvc.iSubItem = nItem; 
5 
return m cResult.InsertColumn (nItem, &lvc); 


// 增 加 条 目 响应 函数 
BOOL CFireView::AddItem(int nItem, int nSubItem, LPCTSTR strItem, 
int nImageIndex) 
{ 
LV ITEM lvItem; 
lvItem.mask = LVIF TEXT; 
lvItem.iItem = nItem; 
lvItem.iSubItem = nSubItem; 
lvItem.pszText = (LPTSTR) strItem; 


if (nImageIndex != -1) 

{ 
lvItem.mask |= LVIF IMAGE; 
lvItem.ilmage |= LVIF IMAGE; 

} 

if(nsubItem == 0) 
return m cResult.InsertlItem(&lvItem); 

return m cResult.SetItem(&lvItem) ; 

} 


到 此 为 止 ， 整 个 实例 的 核心 代码 介绍 完毕 。 为 了 节省 本 书 篇 幅 ， 其 他 代码 请 读者 参考 
本 书 附带 光盘 中 的 源 代码 。 执 行 后 的 效果 如 图 9-5 所 示 。 


图 9-5 执行 效果 
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在 日 常生 活 和 学 习 过 程 中 ， 人 们 经 常 使 用 迅雷 和 电驴 等 软件 来 
下 载 电 影 和 学 习 资 料 ， 一 时 间 BT 种 子 和 PPLive 成 了 网 民 中 的 热门 
话题 。 上 面 的 迅雷 、 电 驴 、BT 种 子 和 PPLive 都 是 基于 P2P 协议 
的 ， 它们 以 “人 人 为 我、 BAKA” ARM, 为 我 们 的 网 络 生活 带 
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10.4 P2P 技 术 


无 论 是 BT 下 载 还 是 电驴 下 载 ， 无 论 是 酷 狗 音乐 还 是 QQ 音乐 ， 都 使 用 了 POP DOR. 
在 本 节 的 内 容 中 ， 将 简要 介绍 P2P 技术 的 基本 知识 。 


10.1.1 什么 是 P2P 


P2P 是 英文 Peer-to-Peer( 对 等 ) 的 简称 ， 又 被 称 为 “点 对 点 ”和 “对 等 ”技术 。P2P 是 
一 种 网 络 新 技术 ， 依 赖 于 网 络 中 参与 者 的 计算 能 力 和 带宽 ， 而 不 是 把 依赖 都 聚集 在 较 少 的 
几 台 服务 器 上 。P2P 还 是 英文 Point to Point( 点 对 点 ) 的 简称 。 它 是 下 载 术语 ， 意 思 是 在 你 自 
己 下 载 的 同时 ， 自 己 的 电脑 还 要 继续 做 主机 上 传 ， 使 用 这 种 下 载 方式 ， 人 越 多 速度 越 快 ， 
但 缺点 是 对 硬盘 损伤 比较 大 (在 写 的 同时 还 要 读 )， 还 有 对 内 存 占用 较 多 ， 影 响 整 机 速度 。 

P2P 使 得 网 络 上 的 沟通 变 得 容易 ， 能 更 直接 地 共享 和 交互 ， 真 正 地 消除 了 中 间 商 。 
P2P 就 是 人 人 可 以 直接 连接 到 其 他 用 户 的 计算 机 ， 交 换文 件 ， 而 不 是 像 过 去 那样 需要 连接 
到 服务 器 去 浏览 与 下 载 。P2P 的 另 一 个 重要 特点 是 改变 了 互联 网 现在 的 以 大 网 站 为 中 心 的 
状态 ， 重 返 了 “ 非 中 心 化 ”， 并 把 权力 交还 给 用 户 。P2P 看 起 来 似乎 很 新 ， 但 是 正如 
B2C、B2B 是 将 现实 世界 中 很 平常 的 东西 移植 到 互联 网 上 一 样 ，P2P 并 不 是 什么 新 东西 。 
在 现实 生活 中 ， 我 们 每 天 都 按照 PP 的 模式 面对面 地 或 者 通过 电话 交流 和 沟通 。 

即使 从 网 络 看 ，P2P 也 不 是 新 概念 ，P2P 是 互联 网 整体 架构 的 基础 。 互 联网 最 基本 的 
协议 TCP/IP 并 没有 客户 机 和 服务 器 的 概念 ， 所 有 的 设备 都 是 通讯 中 平等 的 一 端 。 在 十 年 
之 前 ， 所 有 的 互联 网 上 的 系统 都 同时 具有 服务 器 和 客户 机 的 功能 。 当 然 ， 后 来 发 展 的 那些 
架构 在 TCP/IP 之 上 的 软件 的 确 采 用 了 客户 机 /服务 器 的 结构 一 一 浏览 器 和 Web 服务 器 、 邮 
件 客户 端 和 邮件 服务 器 。 但 是 ， 对 于 服务 器 来 说 ， 它 们 之 间 仍 然 是 对 等 联网 的 。 以 E-mail 
为 例 ， 互 联网 上 并 没有 一 个 巨大 的 、 唯 一 的 邮件 服务 器 来 处 理 所 有 的 E-mail， 而 是 对 等 联 
网 的 邮件 服务 器 相互 协作 ， 把 E-mail 传送 到 相应 的 服务 器 上 去 。 

事实 上 ， 网 络 上 现 有 的 许多 服务 可 以 归 入 P2P 的 行列 。 即 时 讯息 系统 璧 如 ICQ、AOL 
Instant Messenger、Yahoo Pager、 微 软 的 MSN Messenger 以 及 国内 的 QQ 都 是 最 流行 的 
P2P 应 用 。 它 们 允许 用 户 互相 沟通 和 交换 信息 、 交 换文 件 。 虽 然 用 户 之 间 的 信息 交流 不 是 
直接 的 ， 需 要 有 位 于 中 心 的 服务 器 来 协调 。 但 这 些 系 统 并 没有 诸如 搜索 这 种 对 于 大 量 信息 
共享 非常 重要 的 功能 ， 这 个 特征 的 缺乏 可 能 正 是 为 什么 即时 讯息 出 现 很 久 但 是 并 没有 能 够 
产生 如 Napster 这 样 的 影响 的 原因 之 一 。 


10.1.2 P2PI E 4S RU 


P2P 按 结构 来 分 ， 可 以 分 为 三 种 网 络 模型 ， 分 别 是 集中 目录 式 P2P 网 络 模型 、 纯 P2P 
网 络 模型 和 分 层 式 P2P 网 络 模型 。 
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1. 集中 目录 式 P2P 网 络 模型 


(1) 原理 
集中 目录 式 P2P 网 络 模型 是 最 早出 现 的 P2P 应 用 模式 。 由 于 它 采 用 中 央 目 录 服 务 器 管 
理 P2P 网 络 各 节点 ， 仍 然 具 有 中 心 化 的 特点 ， 因 此 也 被 称 为 非 纯 粹 的 P2P 结构 。 虽 然 集中 
目录 式 P2P 网 络 模型 的 拓扑 结构 以 及 用 户 注册 、 文 件 检索 过 程 与 传统 的 C/S 模式 类 似 ， 但 
是 这 种 结构 不 同 于 C/S 模式 。 传 统 意义 上 的 C/S 模式 采用 的 是 一 种 垄断 的 手段 ， 所 有 资料 
都 存放 在 服务 器 上 ， 客 户 端 只 能 被 动 地 从 服务 器 上 读 取 信息 ， 并 且 客 户 端 之 间 不 具有 交互 
能 力 。 而 在 集中 目录 式 P2P 结构 中 ， 中 央 目 录 服 务 器 只 保留 索引 信息 ， 由 对 等 节点 负责 保 
存 各 自 提供 服务 的 全 部 资料 ， 此 外 服务 器 与 对 等 节点 以 及 对 等 节点 之 间 都 具有 交换 能 力 。 
集中 目录 式 P2P 网 络 模型 结构 采用 星 形 结构 ， 群 组 中 的 对 等 节点 都 与 中 心目 录 服 务 器 
相连 ， 并 向 其 发 布 分 享 的 文件 列表 。 查 询 节点 可 向 中 心目 录 服 务 器 发 起 文件 检索 请 求 ， 得 
到 回复 后 ， 查 询 节 点 则 根据 网 络 流量 和 延迟 等 信息 选择 合适 的 节点 建立 直接 连接 ， 而 不 必 
经 过 中 央 服 务 器 进行 ， 此 时 文件 交换 即 可 直接 在 两 个 对 等 节点 之 间 进 行 。 该 过 程 中 ， 中 央 
目录 服务 器 负责 记录 群 组 所 有 参与 者 的 信息 ， 以 进行 适当 的 管理 。 
集中 目录 式 P2P 网 络 结构 非常 简单 ， 它 显示 了 P2P 系统 信息 量 巨大 的 优势 和 吸引 力 。 
这 种 结构 的 最 大 优点 是 维护 简单 、 发 现 效率 高 。 由 于 资源 的 发 现 依赖 于 中 心 化 的 目录 系 
统 ， 发 现 算法 灵活 高 效 并 能 够 实现 复杂 查询 。 另 外 ， 这 种 结构 提高 了 网 络 的 可 管理 性 ， 使 
得 对 共享 资源 的 查找 和 更 新 非常 方便 。 但 是 同时 ， 这 种 对 等 网 络 模型 也 存在 很 多 问题 ， 具 
体 说 明 如 下 。 
a 可靠 性 和 安全 性 较 低 : 集中 目录 式 结构 最 大 的 问题 与 传统 的 C/S 结构 类 似 ， 容 易 
造成 单 点 故障 。 中 央 目 录 服 务 器 失效 则 该 服务 器 下 的 对 等 节点 将 全 部 失效 。 
Q ”维护 成 本 高 ， 随 着 网 络 规模 的 扩大 ， 对 中 央 目 录 式 服务 区 进行 维护 和 更 新 的 费用 
将 急剧 增加 。 
O ”存在 法 律 版 权 和 资料 浪费 问题 ， 通 过 这 种 网 络 模型 ， 大 量 的 有 版 权 的 资料 可 以 通 
过 中 央 目 录 式 服务 器 轻易 地 获得 ， 故 常常 引起 共享 资源 版 权 问 题 上 的 纠纷 。 
Q) 总 结 
综合 集中 目录 式 结构 的 优 缺 点 ， 这 种 结构 对 小 型 网 络 而 言 ， 在 管理 和 控制 方面 占 一 定 
优势 。 但 鉴于 其 存在 的 种 种 缺陷 ， 该 模型 并 不 适合 大 型 网 络 应 用 。 


2. 纯 P2P 网 络 模型 


(1) 原理 

在 纯 P2P 网 络 模型 中 ， 每 个 节点 都 同时 扮演 着 客户 端 和 服务 器 的 角色 ， 节 点 之 间 的 通 
信 ( 包 括 发 送 请 求 、 接 受 响 应 以 及 下 载 文件 等 ) 是 完全 对 等 的 。 与 集中 目录 式 结构 不 同 ， 它 
不 需要 来 自 中 心服 务 器 的 任何 帮助 ， 而 是 每 个 节点 都 维护 着 一 个 邻居 列表 ， 节 点 通过 和 它 
邻居 进行 交互 来 完成 特定 的 行为 。 这 种 网 络 结构 解决 了 中 心 化 的 问题 ， 扩 展 性 和 容错 性 
较 好 。 纯 P2P 可 以 从 网 络 拓扑 上 进一步 区 分 为 非 结构 化 覆盖 网 络 和 结构 化 覆盖 网 络 两 种 ， 
它们 之 间 的 差异 很 大 。 
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(2) 网 络 模型 

纯 P2P 非 结构 化 网 络 模型 也 被 称 作 广播 式 的 P2P 模型 。 由 于 没有 专门 的 目录 服务 器 ， 
对 等 节点 之 间 的 内 容 查询 和 内 容 共 享 都 是 直接 通过 相 邻 节点 广播 接力 完成 的 。 

在 这 种 网 络 模型 中 ， 每 个 用 户 随机 接 入 网 络 ， 并 与 自己 相 邻 的 一 组 邻居 节点 通过 端 到 
端 连接 ， 构 成 一 个 逻辑 覆盖 的 网 络 。 在 非 结构 化 覆盖 网 络 中 ， 节 点 维护 的 邻居 是 随意 的 、 
无 规则 的 ， 信 息 资 源 在 POP 网 络 中 的 存放 位 置 和 网 络 本 身 的 拓扑 结构 无 关 。 没 有 一 个 对 等 
节点 知道 整个 网 络 的 结构 或 者 组 成 网 络 的 每 个 对 等 节点 的 身份 ， 对 等 节点 必须 使 用 它们 所 
在 的 网 络 来 定位 其 他 对 等 点 。 希 望 知道 网 络 中 另 一 个 对 等 节点 的 位 置 时 ， 该 查询 节点 就 发 
出 一 个 查询 请 求 并 直接 广播 到 所 连接 的 邻居 节点 ， 这 些 邻 居 尝 试 满足 这 个 请 求 。 如 果 这 些 
邻居 不 能 完全 满足 这 个 请 求 ， 就 以 同样 的 方式 广播 到 它们 各 自 连 接 的 邻居 节点 ， 以 此 类 
推 。 为 防止 搜索 环 路 的 产生 ， 每 个 节点 还 会 记录 搜索 轨迹 ， 直 到 收 到 应 答 或 达到 最 大 步 数 
(为 避免 系统 无 限 循环 而 定义 的 检索 级 数 ， 通 常设 置 值 为 5~9)， 从 而 使 发 起 原始 查询 的 终 
端 可 以 直接 向 对 等 节点 获取 内 容 。 

G) 总 结 
这 种 模型 具有 的 优点 包括 : 
完全 的 分 布 性 使 之 具有 最 大 的 容错 性 ， 不 会 出 现 单 点 崩溃 现象 。 
能 潜在 地 获得 最 多 的 查询 结果 。 
这 种 模型 的 缺点 主要 包括 : 
整个 网 络 的 扩展 性 较 差 ， 随 着 对 等 节点 数量 的 增加 ， 网 络 可 能 因 过 多 的 查询 消息 
而 发 生 拥 塞 。 
模型 中 没有 中 央 目 录 服 务 器 对 用 户 进行 管理 ， 因 此 缺乏 较 好 的 集中 控制 和 策略 。 
查询 的 有 效 期 和 正确 性 都 不 能 保证 。 
能 力 有 限 的 对 等 节点 容易 成 为 系统 瓶颈 。 
口 ” 网 络 中 对 等 点 的 查找 和 定位 比较 复杂 ， 效 率 低下 。 


3. 分 层 式 P2P 网 络 模型 


(1) 原理 

上 面 对 集 中 目录 式 P2P 网 络 模型 和 纯 P2P 网 络 模 型 进行 了 概述 。 然 而 在 实际 应 用 中 ， 
尤其 在 大 规模 网 络 中 ， 这 两 种 网 络 模型 都 显露 出 各 自 的 不 足 。 集 中 目录 式 网 络 模型 有 利于 
网 络 资源 的 快速 检索 ， 但 是 其 中 心 化 的 模式 容易 遭 到 直接 的 攻击 ; 纯 POP 网 络 模型 解决 了 
抗 攻击 问题 ， 但 是 又 缺乏 快速 搜索 和 可 扩展 性 。 所 以 ， 出 现 了 分 层 式 POP 网 络 模型 ， 它 吸 
取 了 集中 目录 式 网 络 模型 和 纯 P2P 网 络 模型 的 优点 ， 在 设计 和 处 理 能 力 上 都 进行 了 优化 ， 
按 节 点 能 力 不 同 (计算 能 力 、 内 存 大 小 、 连 接 带 宽 、 网 络 滞留 时 间 等 ) 区 分 为 超级 节点 和 普 
通 节 点 两 类 。 在 资源 共享 方面 ， 所 有 节点 的 地 位 相同 ， 区 别 在 于 ， 超 级 节点 上 存储 了 系统 
中 其 他 部 分 节点 的 信息 ， 发 现 算法 仅 在 超级 节点 之 间 转 发 ， 超 级 节点 再 将 查询 请 求 转发 给 
适当 的 普通 节点 。 这 样 ， 在 超级 节点 之 间 就 构成 一 个 高 速 转发 展 ， 超 级 节点 和 所 负责 的 普 
通 节 点 构成 若干 层次 。 

另外 还 可 以 根据 需要 在 各 个 超级 节点 之 间 再 次 选取 性 能 最 优 的 节点 ， 或 者 另外 引入 新 


DODDO 


ooo 


第 10 章 电驴 下 载 系统 


的 性 能 最 优 的 节点 作为 更 高 一 层 超级 节点 来 保存 整个 网 络 中 可 以 利用 的 超级 节点 信息 ， 并 
且 负 责 维 护 整个 网 络 的 结构 。 

Q) 查询 机 制 

在 分 层 式 网 络 中 ， 一 个 或 几 个 超级 节点 与 其 临近 的 若干 普通 节点 之 间 构 成 一 个 自治 的 
徐 。 簇 内 节点 可 以 自治 地 进行 消息 查询 ; 而 整个 POP 网 络 中 各 个 不 同 的 簇 之 间 ， 通 过 纯 
P2P 的 模式 将 超级 节点 连接 起 来 进行 消息 查询 。 根 据 簇 的 规模 不 同 ， 各 个 簇 可 采用 不 同 的 
查询 机 制 。 主 要 有 如 下 儿 种 查询 机 制 : 

Q ”如果 一 个 徐 只 有 少量 节点 (比如 儿 十 个 )， 每 个 节点 可 以 维护 一 个 本 地 路 由 表 ， 通 
过 一 致 散 列 函数 来 分 配 和 定位 键 值 (key,value) 对 ， 使 得 查询 簇 内 的 其 他 任 一 节点 
的 条 数 为 oq). 

口 ” 如 果 簇 内 有 比较 多 的 节点 (比如 儿 百 个 )， 那 么 可 以 利用 超级 节点 查询 簇 内 的 其 他 
节点 。 这 时 ， 只 要 查询 节点 向 簇 内 的 超级 节点 发 送 查 询 请 求 ， 就 可 以 在 O(1) 内 查 
找到 目的 节点 。 

口 ” 如 果 簇 内 有 大 量 节点 (比如 上 千 个 )， 那 么 就 可 以 在 簇 内 使 用 Chord. CAN. Pastry 
BK Tapestry 这 类 算法 。 这 样 ， 查 找 跳 数 会 是 O(logN)，NN 为 簇 内 节点 数 。 

假设 簇 g 中 的 一 个 节点 x 要 在 网 络 中 查询 节点 y， 则 查询 步骤 如 下 (这 里 只 考虑 两 层 时 

的 查询 )。 
© 节点 x 通过 簇 内 协议 在 簇 g 中 查找 ， 若 节点 y BER g 中 ， 则 查询 结束 ; 若 节 点 
y TER g 中 ， 则 由 超级 节点 组 成 的 上 层 overlay 利用 簇 间 查询 协议 进行 查找 。 
© 利用 超级 节点 组 成 的 上 层 overlay 找到 距离 节点 y BERI gs WA g' 将 继续 本 
© Re 再 根据 其 内 部 协议 查询 到 节点 y， 并 把 查询 结果 返回 给 节点 x. 
G) EH 
若 节 点 x 要 加 入 一 个 分 层 式 P2P 网 络 。 假 设 x 可 以 获得 一 个 它 应 归属 的 超级 节点 的 JD 
值 k。 首 先 ，x 用 与 网 络 中 已 经 存在 的 另 一 节点 y 取得 联系 ，y 定位 并 返回 对 应 于 k 的 簇 
中 超级 节点 的 ID。 如 果 这 个 返回 的 超级 节点 ID 值 恰好 是 k, WA x 就 是 用 普通 节点 加 入 
机 制 加 入 该 超级 节点 所 在 徐 ， 并 将 自己 的 CPU、 带 宽 等 信息 告知 该 超级 节点 ; 如 果 返 回 的 
超级 节点 ID 不 是 k， 那 么 就 会 生成 一 个 新 的 簇 ， 这 个 簇 只 包含 x 一 个 节点 。 
在 一 个 网 络 中 ， 如 果 每 个 徐 有 m 个 超级 节点 ， 那 么 先 加 入 簇 的 m 个 节点 将 会 成 为 超 
级 节点 。 然 而 ， 如 前 文 所 述 ， 超 级 节点 应 该 是 性 能 稳定 、 功 能 强 的 节点 ， 因 此 ， 这 些 超 级 
节点 监视 着 新 加 入 簇 的 节点 。 超 级 节点 维护 着 一 个 “超级 节点 候选 名 单 ”， 一 个 节点 在 网 
络 中 持续 时 间 越 长 ， 它 所 拥有 的 资源 越 多 ， 那 么 这 个 节点 更 容易 被 选 为 超级 节点 。 这 个 名 
单 会 定期 发 送 给 簇 中 的 普通 节点 。 当 一 个 超级 节点 失效 或 退出 时 ， 名 单 中 的 第 一 候选 节点 
将 会 成 为 超级 节点 ， 并 加 入 上 层 overlay， 并 通知 簇 内 所 有 节点 和 其 他 簇 的 超级 节点 。 因 
此 ， 上 层 overlay 中 节点 的 稳定 性 最 高 ， 并 且 能 快速 修复 超级 节点 偶尔 的 失效 或 离开 。 

(4) 性 能 分 析 

由 于 普通 节点 的 文件 查询 先 在 其 所 属 的 簇 内 进行 ， 只 有 查询 结果 不 充分 的 时 候 ， 再 通 
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过 超级 节点 之 间 进行 有 限 的 泛 洪 。 这 样 就 极为 有 效 地 消除 了 纯 P2P 结构 中 使 用 泛 洪 算法 带 
来 的 网 络 拥塞 、 搜 索 迟 组 等 不 利 影响 。 同 时 ， 由 于 每 个 簇 中 的 超级 节点 监控 着 所 有 普通 节 
点 的 行为 ， 能 确保 一 些 恶意 的 攻击 行为 能 在 网 络 局 部 得 到 控制 ， 在 一 定 程度 上 提高 了 整个 
网 络 的 负载 平衡 。 
总 之 ， 分 层 式 网 络 模型 充分 利用 了 节点 能 力 的 差异 性 ， 例 如 把 节点 分 为 超级 节点 和 普 
通 节点 ， 超 级 节点 之 间 互 连 组 织 成 上 层 结构 ， 超 级 节点 为 普通 节点 提供 服务 以 承担 更 多 的 
任务 ， 普 通 节点 的 性 能 不 会 对 系统 产生 很 大 影响 等 ， 这 种 层次 结构 提高 了 数据 定位 的 效 
率 。 但 是 ， 当 前 的 分 层 式 模型 都 只 是 在 原来 的 非 结 构 化 或 结构 化 拓扑 中 选取 性 能 好 的 节点 
组 成 上 层 结构 ， 拓 扑 结构 没有 考虑 节点 的 动态 性 。 底 层 覆 盖 网 中 一 般 采 用 中 央 服 务 器 或 者 
DHT 消息 路 由 技术 ， 上 层 采 用 泛 洪 式 消息 路 由 技术 ， 没 有 针对 分 层 式 的 拓扑 结构 提出 相应 
的 分 层 式 数据 定位 算法 。 
(5) 总 结 
P2P 分 层 式 网 络 模型 的 优点 如 下 。 
口 “ 按 性 能 对 节点 进行 分 类 : 根据 节点 的 能 力 合理 分 担负 载 ， 只 有 计算 能 力 强 、 网 络 
带宽 高 的 节点 能 成 为 超级 节点 ， 并 承担 簇 间 查 询 任务 。 
口 ” 各 艇 相对 独立 ， 如 果 一 个 簇 改 变 了 其 内 部 查询 机 制 ， 这 种 改变 对 于 其 他 徐 和 上 层 
查询 机 制 是 独立 的 。 同 样 ， 当 一 个 节点 失效 (或 加 入 网 络 ) 时 ， 只 对 其 归属 簇 的 路 
由 表 有 影响 ， 而 不 会 对 其 他 簇 造 成 影响 。 
a ”提高 了 查询 速度 ， 由 于 划分 徐 ， 每 个 簇 内 节点 个 数 远 少 于 总 节点 数 ， 从 而 减少 路 
由 跳 数 。 同 样 ， 由 超级 节点 组 成 的 上 层 overlay 网 络 比 一 般 的 POP 网 络 更 稳定 ， 
这 增加 了 整个 网 络 的 稳定 性 ， 使 得 查询 跳 数 更 接近 理论 上 的 最 佳 值 ， 比 如 ， 对 于 
Chord 算法 平均 跳 数 为 /2logNGN 为 Chord 网 络 中 的 节点 数 )。 并 且 查 询 时 延 也 大 
大 减少 。 
a 减少 了 查询 消息 传播 的 数量 : 由 于 上 层 的 overlay 性 能 稳定 ， 从 而 减少 了 重 发 消息 
数量 。 每 次 查询 更 少 的 跳 数 同样 意味 着 每 次 请 求 最 少 的 消息 交换 。 并 且 ， 这 种 分 
层 式 节 点 组 织 可 以 很 好 地 适应 内 容 存 储 ， 因 此 可 以 进一步 减少 簇 间 的 消息 数量 。 


10.2 eMule 基础 


2002 年 5 月 13 日 ， 一 个 叫做 Merkur 的 人 不 满意 当时 的 eDonkey 2000 客户 端 ， 并 且 
坚信 自己 能 做 出 更 出 色 的 P2P 软件 。 于 是 他 凝聚 了 一 批 原本 在 其 他 领域 有 出 色 发 挥 的 程序 
员 ，eMule 工程 就 此 诞生 。 他 的 目标 是 将 eDonkey 2000 的 优点 及 精华 保留 下 来 ， 并 加 入 新 
的 功能 以 及 使 图 形 界面 变 得 更 好 。 他 们 甚至 无 法 想象 这 东西 将 决定 着 什么 …… 

SR, eMule 已 是 世界 上 最 大 并 且 最 可 靠 的 点 对 点 文档 共享 的 客户 端 软件 之 一 。 感 谢 
开放 源 代 码 的 政策 ， 使 许多 开发 人 员 能 够 对 这 个 工程 有 所 贡献 ， 从 而 使 发 布 新 版 本 显得 更 
有 效率 。 要 了 解 更 多 的 知识 ， 可 访问 eMule 官方 网 址 www.eMule-project.net. 
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10.2.1 国内 版 电驴 


当前 国内 用 户 使 用 最 频繁 的 eMule 工具 是 VeryCD 版 电驴 ，VeryCD 版 电驴 不 但 继承 
了 eMule 原版 的 所 有 特色 ， 更 在 贴 合 中 国 网 民 使 用 习惯 的 基础 上 改进 和 加 强 了 eMule, fi 
原本 复杂 专业 的 软件 用 起 来 得 心 应 手 。 另 外 ，VeryCD 版 电驴 是 目前 唯一 一 个 真正 支持 内 
网 穿 透 的 电驴 版 本 ， 也 是 全 球 第 一 个 真正 实现 大 面积 内 网 穿 透 的 开源 软件 ， 与 老 版 相 比 速 
度 有 成 倍 的 提高 。 至 今 ，VeryCD 版 电驴 已 是 中 国 使 用 最 广泛 的 POP 软件 ， 每 月 安装 量 超 
过 900 万 次 ， 同 时 在 线 超过 500 万 用 户 ， 用 最 快 的 速度 为 VeryCD 用 户 分 享 最 新 、 最 热门 
的 互联 网 资源 。 

VeryCD 版 电驴 是 基于 GPL 协议 对 开源 软件 eMule 进行 的 合法 扩展 ， 其 开发 者 和 拥有 
者 为 VeryCD 开发 团队 ， 与 eMule 官方 (eMule-project.net) 无 任何 关系 。 他 们 的 目标 是 在 继 
7K eMule 精华 功能 的 基础 上 进行 独立 开发 ， 做 出 更 多 更 优秀 的 改进 ， 为 网 友 贡 献 最 好 的 资 
源 分 享 软件 。 

eMule 的 界面 如 图 10-1 所 示 。 


图 10-1 eMule 的 界面 


10.2.2 eMule 的 特点 


eMule 与 其 他 P2P 软件 相 比 ， 其 主要 优点 和 特色 如 下 : 

a ”客户 端 使 用 多 个 途径 搜索 下 载 的 资料 源 ， 通 过 ED2K、 来 源 交 换 、Kad 共同 组 成 
一 个 可 靠 的 网 络 结构 。 

o Kad 现在 尚 处 于 开放 测试 阶段 ， 在 eMule v0.42 及 后 续 版 本 中 ， 可 以 使 用 Kad. 

a eMule 的 排队 机 制 和 上 传 积分 系统 有 助 于 激励 人 们 共享 并 上 传 给 他 人 资源 ， 以 使 
自己 更 容易 、 更 快速 地 下 载 自 己 想 要 的 资源 。 

Q eMule 是 完全 免费 的 。 官 方 版 eMule 也 完全 没有 任何 的 广告 软件 ， 这 样 做 是 为 了 
乐趣 及 知识 。 
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a “每 个 下 载 的 文件 都 会 自动 检查 是 否 损坏 以 确保 文件 的 正确 性 ， 例 如 FTP 就 不 能 保 
证 精确 复制 。 
智能 损坏 控制 有 助 于 快速 修复 损坏 的 部 分 。 
自动 优先 权 及 来 源 管理 系统 允许 您 一 次 下 载 许 多 个 资源 ， 而 无 须 监视 它们 。 
预览 功能 允许 在 下 载 完成 之 前 查看 我 们 的 视频 文件 。 
eMule 的 Web 服务 特性 和 Web 服务 器 允许 用 户 快速 地 从 网 络 存 取 资 料 。 
能 在 下 载 时 组 织 和 管理 文件 。 
为 寻找 想 要 的 资源 ，eMule 提供 了 一 个 大 范围 的 搜索 方式 ， 包 括 服务 器 搜索 (本 地 
和 全 球 )、 基 于 Web 搜索 (Jigle 和 Filedonkey) 及 Kad 网 络 ( 仍 在 测试 )。 
a eMule 允许 使 用 非常 复杂 的 布尔 搜索 ， 使 搜索 更 为 灵活 。 
口 ” 使 用 信息 及 好 友 系 统 ， 能 传送 讯息 到 其 他 的 客户 端 并 可 将 他 们 加 为 好 友 。 如 果 有 
好 友 上 线 ， 就 能 在 好 友 列 表 中 看 到 。 
口 ” 使 用 内 建 的 IRC 客户 端 ， 可 以 和 全 世界 其 他 的 共享 者 聊天 。 
要 想 迅速 上 手 eMule， 可 以 登录 http://www.eMule.org.cn/guide/ 来 获取 相关 资料 。 
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10.3 eMule 协议 


eMule 协议 是 开发 电驴 程序 的 基本 知识 ， 在 本 节 的 内 容 中 ， 将 简要 介绍 eMule 协议 的 
基本 知识 ， 为 读者 步 入 本 书后 面 知 识 的 学 习 打 下 基础 。 


10.3.1 eMule 协议 基础 


1. 客户 到 服务 器 的 连接 

在 启动 客户 端 之 前 ， 先 使 用 TCP 协议 连接 到 一 个 eMule 服务 器 。 服 务 器 提供 给 客户 端 
一 个 客户 端 ID， 这 个 ID 在 整个 客户 端 服务 端 连接 的 生命 周期 中 都 有 效 (拥有 high ID 的 客 
户 端 在 IP 地 址 改变 之 前 将 从 所 有 的 服务 端 获得 同等 级 的 ID)。 连 接 确立 之 后 ， 客 户 将 自己 
的 共享 文件 列表 发 送 给 服务 器 。 服 务 器 将 这 些 列 表 存 在 它 本 身 的 数据 库 中 ， 通 常 这 些 数据 
库 包含 了 成 百 上 千 的 共享 文件 清单 和 有 效 的 客户 端 。eMule 客户 端 同 时 也 下 载 它 想 获得 的 
文件 的 文件 列表 。 在 连接 确立 之 后 ，eMule 服务 器 将 发 送 给 各 客户 端 一 份 客户 端 列表 ， 这 
个 列表 中 的 客户 端 中 有 下 载 者 想 下 载 的 文件 (这 些 客户 端 叫 做 “ 源 ”)。 从 此 刻 开始 ，eMule 
客户 端 开 始 建立 与 客户 端的 连接 。 

eMule 系统 如 图 10-2 所 示 。 

客户 端 /服务 端的 TCP 连接 在 整个 客户 端 会 话 过 程 中 持续 开放 。 在 初次 握手 协议 之 后 
E 要 是 用 户 活动 : 客户 端 为 了 获得 新 的 搜索 结果 ， 不 时 地 发 送 搜 索 请 求 ， 一 个 搜索 通常 紧 
R 着 是 一 个 对 于 特殊 文件 资源 的 查询 ， 回 复查 询 的 清单 是 由 能 下 载 到 该 文件 的 资源 (IP 和 
) 组 成 。UDP 用 来 与 服务 器 端 做 信息 交换 ， 而 不 是 服务 器 端 与 它 相 连 的 客户 端 之 间 交 
流 。UDP 消息 的 目的 是 增加 文件 搜索 、 增 加 资源 搜索 ， 最 终 保 持 活 跃 性 (确保 客户 端 中 的 
服务 器 列表 中 的 服务 器 都 是 有 效 的 )。 
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图 10-2 eMule 的 系统 示意 图 

2. 客户 端 和 客户 端的 连接 

一 个 eMule 客户 端 为 了 下 载 文件 而 连接 到 其 他 的 eMule 客户 端 (一 个 资源 )。 文 件 被 分 
割 为 几 个 部 分 ， 每 个 部 分 又 是 由 更 多 的 片段 组 成 。 

一 个 客户 端 可 以 从 许多 (不 同 的 ) 客 户 端 下 载 同一 个 文件 的 ， 获 得 不 同 的 片断 。 当 两 个 
客户 端 连接 时 ， 它 们 交换 接受 能 力 信息 ， 然 后 商议 开始 下 载 (或 者 上 传 ， 取 决 于 需求 )。 

每 一 个 客户 端 拥 有 一 个 下 载 队列 来 保存 等 待 下 载 文件 的 客户 端 。 当 一 个 eMule 客户 端 
清空 下 载 队列 时 ， 通 常 是 由 于 要 开始 一 个 下 载 。 当 下 载 队列 不 清空 时 ， 将 导致 队列 中 请 求 
客户 的 增加 。 

在 给 定 的 时 间 内 ， 即 便 是 每 个 客户 用 最 小 的 带宽 2.4kb/s， 也 只 能 服务 极 少数 的 客户 。 
如 果 在 15 分 钟 的 下 载 过 程 队 列 中 ， 有 比 正 在 下 载 的 用 户 更 高 级 的 用 户 ， 该 用 户 将 抢占 下 
载 中 的 用 户 进行 下 载 ， 这 样 做 可 防止 长 期 等 待 。 

当 一 个 下 载 中 的 客户 端 到 达 下 载 队列 的 最 顶端 时 ， 上 传 客户 端 就 会 发 起 一 个 连接 来 传 
输 下 载 端 需要 的 部 分 。 一 个 eMule 客户 端 或 许 同 时 在 许多 其 他 客户 端的 等 待 队列 中 ， 去 下 
载 一 个 文件 的 同一 部 分 。 当 等 待 中 的 客户 端 实际 上 已 经 下 载 完成 了 该 部 分 (从 它们 其 中 的 一 
个 ) 它 并 不 通知 其 他 剩 下 的 所 有 客户 端 可 以 从 等 待 队列 中 将 其 清除 ， 而 仅仅 是 在 它 到 达 等 待 
队列 的 顶端 时 拒绝 那些 客户 端的 上 传 请 求 。 

eMule 采用 了 一 个 荣誉 系统 来 鼓励 上 传 ， 采 用 RSA 公开 密 钥 加 密 算法 来 保护 eMule R 
誉 系统 的 安全 性 。 客 户 的 连接 使 用 的 是 eDonkey 协议 中 没 定义 的 一 组 消息 ， 这 些 消 息 被 叫 
做 扩展 协议 。 这 个 扩展 协议 用 来 实现 荣誉 系统 ， 用 来 说 明 信 息 交换 (例如 更 新 服务 器 和 资源 
列表 ) 和 提高 传送 和 接受 压缩 数据 块 的 性 能 。eMule 客户 端 仅 在 他 要 开始 下 载 文件 时 使 用 
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UDP 去 检查 它 的 上 传 队列 中 的 每 一 个 客户 端的 状态 。 
3. 客户 ID 


客户 端 在 与 服务 端 进行 握手 连接 时 ， 服 务 端 给 客户 端 一 个 4 字 节 的 标识 符 作为 客户 端 
ID。 一 个 客户 端的 有 效 ID 仅 在 “客户 /服务 器 ”的 TCP 连接 中 获得 ， 有 时 该 客户 端 可 能 是 
High ID。 但 是 直到 它 的 IP 地 址 改变 之 前 ， 对 于 所 有 的 服务 器 它 将 赋予 同一 个 DD。 客 户 端 
ID 被 分 为 Low IDs 和 High IDs。 当 客户 端 不 能 接受 连 入 连接 请 求 时 ，eMule 服务 端 将 把 它 
们 标识 为 Low ID. HHA Low ID 的 用 户 将 被 限制 使 用 eMule 网 络 ， 并 且 可 能 导致 服务 器 拒 
绝 客户 端的 连接 。 一 个 被 给 予 High ID 的 客户 端 允 许 其 他 的 客户 端 自由 地 连接 到 其 主机 的 
eMule 的 TCP 端口 (默认 的 端口 号 是 4662)。 拥 有 High ID 的 客户 端 可 以 无 限制 地 使 用 
eMule 网 络 。 当 服务 端 不 能 够 与 客户 端的 eMule 端口 建立 TCP 连接 时 ， 该 客户 端 将 被 给 予 
Low ID。 这 主要 是 由 于 客户 端 在 它们 的 机 器 上 设立 的 防火 墙 阻止 了 引入 的 连接 。 在 下 面 的 
情况 下 ， 客 户 端 同样 也 有 可 能 获得 Low ID。 

(1) 客户 端 是 通过 NAT 或 代理 服务 器 连接 的 。 

(2) 服务 端 过 于 繁忙 ， 导 致 服务 端的 重 接 计时 器 到 时 。 

4. ARID 

eMule 支持 一 个 荣誉 系统 来 鼓励 使 用 者 共享 文件 。 用 户 上 传 给 其 他 用 户 的 文件 越 多 ， 
他 就 能 获得 更 多 的 荣誉 ， 同 时 它们 在 等 待 队列 中 前 进 得 就 越 快 。 用 户 ID 是 由 连接 随机 数 
创造 的 一 个 128 位 (16 字 节 ) 的 GUID， 第 6 字 节 和 第 15 字 节 不 是 随机 产生 的 ， 它 们 的 值 分 
别 是 14 和 111。 当 客户 端 与 特殊 的 服务 端 会 话 取得 有 效 的 客户 ID 时， 用 户 ID( 也 叫 用 户 
哈 希 数 ) 是 唯一 的 ， 并 且 通 过 会 话 识别 客户 (用 户 ID 识别 工作 站 )。 用 户 ID 在 荣誉 系统 中 扮 
演 了 重要 的 角色 ， 这 也 为 hackers 模仿 其 他 的 用 户 利用 它们 的 荣誉 度 获得 特权 提供 了 动 
Blo eMule 支持 一 种 加 密 方案 来 阻止 欺骗 和 用 户 扮演 。 


10.3.2 ”客户 服务 器 TCP 信 息 


每 一 个 客户 端 使 用 TCP 连接 来 连接 到 唯一 的 一 个 指定 的 服务 器 。 这 个 服务 器 将 分 配给 
该 客户 端的 一 个 ID， 这 个 ID 将 在 该 客户 与 其 他 服务 器 会 话 的 过 程 中 唯一 地 标识 自己 (一 个 
High ID 用 户 总 是 依据 其 IP 地 址 进行 分 配 的 )。 为 了 使 一 个 eMule 图 形 用 户 界 面 客户 端 运作 
起 来 ， 首 先 要 与 服务 器 建立 一 个 连接 。 客 户 端 既 不 能 同时 连接 多 个 客户 端 ， 也 不 能 在 没有 
目 户 干涉 时 自动 改变 客户 端的 连接 。 

1. 建立 连接 

在 建立 与 服务 器 的 连接 时 ， 客 户 端 尝试 着 向 许多 平行 服务 器 建立 连接 ， 成 功 登 录 序 列 
之 外 的 将 全 部 被 放弃 。 有 如 下 3 种 可 能 成 功 建立 连接 的 情况 。 

Q High ID 连接 : 服务 器 分 配给 连 入 的 客户 端 一 个 High ID. 

Q Low ID 连接 : 服务 器 分 配给 连 入 的 客户 端 一 个 Low ID. 

口 “ 拒 绝 会 话 : 服务 器 拒绝 该 客户 端 。 

当然 在 少数 情况 下 不 能 建立 连接 ， 例 如 服务 器 崩溃 了 或 者 服务 器 是 不 可 到 达 的 。 
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图 10-3 描述 了 建立 一 个 High ID 连接 的 消息 顺序 。 在 这 种 情况 下， 客户 端 先 与 服务 器 
建立 一 个 TCP 连接 ， 然 后 向 服务 器 发 送 登录 请 求 消息 。 服 务 器 使 用 另外 一 个 TCP 连接 来 
连接 客户 端 ， 该 连接 扮演 了 一 个 client-to-client 的 握手 过 程 ， 通 过 这 个 连接 ， 服 务 器 可 以 确 
定 该 客户 端 是 否 有 接受 其 他 客户 端 连 入 的 能 力 。 完 全 完成 客户 端 握手 之 后 ， 服 务 器 关闭 第 
二 个 连接 ， 并 且 向 客户 端 发 送 一 个 ID 变换 消息 ， 然 后 结束 “客户 -服务 器 ”的 握手 会 话 。 
此 时 eMule-info 消息 是 灰色 的 ， 这 是 因为 该 消息 是 eMule 扩展 协议 的 一 部 分 。 


Client Server 


Start time —connect (Top) | 
on | 
|, connect acp) H 


_ hello ——1| 
laco 


eMule inf, 
E > 


~—hello answer — 


à peci —- 
= _Discon! 


_idchange — Y 


M 
= 
End time 
M 


Y 


图 10-3 High ID 登录 序列 


图 10-4 描述 了 建立 一 个 Low ID 连接 的 消息 顺序 。 这 种 情况 发 生 在 服务 端 尝试 与 客户 
端 建立 连接 失败 并 分 配给 该 客户 端 Low ID 的 时 候 。 这 样 的 服务 器 消息 通常 包含 警告 信 
息 ， 例 如 “Warning [server details] - You have a lowid. Please review your network config 
and/or your settings” Low ID 和 High ID 握手 都 是 以 ID 变更 消息 作为 结束 的 ， 这 个 消息 分 
配 了 该 客户 端 今后 它 与 其 他 服务 器 会 话 时 所 使 用 的 客户 ID。 

图 10-5 描述 了 拒绝 连接 的 消息 顺序 。 由 于 客户 端 拥有 的 是 Low ID 或 当 服务 器 达到 了 
它们 的 硬 界限 时 ， 会 拒绝 客户 端的 连接 。 服 务 器 消息 将 报告 关于 拒绝 原因 的 简单 描述 。 

2. 连接 启动 信息 交换 

在 成 功 建立 连接 之 后 ， 客 户 与 服务 器 交换 几 个 设置 消息 。 这 些 消 息 是 为 了 更 新 与 他 们 
同 层 的 peer 的 状态 。 开 始 客户 端 先 向 服务 端 提供 一 个 共享 文件 信息 列表 ， 然 后 请 求 更 新 它 
的 服务 器 列表 。 服 务 器 发 送 有 关 自 己 的 版 本 和 状态 信息 ， 然 后 发 送 一 个 已 知 eMule 服务 器 
列表 ， 并 提供 更 多 一 些 有 关 自 我 识别 的 细节 ， 最 后 客户 端 请 求 资源 (在 服务 器 下 在 列表 中 能 
下 载 到 该 文件 的 客户 端 ) 并 且 服 务 端 恢复 一 连 串 消息 ， 每 一 个 文件 提供 一 个 客户 端的 下 载 列 
表 ， 直 到 客户 端 下载 完 成 了 所 有 的 资源 列表 。 图 10-6 说 明了 这 个 顺序 。 


X 
加 网 络 编程 开发 与 实战 
Client Server 


Start time ece, | 
[| 


10-4 Low ID 登 录 序列 
Client Server 


Start time 


End time 


10-5 ”拒绝 会 话 序列 


Client Server 


Start time [ferte | 


End line | 


10-6 ”连接 启动 消息 序列 
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3. 文件 检索 


文件 检索 是 由 用 户 开始 的 。 操 作 很 简单 ， 向 服务 器 发 送 搜索 请 求 ， 即 可 获得 搜索 结 
果 。 当 结果 很 多 时 ， 搜 索 结 果 将 被 压缩 。 下 一 步 用 户 将 选择 一 个 或 者 多 个 他 要 下 载 的 文 
件 ， 然 后 客户 端 请 求 选择 的 文件 资源 ， 并 且 服 务 器 将 为 每 一 个 请 求 的 文件 提供 一 个 资源 列 
表 。 在 建立 资源 答复 消息 之 前 ， 有 一 个 可 选择 的 服务 器 状态 信息 。 这 个 状态 信息 包含 了 当 
前 用 户 数 和 服务 器 所 支持 的 文件 。 在 此 值得 注意 的 是 ， 这 里 有 一 个 额外 的 UDP 消息 序 
列 ， 用 来 增强 客户 对 端 搜索 列表 中 资源 的 定位 能 力 。 在 确定 资源 都 是 最 新 的 之 后 ，eMule 
客户 端 开 始 试图 建立 连接 并 且 增加 它们 的 资源 列表 。 图 10-7 描述 了 文件 检索 的 消息 顺序 。 


Client Server 


Start time 


图 10-7 文件 检索 消息 序列 


eMule 客户 端 按照 它们 增加 到 列表 中 的 顺序 去 连接 资源 。eMule 没有 决定 哪个 资源 先 
连接 的 优先 权 机 制 。 

eMule 有 一 个 复杂 的 机 制 来 向 客户 端 说 明 在 它 的 下 载 列表 中 的 哪 一 个 资源 是 可 以 被 请 
求 的 (注意 eMule 在 两 个 客户 端 之 间 仅 允许 一 条 上 传 连接 )。 

这 个 选择 算法 是 基于 我 们 的 优先 权 机 制 ， 当 没有 指定 优先 权时 ， 默 认 的 规则 是 按照 字 
母 的 顺序 。 让 一 个 资源 可 以 上 传 多 个 文件 的 详细 描述 到 eMule 的 网 页 上 。 

4. 复查 机 制 


复查 机 制 是 为 了 克服 Low ID 用 户 不 能 够 接受 引入 的 连接 而 引入 的 ， 因 此 不 能 与 其 他 
的 客户 分 享 它们 的 文件 。 

复查 机 制 很 简单 ， 加 入 A. B 两 个 客户 端 ， 连 接 到 同一 个 eMule 服务 器 ，A 需要 一 个 
B 所 拥有 的 文件 ， 但 是 B 是 一 个 Low ID，A 可 以 向 服务 器 提交 一 个 复查 请 求 ， 请 求 服务 
器 让 B 来 主动 请 求 A。 

与 B 已 经 建立 一 个 开放 的 TCP 连接 的 服务 器 将 向 B 发 送 一 个 复查 请 求 消息 ， 向 B 提 
ft A 的 IP 地 址 和 端口 号 ，B 就 可 以 不 借助 服务 器 向 A 发 送 文 件 了 。 由 此 可 见 ， 只 有 拥有 
High ID 的 客户 端 可 以 向 拥有 Low ID 的 客户 端 请 求 复查 (一 个 Low ID 的 客户 端 不 能 够 接受 
连 入 连接 请 求 )。 

图 10-8 描述 了 复查 机 制 的 消息 交换 过 程 。 


k 


网 络 编程 开发 与 实战 


Client A Server Client B 
(High ID) (Low ID) 


Start time 


10-8 复查 消息 序列 


10.3.3 客户 /服务 器 UDP 信息 


eMule 客户 端 与 服务 端 采 用 不 可 靠 的 UDP 服务 来 保持 联系 和 增进 搜索 。 产 生 的 UDP 
封包 的 可 以 达到 eMule 客户 端 所 产生 封包 总 数量 的 59%。 这 取决 于 客户 端 服务 器 列表 中 服 
务 器 的 数量 、 客 户 端 下 载 列表 中 每 一 个 要 下 载 文件 的 资源 数量 和 客户 搜索 查询 的 次 数 。 有 
一 个 100 毫秒 为 周期 的 计时 器 来 触发 UDO 封包 ， 并 且 有 单独 一 个 线程 来 处 理 UDP 相关 的 
事情 ， 因 此 UDP 封包 的 数目 可 以 达到 最 多 每 秒 10 个 。 

1. 服务 器 持续 运行 和 状态 信息 

客户 不 时 地 改变 其 服务 清单 上 的 服务 器 状态 。 这 种 改变 是 通过 使 用 UDP 服务 器 状态 
请 求 和 UDP 服务 器 描述 请 求 来 完成 的 。 这 里 描述 的 简单 服务 器 持续 运行 ， 计 划 每 小 时 不 
会 产生 太 多 的 数据 包 ， 这 些 数 据 包 无 论 如 何 也 不 会 超过 0.2 个 / 秒 (每 5 秒 一 个 数据 包 )。 客 
户 在 检查 服务 器 的 时 候 ， 首 先 会 发 送 一 个 服务 器 状态 请 求 信息 ， 并 且 在 每 两 次 的 服务 器 描 
述 尝试 中 需要 如 图 10-9 所 示 的 周期 循环 。 


10-9 UDP 周期 循环 


客户 端 发 送 的 服务 器 状态 请 求 包含 了 服务 器 回复 中 回应 的 随机 数 。 在 服务 器 回应 的 数 
字 与 客户 端 发 送 的 口令 不 一 致 时 ， 在 回复 当中 的 信息 将 被 丢弃 。 每 当 有 一 个 状态 请 求 数据 
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包 发 送 至 服务 器 ， 客 户 端 都 会 预先 准备 一 个 attempt-counter。 任 何 来 自 服务 器 的 信息 (包括 
搜索 结果 等 ) 都 将 重 置 这 个 attempt-counter。 当 它 达 到 一 个 可 控制 的 极限 时 ， 服 务 器 就 被 认 
为 是 死亡 的 ， 并 从 客户 端的 服务 器 清单 中 清除 。 服 务 端 回 执 包括 如 下 两 个 数据 项 目 。 
O ”服务 器 状态 回执 : 包括 用 户 当 前 的 数字 和 服务 器 中 的 文件 ， 还 有 服务 器 软件 硬件 
的 极限 限制 。 
口 ”服务 器 描述 回执 : 包括 服务 器 的 名 字 和 一 个 短 的 描述 字符 串 。 图 10-10 说 明了 在 
客户 端 和 活动 服务 端 中 完整 的 keep-alive 序列 中 的 信息 流 。 


Client 


Start time 


10-10 ”UDP 保持 运行 序列 
2. 增强 文件 搜索 


eMule 可 以 使 用 UDP 来 增强 它 的 文件 搜索 能 力 。UDP 搜索 请 求 的 格式 基本 上 和 TCP 
搜索 请 求 的 格式 一 样 。 服 务 器 只 在 有 搜索 结果 时 才 做 出 回应 。UDP 搜索 信息 有 两 种 不 同 的 
opcodes， 但 是 几乎 找 不 出 它们 之 间 的 不 同 。UDP 搜索 分 包 被 发 送 到 客户 端 服务 器 列表 中 
的 服务 器 中 去 。 

3. 增强 文件 资源 搜索 

当 一 个 客户 端的 下 载 列表 中 的 某 一 个 文件 的 资源 数 少 于 一 个 配置 好 的 下 限 (100) 时 ， 客 
户 端 将 会 周期 性 地 向 服务 器 列表 中 服务 器 发 送 UDP 封包 ， 以 获得 该 文件 的 更 多 的 资源 。 
每 秒 钟 都 要 发 送 封包 ， 因 此 这 些 封包 占 客户 端 产生 的 封包 中 相当 可 观 的 一 部 分 。 消 息 的 格 
式 与 TCP Counter 部 分 的 格式 很 相似 。 注 意 与 TCP 资源 搜索 不 同 的 是 UDP 资源 搜索 与 文 
件 搜 索 无 关 ， 它 只 取决 于 一 个 给 定 文件 所 拥有 的 资源 数 。 


10.3.4 ”客户 端 到 客户 端的 TCP 信 息 


客户 端 在 完成 其 在 服务 端的 注册 和 查询 它 所 要 的 文件 及 资源 后 ， 将 试 着 与 其 他 的 客户 
端 进行 连接 ， 来 下 载 文件 。 

我 们 将 为 每 一 对 [文件 , 客户 ] 建 立 一 个 单独 的 TCP 连接 。 当 在 一 个 确定 的 时 间 内 (默认 
是 40 秒 ) 没 有 活跃 的 Socket 或 者 Peer 主动 断 开 连接 时 ， 连 接 将 被 终止 。 为 了 提供 满意 的 下 
载 速度 ， 在 能 够 向 下 载 客户 端 提供 最 小 的 允许 速度 (硬性 规定 是 2.4kbps) 之 前 ，eMule 不 会 
让 客户 端 开 始 下 载 。 


Visual C++ GEÉZIEZEZELZ 


1. 初次 握手 

初次 握手 的 时 候 ， 双 方向 对 方 发 送 同样 的 消息 。 两 个 客户 端 之 间 交 换 彼 此 的 标识 、 版 
本 和 接受 能 力 信息 。 这 里 有 两 种 消息 一 一 欢迎 消息 和 eMule 信息 消息 ， 第 一 个 是 eDonkey 
的 一 部 分 ， 与 eDonkey 客户 端 该 消息 是 一 样 的 ， 第 二 个 是 客户 端 扩 展 协议 的 一 部 分 ， 只 针 
对 eMule. K| 10-11 描述 了 两 个 eMule 客户 端 之 间 的 握手 。 这 之 中 包含 了 一 些 额 外 的 信 
息 ， 例 如 UDP 消息 交换 ， 安 全 识别 和 资源 交换 能 力 。 


Client A Client B 


Start time 
| 一 onnect(TCP) 


—helo —— 
eMule info 
hello answe 


eMule info an 


Endtime y Wer 


图 10-11 eMule 客户 端 初次 握手 
2. 安全 用 户 识别 


在 前 面 曾经 简单 地 介绍 了 用 户 ID 和 用 户 扮 演 其 他 用 户 的 可 能 性 。 安 全 用 户 识别 是 
eMule 扩展 协议 的 一 部 分 。 在 初次 握手 完成 后 就 会 进行 用 户 安全 识别 。 如 果 要 使 用 安全 用 
户 识别 ， 需 要 通过 下 面 几 个 步骤 来 实现 。 

(1) 在 初次 握手 时 ，B 提出 它 支 持 并 且 想 使 用 安全 用 户 识别 。 

(2) A 回复 安全 识别 消息 ， 该 消息 指明 了 A 是 否 需要 B 的 公 钥 ， 并 且 包 括 一 个 已 经 由 
B 确定 的 4 字 节 的 标记 。 

G) WRATH BMA, WA B 将 它 的 公 钥 发 送 给 A. 

(4) B 发 送 一 个 由 标记 产生 的 签名 消息 ， 额 外 还 有 一 个 双 字 节 ， 在 B 是 Low ID 的 情 
WU FÆ A HI IP eht, YEB 是 High ID 的 情况 下 是 B 的 ID 号 。 图 10-12 描述 了 这 个 序列 。 


A doen't have B's public key A has B's public key 
Client A Client B Client A Client B 
Start time Start time 
End time End time 


图 10-12 ”用户 安全 识别 过 程 
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3. 文件 请 求 


就 像 前 面 提 及 的 ， 每 一 对 “客户 端 /文件 ”都 建立 一 个 单独 的 连接 。 连 接 建 立 之 后 ， 客 
户 端 立即 发 送 一 些 关 于 其 向 下 载 的 文件 的 查询 信息 。 
图 10-13 描述 了 一 个 典型 的 成 功 过 程 。 


Client A Client B 


Starttime File request 
Requested file ip. 


File request answét 
File status- 
* Sources answef 
Endtime < 


Sourc: 
[ources request 


Y 
10-13 ”文件 请 求 

(1) 基本 信息 交换 

由 4 个 消息 组 成 了 基本 的 信息 交换 : A 在 发 送 一 个 文件 请 求 信息 之 后 立即 发 送 一 个 请 
求 文件 ID 信息 。B 回复 这 个 请 求 ， 一 个 文件 请 求 应答 和 一 个 根据 文件 ID 信息 的 文件 状态 
信息 。 这 可 以 通过 简单 的 两 个 消息 (一 个 请 求 消息 和 一 个 回复 消息 ) 来 实现 。 扩 展 协 议 在 资 
源 请 求 中 增加 了 两 个 消息 和 一 个 资源 应 答 。 这 些 扩展 用 来 将 B 的 资源 (在 B 正在 下 载 文 件 
的 时 候 ) 传 送 给 A. B 没有 必要 在 完全 下 载 完成 部 分 文件 之 后 才 将 它 传送 给 其 他 的 客户 ，B 
可 以 传送 给 A 其 完成 下 载 的 任何 一 部 分 ， 即 使 只 是 文件 的 一 个 很 小 的 片断 。 

(2) 没有 找到 文件 时 的 情况 

A 向 B 请 求 一 个 文件 ， 但 是 B 的 共享 文件 列表 中 没有 这 个 文件 。 在 接收 到 请 求 文件 
ID 消息 后 ，B 将 忽略 这 个 文件 请 求 信息 ， 并 回复 一 个 文件 无 法 找到 的 消息 ， 就 像 图 10-14 
中 描述 的 一 样 。 

Client A Client B 


Stattime -File request 


-Requested file ID > 
| Sources request 


File.not found" 


Connection closed > 
v Y 


10-14 ”文件 请 求 失败 一 一 文件 没有 找到 


(3) 争取 到 上 传 队 列 

B 被 请 求 上 传 文件 ， 但 是 它 的 上 传 队列 这 时 并 不 为 空 ， 这 就 意味 着 有 客户 正在 下 载 文 
件 同时 上 传 队列 中 还 有 等 待 中 的 客户 。A 与 B 就 像 图 10-13 中 描述 的 那样 建立 了 一 个 完整 
的 握手 ， 但 是 当 A 向 B 请 求 下 载 文件 的 时 候 ，B 将 A 加 入 到 它 的 上 传 队列 中 ， 然 后 回复 
一 个 包含 A 在 B 的 下 载 队列 中 的 位 置 的 队列 消息 。 

图 10-15 详细 说 明了 这 个 过 程 。 
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Client A Client B 


Start time 


i uest answer 
4 File req 
Start u 
Pload request, 


File info 


Queue ranking 
< " 
«4 Connection close > 


End time v 


里 
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(4) 到 达 上 传 队列 的 最 顶端 

当 A 到 达 B 的 上 传 队列 的 最 顶端 时 ，B 和 A 进行 连接 ， 完 成 初次 握手 ， 然 后 发 送 同 
意 下 载 请 求 消息 。 此 时 A 可 以 发 送 一 个 请 求 部 分 消息 来 开始 下 载 文件 ， 也 可 以 发 送 一 个 取 
消 传送 消息 来 中 止 (在 已 经 从 其 他 的 资源 取得 了 这 部 分 文件 时 )。 图 10-16 详细 地 描述 了 这 
个 过 程 。 


Client A Client B Client A Client B 
Start time .. Connect m Start time . Connect — — 
= bs 
Initial handshake » «Initial handshake 
Secure Ident Accept upload reque, 4Secure Ident Accept upload request 
s | | -一 
Request parts R Canceltransfer 
End time Y End time y 
图 10-16 文件 请 求 开始 下 载 
4. 数据 传输 
(1) 数据 包 


发 送 和 接收 文件 是 eMule 网 络 活动 的 主要 部 分 。 由 FTP 传输 我 们 可 以 推断 出 eMule 在 
发 送 文件 匹配 数据 传输 中 起 到 控制 作用 。 

一 次 发 送 的 数据 量 可 以 在 5000 到 15000 字 节 之 间 ， 这 取决 于 压缩 程度 。 为 了 避免 文 
件 破碎 ， 一 个 文件 被 分 割 为 很 多 部 分 来 传输 ， 每 一 部 分 放 在 一 个 独立 的 TCP 封包 当中 。 

在 eMule 0.30e 中 ， 每 一 部 分 最 大 为 1300 字 节 (注意 这 个 数字 仅 取决 于 TCP 的 负载 能 
力 )。 换 句 话 说， 控制 消息 的 TCP 封包 有 时 包含 其 他 的 消息 ， 但 是 数据 信息 却 是 以 封包 为 
单位 的 。 

第 一 个 封包 包含 了 发 送 文件 的 信息 报头 。 剩 下 的 封包 中 仅 包 含 了 数据 。 有 时 被 发 送 的 
文件 比 1300 字 节 略 大 一 点 ， 这 部 分 内 容 也 放 在 第 一 个 封包 中 (被 包含 在 报头 中 )。 图 10-17 
详细 地 说 明了 文件 部 分 消息 。 
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Client A Client B header: 


Start time > 《一 一 一 一 remainder to 
Sendir g pat reach overall 
— 


1300 bytes aS part packet i ant 
uu - acket 一 一 
lo r i a 
L last part packet — 


End time Y Y 
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Q) 数据 传输 序列 

在 文件 请 求 恢复 后 将 立即 进行 文件 传输 。 正 在 下 载 的 客户 A 发 送 一 个 开始 上 传 请 求 ， 
然后 被 回复 一 个 上 传 请 求 消息 。 之 后 A 立即 还 是 接收 文件 ，B 开始 发 送 文件 。 注 意 一 个 文 
件 部 分 请 求 可 以 到 达 3 部 分 ， 因 此 每 一 个 文件 部 分 请 求 应 答 也 用 到 3 个 发 送 部 分 序列 。 当 
两 个 客户 端 都 支持 扩展 协议 时 ， 文 件数 据 将 会 被 压缩 。 扩 展 协议 也 支持 一 个 可 选择 的 文件 
信息 消息 ， 这 个 消息 在 接收 到 同一 上 传 请 求 消息 之 后 立即 发 送 。 图 10-18 详细 地 描述 了 数 
据 传输 序列 。 


Client A Client B 
Stattime | File request answer 
< 


Start upload request > 


File info A 
4 ue: 
Upload Rea 
4 Accept UP 
Request parts 
Sending part 
Sending part 


> 


Request parts 
Compressed part 


Y 


图 10-18 数据 部 分 交换 

(3) 选择 哪 一 部 分 要 被 下 载 

eMule 有 选择 性 地 选择 一 个 文件 各 部 分 的 下 载 顺序 ， 以 实现 最 大 的 网 络 吞 吐 量 和 共享 
性 。 每 一 个 文件 被 分 割 为 很 多 部 分 ， 每 一 部 分 的 大 小 为 23MB， 每 一 部 分 又 被 分 割 为 很 多 
大 小 为 180KB 的 块 。 文 件 块 的 下 载 顺序 由 正在 下 载 的 客户 端的 文件 块 请 求 消息 决定 。 下 载 
中 的 客户 可 以 在 任何 一 个 给 定 的 时 间 内 下 载 文件 的 一 个 部 分 和 从 这 个 资源 下 载 这 个 文件 部 
分 的 所 有 块 。 下 载 优先 规则 如 下 : GD 文件 块 (可 用 的 ) 出 现 的 频率 ， 稀 少 的 文件 块 必须 被 尽 
快 地 下 载 ， 来 成 为 新 的 可 获得 的 资源 ，@ 用 来 预览 的 文件 块 (第 一 和 最 后 一 块 )， 预 览 或 者 
检查 文件 (比如 电影 、MP3) 优 先 ; 图 请 求 状 态 (正在 下 载 中 的 ) 试 着 向 每 一 个 资源 请 求 另 外 一 


p 


: N x 
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块 文件 块 ， 请 求 被 发 送 到 所 有 的 资源 ，@ 完 成 (最 短 的 先 完成 )， 在 开始 另外 一 个 下 载 之 前 
要 先 完成 所 有 未 完成 的 块 。 

文件 出 现 的 频率 被 分 为 三 个 等 级 ， 分 别 是 非常 稀有 、 稀 有 和 普通 。 在 每 一 个 等 级 都 有 
一 个 标准 来 计算 每 一 个 部 分 的 等 级 。 低 等 级 的 部 分 被 先 下 载 。 下 面 的 标准 详细 地 说 明了 文 
件 的 级 别 信息 。 

口 0-9999: 请 求 的 和 未 被 请 求 的 非常 稀有 的 部 分 。 

Q 10000-19999. 未 被 请 求 的 稀有 部 分 和 预览 部 分 。 

Q 20000-29999: 未 被 请 求 的 完成 最 多 的 部 分 。 

Q 30000-39999: 请 求 非常 多 的 和 预览 部 分 。 

Q 40000-49999: 未 完成 的 普通 部 分 。 

这 个 优先 法 则 通常 选择 第 一 个 最 稀有 的 部 分 。 然 而 接近 完成 的 部 分 被 下 载 的 文件 块 也 
将 被 选择 ， 这 会 从 一 些 不 同 的 资源 下 载 。 

5. 浏览 共享 文件 和 文件 夹 

eMule 有 如 下 两 个 消息 来 浏览 Peer 客户 的 共享 文件 和 文件 夹 。 

(1) 第 一 个 : 是 浏览 共享 文件 消息 ， 它 将 在 建立 完 第 一 次 握手 之 后 立即 被 发 送 。 总 是 
有 一 个 共享 文件 应 答 消息 来 回复 这 个 消息 。 当 应 答 客户 端 想 隐藏 它 的 共享 文件 时 ， 应 答 消 
息 文件 中 包含 0 个 文件 (而 不 是 否认 这 条 消息 )。 图 10-19 详细 地 描述 了 这 个 过 程 。 

Client A Client B 


Start time 


Hello / Hello answer 
View. Shared files z 


View shared fedem 
End time Y 


图 10-19 浏览 共享 文件 
(2) 第 二 个 : 是 请 求 共 享 文件 夹 列 表 ， 然 后 再 为 每 一 个 共享 文件 夹 发 送 一 个 共享 文件 
夹 消息 请 求 信息 。 每 一 个 这 种 消息 将 会 收 到 一 个 文件 夹 信息 作 应 答 。 图 10-20 详细 地 说 明 
了 这 个 过 程 。 
Client A Client B 
— -Hello / Hello answer 
"View shared folders. f 


red folders answer 一 | 
le _ View shai 


Endtime | Content request 


request content answer 
一 一 t answet 
T Vi .. Content 2! 
> Hew content — a ER 
Content answeF 
= 
M v 
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有 时 在 接收 客户 端 时 想 阻 止 浏览 共享 文件 /文件 夹 请 求 ， 此 时 将 回复 一 个 拒绝 消息 ， 如 
图 10-21 中 描述 的 那样 。 


Client A Client B. Client A Client B. 
Start time | Start time i 
m vi — Vien 
tew shared folders — R W Shared folder content, 
View shared denied — | View shared denied 一 
End time Y _ Y End time Y us 


图 10-21 浏览 被 拒绝 
6. 交换 部 分 哈 希 组 
通过 发 送 一 个 哈 希 组 请 求 来 得 到 部 分 哈 西 ， 这 个 请 求 被 哈 希 组 回执 回复 ， 其 中 包括 文 
件 中 每 个 部 分 中 的 哈 西 组 。 图 10-22 对 其 进行 了 说 明 。 


Client A Client B 


Start time 


Hashset request 一 | 


P 


— Hashset answer 


End time 
M 


图 10-22 ” 哈 希 组 请 求 
7. 得 到 一 个 文件 的 预览 
客户 端 可 以 要 求 他 们 的 Peer 得 到 一 个 下 载 完毕 文件 的 预览 。 预 览 是 依靠 应 用 程序 的 ， 
并 且 有 不 同 的 文件 种 类 。eMule 0.30e 只 支持 图 像 预览 。 信 息 交 换 在 图 10-23 中 描述 并 仅 包 
含 两 个 信息 (预览 请 求 和 预览 应 答 )。 


Client A ClientB 
Start time 
一 一 Preview request 、 
preview Answer 7 
End time y M 
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10.4 Kad 协 议 


Kad 是 Kademlia 的 简称 ，Kademlia 是 P2P 重合 网 络 传输 协议 ， 以 构建 分 布 式 的 P2P 
电脑 网 络 。 是 一 种 基于 异 或 运算 的 P2P 信息 系统 。 它 制定 了 网 络 的 结构 及 规范 了 节点 间 通 
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讯 和 交换 资讯 的 方式 。 在 本 节 的 内 容 中 ， 将 简要 讲解 Kad 的 基本 知识 。 


10.4.1 Kad 原 理 


Kademlia 节点 间 用 传输 通讯 协议 UDP 沟通 。Kademlia 节点 利用 分 布 式 散 列表 (DHT) 
储存 资料 索引 。 透 过 现 有 的 局 域 网 /广域网 (LAN/WAN)， 建 立 起 一 个 新 的 虚拟 网 络 或 重 肝 
网 络 。 

在 Kad 网 络 中 ， 每 个 节点 只 负责 处 理 一 小 部 分 搜索 和 查找 源 的 工作 。 分 配 这 些 工作 的 
时 候 ， 通 过 我 们 每 个 用 户 端的 唯一 的 ID 和 搜索 文件 的 Hash 值 之 间 的 匹配 来 决定 。 

户 可 以 进行 简单 的 理解 : 在 Kad 网 络 的 世界 里 ， 用 户 可 以 直接 问 其 他 用 户 “你 有 没 
有 我 要 的 文件 ”， 如 果 有 ， 就 会 进行 文件 传输 ， 如 果 没 有 ， 就 会 告知 哪个 用 户 有 或 者 可 能 
有 ， 直 到 文件 传输 完毕 。 

与 ED2K 网 络 的 不 同 在 于 ，Kad 网 络 让 用 户 省 去 了 从 服务 器 寻找 用 户 源 的 步骤 ， 可 以 
直接 找寻 到 合适 的 用 户 源 ， 进 行文 件 传输 。 

Kad 端口 则 是 用 来 进行 Kad 节点 间 沟 通 的 端口 。Kad 协议 的 应 用 比较 广泛 ， 在 国内 最 
主要 的 体现 是 电驴 (VeryCD) 下 载 。 


10.4.2 ”Kad 和 ed2k 之 间 的 关系 


Kad 是 Kademlia 的 简称 ，eMule( 电 驴 ) 的 官方 网 站 在 2004 年 2 月 27 日 正式 发 布 的 
eMule v0.42b 中 ，Kad 开始 正式 内 柑 成 为 eMule 的 一 个 功能 模块 ， 可 以 说 从 这 个 版 本 开始 
eMule 便 开始 支持 Kad 网 络 了 。 

Kad 的 出 现 ， 结 束 了 先前 eDonkey 时 代 ， 在 ed 圈 里 只 存在 着 ED2K 一 种 网 络 的 模 
式 ， 它 通过 新 的 协议 开创 并 形成 了 自己 的 Kad 网 络 ， 使 之 与 ed2k 网 络 并 驾 齐 驱 ， 而 且 它 
还 完全 支持 两 种 网 络 ， 可 以 在 两 种 网 络 之 间 通 用 。Kad 同样 也 属于 开源 的 自由 软件 ， 它 的 
程序 和 源 代码 可 以 在 官方 网 站 上 下 载 。 

Kad 网 络 拓扑 的 最 大 特点 在 于 它 完全 不 需要 服务 器 ， 我 们 都 知道 传统 的 ed2k 网 络 需要 
服务 器 支持 作为 中 转 和 存储 hash 列表 信息 ，Kad 可 以 不 通过 服务 器 同样 完成 ed2k 网 络 的 
一 切 功能 ， 你 唯一 要 做 的 就 是 连 线 上 网 ， 然 后 打开 Kad。Kad 需要 UDP 端口 的 支持 ， 之 后 
eMule 会 自动 按照 客户 端的 要 求 ， 来 判断 它 能 否 自由 连 线 ， 然 后 同样 也 会 分 配给 你 一 个 
id， 这 个 过 程 与 ed2k 的 高 id 和 低 id 检查 很 像 ， 不 过 这 个 id 所 代表 的 意义 不 同 于 ed2k 网 
络 ， 它 代表 一 个 是 否 “freely” 的 状态 。 

Kad 和 ed2k 网 络 有 着 完全 不 同 的 观念 ， 但 是 有 相同 的 目的 : 都 是 搜索 和 寻找 文件 的 
源 。Kad 网 络 的 主要 的 目标 是 做 到 不 需要 服务 器 和 改善 可 量 测 性 。 相 对 于 传统 的 ed2k 服务 
器 只 能 处 理 一 定数 量 的 使 用 者 (我 们 在 服务 器 列表 也 都 看 到 了 ， 每 个 服务 器 都 有 最 大 人 数 限 
制 )， 而 且 如 果 服 务 器 比较 大 ， 连 接 人 数 过 多 ， 还 会 严重 地 拖 垮 网 络 。 而 Kad 能 够 自我 组 
织 ， 并 且 自 我 调节 最 佳 的 使 用 者 数量 以 及 它们 的 连接 效果 。 因 此 ， 它 更 能 使 网 络 的 损失 达 
到 最 小 。 由 于 具备 了 以 上 所 叙述 的 功能 ，Kad 也 被 称 之 为 Serverless Network( 无 服务 器 网 
络 )。 虽 然 目 前 一 直 处 于 开发 阶段 (Alpha Stage)。 但 毫 无 疑问 ， 它 无 可 比拟 的 优势 ， 将 会 使 
它 成 为 P2P 的 明天 。 
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Kademlia 网 络 提供 了 如 下 4 种 Protocol(RPC)。 

Q PING: 测试 是 否 节点 存在 。 

Q STORE: 存储 通知 的 资料 。 

Q FIND NODE: 通知 其 他 节点 帮助 寻找 Node. 

Q FIND VALUE: 通知 其 他 节点 帮助 寻找 Value。 

当 每 一 个 指令 被 接受 后 ， 每 一 个 节点 都 会 到 k-bucket 上 搜寻 ， 通 过 这 样 的 结构 ，Kad 
提供 一 个 方便 快速 且 可 以 被 保证 在 lgN 次 数 下 找到 所 需 的 节点 。 在 Kad 网 络 中 ， 每 个 
eMule 用 户 端 只 负责 处 理 一 小 部 分 搜索 和 查找 源 的 工作 。 分 配 这 些 工作 的 时 候 ， 通 过 每 个 
用 户 端的 唯一 的 ID 和 搜索 文件 的 Hash 值 之 间 的 匹配 来 决定 。 整 个 过 程 有 点 像 在 照 线索 循 
序 问 路 而 找到 正确 方向 ， 而 不 是 在 路 上 随便 到 处 抓 人 问 路 。 而 每 个 地 方 的 网 络 相关 信息 ， 
则 会 随 着 电脑 及 文件 的 加 入 而 持续 更 新 。 好 处 在 于 让 你 可 以 搜索 整个 网 络 ， 而 不 只 是 在 某 
一 地 区 。 目 前 来 讲 ， 这 个 机 制 和 算法 是 绝对 领先 而 且 非 常 优秀 的 。 

当 使 用 eMule 打开 Kad 时 ， 会 发 现 有 如 下 两 个 明显 的 特点 : 

口 “ 下 载 速度 会 加 快 。 

口 下载 文 件 的 源 会 增加 。 

以 上 两 条 对 于 lowid 和 经 常 下 载 源 在 国外 的 文件 用 户 ， 效 果 更 为 突出 ， 特 别 是 对 于 在 
ed2k 网 络 中 只 有 几 个 源 或 者 没有 源 的 文件 。 在 Kad 网 络 中 ， 一 般 都 能 找到 源 ， 所 以 说 只 要 
使 用 了 eMule 下 载 文 件 ， 基 本 上 不 会 出 现 没 有 源 的 情况 ， 无 论 多 长 时 间 ， 差 别 只 是 源 的 多 
少 个 数 问题 。 由 于 Kad 网 络 都 是 自动 配置 的 ， 所 以 你 丝毫 不 用 分 心 ， 那 么 索性 我 们 就 打开 
它 ， 何 乐 而 不 为 呢 ? 

另外 对 于 我 们 搜索 的 时 候 ， 如 果 采 用 Kad 网 络 搜索 ， 多 数 情况 下 找到 的 文件 源 会 远 远 
多 于 ed2k 的 全 局 搜索 ， 对 于 大 家 都 是 一 个 明智 的 选择 。 


10.5 ”分析 电驴 源码 


读者 可 以 登录 http:/www.emule.org.cn/download/ 下 载 最 新 版 eMule VeryCD 的 源 代 
码 ， 如 图 10-24 所 示 。 


GPL 协议 简 述 : 
D, EC DERI RISEUSE)GPLIQUI ( SSR ROT EES ) , 国 为 GPL 无 
STINE: 
mee : is A md 
件 , 只 要 路 中 使 用 了 受 GPL IDSGRICEUE  SRCUHUIER  SOHUTRA AURI , 软件 本身 
DRENTHE GPL EPHE BRER, HTC 


无 6 软件 以 何 种 形式 发 , 
本 (如果 有 的 活 ) 下 载 的 同一 个 页 面 , PEARSE FENER, IORDDKERIURSS , RA 
FSR LEE, 
* FEREPSS GPL 协议 开发 的 软件 的 公司 或 个 人 . TUNSERCR_SHRERS, AS 
IC IMERUESEHIIOREESUR ， 


C++ 源 代码 


Mule Ve 
JEEIRRAEUUREESRHOSHDBSE TRE 


10-24 下载 电 驴 源码 


eMule 是 一 个 MFC 程序 ， 是 用 Visual Studio NET 2003 开发 的 ， 打 开 下载 后 的 目录 ， 


如 图 10-25 所 示 。 


AeMule 


et CrashReporter [ra crypto5l 
c id3lib 
| ResizableLib 


c zlib 


CJ a 
g- 
名 一 


图 10-25 下 载 的 电驴 源码 
其 中 源 代码 文件 保存 在 sre 目录 下 ， 接 下 来 开始 分 析 其 核心 代码 。 


10.5.1 类 


项 目 中 有 CAICHHash, CAICHHashAlgo, CAICHHashSet, CAICHRequestedData , 


CAICHHashTree 和 CAICHUntrustedHash 等 主要 类 ， 
义 的 ， 在 文件 SHAHashSet.cpp 中 实现 具体 的 功能 。 


上 述 类 是 在 文件 SHAHashSeth 中 定 


(1) CAICHHashAlgo 是 一 个 算法 接口 类 ， 定 义 了 散 列 算法 的 接口 。 具 体 代 码 如 下 : 


class CAICHHashAlgo 

{ 

public: 
virtual 
virtual 
virtual 
virtual 


void Reset () 20; 

void Add(LPCVOID pData, DWORD nLength)-0; 
void Finish(CAICHHash &Hash)-0; 

void GetHash (CAICHHash &Hash)-0; 

MF 


(2) CAICHUntrustedHash 类 是 一 个 数据 结构 ， 表 示 不 信任 的 散 列 值 。 具 体 代 码 如 下 : 


class CAICHUntrustedHash 
{ 
public: 


CAICHUntrustedHash& operator=(const CAICHUntrustedHash &kl) 


{ 
m adwIpsSigning.Copy(kl.m adwIpsSigning); 
m Hash = kl.m Hash; 
return *this; 
} 
bool AddSigningIP(uint32 dwIP); 
CAICHHash m Hash; 
CArray<uint32, uint32> m adwIpsSigning; 
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(3) CAICHRequestedDat 类 也 是 一 个 数据 结构 ， 表 示 被 请 求 的 数据 。 具 体 代码 如 下 : 


class CAICHRequestedData 
{ 
public: 
CAICHRequestedData () 
t 
m nPart = 0; 
m pPartFile = NULL; 
m pClient = NULL; 
} 
CAICHRequestedData& operator=(const CAICHRequestedData &kl) 
{ 
m nPart = kl.m nPart; 
m pPartFile = kl.m pPartFile; 
m pClient = kl.m pClient; 
return *this; 
) 
uintl6 m nPart; 
CPartFile *m pPartFile; 
CUpDownClient *m pClient; 
Ve 


(4) CAICHHash 类 用 于 存储 文件 块 散 列 值 的 数据 结构 ， 分 别提 供 了 赋值 、 运 算 符 重 
载 、 数 据 写 入 和 数据 读 出 等 操作 。 具 体 代码 如 下 : 
class CAICHHash 
{ 
public: 
~CAICHHash() ( ; } 
CAICHHash () 
{ 
ZeroMemory (m abyBuffer, HASHSIZE) ; 
} 
CAICHHash(CFileDataIO *file) { Read(file); } 
CAICHHash(uchar *data) { Read(data); } 
CAICHHash (const CAICHHash &kl) ( *this = kl; } 
CAICHHash& operator-(const CAICHHash &kl) 
t 
memcpy (m abyBuffer, kl.m abyBuffer, HASHSIZE); 
return *this; 
} 
friend bool operator-- (const CAICHHash &kl, const CAICHHash &k2) 
{ 
return memcmp(kl.m abyBuffer, k2.m abyBuffer, HASHSIZE) == 0; 
} 
friend bool operator!=(const CAICHHash &kl, const CAICHHash &k2) 
{ return ! (kl == k2); } 
void Read(CFileDataIO *file); 
void Write(CFileDataIO *file) const; 
void Read(uchar *data) ( memcpy(m abyBuffer, data, HASHSIZE); } 
CString GetString() const; 
uchar* GetRawHash() ( return m abyBuffer; } 


const uchar* GetRawHashC() const ( return m abyBuffer; } 
static int GetHashSize() { return HASHSIZE; } 

private: 
uchar m abyBuffer[HASHSIZE]; 


template<> inline UINT AFXAPI HashKey(const CAICHHash &key) 
t 
uint32 hash - 1; 
for (int i-0; i!-HASHSIZE; i++) 
hash += (key.GetRawHashC () [i]+1)* ((i*i)*1); 
return hash; 
Fs 


(5) CAICHHashTree 类 实现 了 一 颗 散 列 树 ， 有 具体 代码 如 下 : 


class CAICHHashTree 
t 
friend class CAICHHashTree; 
friend class CAICHHashSet; 
public: 
CAICHHashTree(uint64 nDataSize, bool bLeftBranch, uint64 nBaseSize); 
^CAICHHashTree(); 
void SetBlockHash(uint64 nSize, uint64 nStartPos, 
CAICHHashAlgo *pHashAlg); 
bool ReCalculateHash (CAICHHashAlgo *hashalg, bool bDontReplace); 
bool VerifyHashTree (CAICHHashAlgo *hashalg, bool bDeleteBadTrees); 
CAICHHashTree* FindHash(uint64 nStartPos, uint64 nSize) 
t 
uint8 buffer = 0; 
return FindHash(nStartPos, nSize, &buffer); 
) 
uint64 GetBaseSize() const; 
void SetBaseSize(uint64 uValue); 


protected: 

CAICHHashTree* FindHash(uint64 nStartPos, uint64 nSize, uint8 *nLevel); 

bool CreatePartRecoveryData (uint64 nStartPos, uint64 nSize, 
CFileDataIO *fileDataOut, uint32 wHashIdent, bool b32BitIdent) ; 

void WriteHash(CFileDataIO *fileDataOut, uint32 wHashIdent, 
bool b32BitIdent) const; 

bool WriteLowestLevelHashs(CFileDataIO *fileDataOut, uint32 wHashIdent, 
bool bNoIdent, bool b32BitIdent) const; 

bool LoadLowestLevelHashs (CFileDatalO *fileInput); 

bool SetHash(CFileDatalO *fileInput, uint32 wHashIdent, 
sint8 nLevel-(-1), bool bAllowOverwrite-true); 

bool ReduceToBaseSize (uint64 nBaseSize); 


CAICHHashTree *m pLeftTree; 
CAICHHashTree *m pRightTree; 


public: 
CAICHHash m Hash; 
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uint64 m nDataSize; 


bool 
bool 


private: 
bool 
HE 


m bIsLeftBranch; 
m bHashValid; 


m bBaseSize; 


(6) CAICHHashSet 类 是 CKnownFile 类 的 一 个 成 员 变量 ，CKnownFile 类 通过 它 来 执 
行 分 块 操作 。 有 具体 代码 如 下 : 


class CAICHHashSet 


t 
public: 


CAICHHashSet (CKnownFile *pOwner); 
^CAICHHashSet (void); 


bool 


CreatePartRecoveryData (uint64 nPartStartPos, 


CFileDataIO *fileDataOut, bool bDbgDontLoad-false); 


bool 
bool 
bool 
void 
bool 
void 


ReadRecoveryData (uint64 nPartStartPos, CSafeMemFile *fileDataIn); 
ReCalculateHash (bool bDontReplace-false); 

VerifyHashTree (bool bDeleteBadTrees); 
UntrustedHashReceived(const CAICHHash &Hash, uint32 dwFromIP); 
IsPartDataAvailable (uint64 nPartStartPos) ; 

SetStatus (EAICHStatus bNewValue) ( m eStatus = bNewValue; } 


EAICHStatus GetStatus() const { return m eStatus; } 


void 


void 
void 
void 


Setowner(CKnownFile *val) ( m pOwner = val; } 


FreeHashSet () ; 
ReduceToPartHashs () ; 
SetFileSize(EMFileSize nSize); 


CAICHHash& GetMasterHash() { return m pHashTree.m Hash; } 


void 
bool 


bool 
bool 


SetMasterHash (const CAICHHash &Hash, EAICHStatus eNewStatus) ; 
HasValidMasterHash() { return m pHashTree.m bHashValid; } 


SaveHashSet () ; 
LoadHashSet(); // only call directly when debugging 


CAICHHashAlgo* GetNewHashAlgo(); 
static void ClientAICHRequestFailed (CUpDownClient *pClient); 
static void RemoveClientAICHRequest (const CUpDownClient *pClient); 
static bool IsClientRequestPending (const CPartFile 

*pForFile, uintl6 nPart); 
static CAICHRequestedData GetAICHReqDetails ( 

const CUpDownClient *pClient); 


void 


DbgTest(); 


CAICHHashTree m pHashTree; 
static CList«CAICHRequestedData» m liRequestedData; 
static CMutex m mutKnown2File; 


private: 


CKnownFile *m pOwner; 
EAICHStatus m eStatus; 
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CArray«CAICHUntrustedHash» m aUntrustedHashs; 


2 主要 实现 函数 


在 上 述 类 中 ， 都 定义 了 专门 实现 具体 功能 的 函数 。 在 接 下 来 的 内 容 中 ， 将 详细 讲解 这 
些 函 数 的 具体 实现 过 程 。 

() CAICHHashTree 类 提供 了 功能 强大 的 公有 函数 ， 各 个 函数 的 具体 说 明 如 下 。 

O 定义 设置 块 散 列 值 函 数 ， 在 里 面 需要 判断 散 列 值 的 健全 性 ， 有 具体 代码 如 下 : 


CAICHHashTree::CAICHHashTree (uint64 nDataSize, bool bLeftBranch, 


) 


uint64 nBaseSize) ( 


m nDataSize = nDataSize; 
SetBaseSize (nBaseSize); 

m bIsLeftBranch - bLeftBranch; 
m pLeftTree = NULL; 

m pRightTree = NULL; 

m bHashValid = false; 


// 设 置 块 散 列 值 


void CAICHHashTree::SetBlockHash(uint64 nSize, uint64 nStartPos, 


} 


CAICHHashAlgo *pHashAlg) { 
ASSERT (nSize <= EMBLOCKSIZE) ; 
CAICHHashTree *pToInsert = FindHash(nStartPos, nSize); 


if (pToInsert == NULL) { // 健全 值 
ASSERT (false) ; 
theApp.QueueDebugLogLine (/*DLP VERYHIGH,*/ false, 

T("Critical Error: Failed to Insert SHA-HashBlock, FindHash()failed!")); 
return; 


} 
//// 健全 性 


if (pToInsert->GetBaseSize() !=EMBLOCKSIZE 
|| pToInsert-»m nDataSize!=nSize) { 
ASSERT (false) ; 
theApp.QueueDebugLogLine (/*DLP VERYHIGH,*/ false, 
T("Critical Error: Logical error on values in SetBlockHashFromData") ) ; 
return; 


} 


pHashAlg->Finish (pToInsert->m Hash); 

pToInsert-»m bHashValid = true; 

//DEBUG ONLY (theApp.QueueDebugLogLine (/*DLP VERYLOW,*/ false, 

// T("Set ShaHash for block $u - $u ($u Bytes) to $s"), 

// nStartPos, nStartPos+nSize, nSize, pToInsert-»m Hash.GetString())); 


Q) 定义 函数 ReCalculateHash 来 使 用 递归 计算 丢失 的 散 列 值 ， 具 体 代码 如 下 : 
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bool CAICHHashTree::ReCalculateHash (CAICHHashAlgo *hashalg, 
bool bDontReplace) ( 
ASSERT (! ( (m pLeftTree!-NULL)^ (m pRightTree!=NULL) YE 
if (m pLeftTree && m pRightTree) ( 
qu (!m pLeftTree-»ReCalculateHash (hashalg, bDontReplace) 
IlI !m pRightTree->ReCalculateHash (hashalg, bDontReplace) ) 
return false; 
if (bDontReplace && m bHashValid) 
return true; 
if (m pRightTree-»m bHashValid && m pLeftTree-»m bHashValid) { 
hashalg->Reset () 7 
hashalg->Add(m pLeftTree-»m Hash.GetRawHash(), HASHSIZE) ; 
hashalg->Add(m pRightTree-»m Hash.GetRawHash(), HASHSIZE) ; 
hashalg->Finish(m Hash) ; 
m bHashValid = true; 
return true; 
} 
else 
return m bHashValid; 
) 
else 
return true; 
i 


@ 定义 函数 VerifyHashTree 来 检验 散 列 树 ， 并 删除 错误 的 分 支 ， 具 体 代码 如 下 : 


bool CAICHHashTree: :VerifyHashTree (CAICHHashAlgo *hashalg, 
bool bDeleteBadTrees) ( 
if (!m bHashValid) ( 
ASSERT (false); 
if (bDeleteBadTrees) ( 
delete m pLeftTree; 
m pLeftTree = NULL; 
delete m pRightTree; 
m pRightTree = NULL; 
} 
theApp .QueueDebugLogLine (/*DLP HIGH,*/ false, 
T("VerifyHashTree - No masterhash available")); 
return false; 
} 


// 计算 丢失 的 散 列 
if (m pLeftTree && !m pLeftTree-»m bHashValid) 
m pLeftTree->ReCalculateHash (hashalg, true); 
if (m pRightTree && !m pRightTree-»m bHashValid) 
m pRightTree-»ReCalculateHash(hashalg, true); 


if ((m pRightTree 
&& m pRightTree-»m bHashValid)^ 
(m pLeftTree&&m pLeftTree-»m bHashValid)) { 
// 一 个 分 支 不 能 被 检验 
if (bDeleteBadTrees) { 
delete m pLeftTree; 
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m pLeftTree = NULL; 
delete m pRightTree; 
m pRightTree = NULL; 
} 
theApp.QueueDebugLogLine (/*DLP HIGH,*/ false, 
 T("VerifyHashSet failed - Hashtree incomplete")); 
return false; 
} 
if ((m pRightTree && m pRightTree-»m bHashValid) 
&& (m pLeftTree && m pLeftTree-»m bHashValid)) { 
// 检验 本 地 散 列 值 和 子 节点 的 散 列 值 是 否 匹配 
CAICHHash CmpHash; 
hashalg-»Reset () ; 
hashalg-»Add (m pLeftTree-»m Hash.GetRawHash(), HASHSIZE); 
hashalg-»Add (m pRightTree-»m Hash.GetRawHash(), HASHSIZE); 
hashalg->Finish (CmpHash) ; 


if (m Hash != CmpHash) { 
if (bDeleteBadTrees) { 
delete m pLeftTree; 
m pLeftTree = NULL; 
delete m pRightTree; 
m pRightTree = NULL; 
} 
return false; 
} 
return m pLeftTree-»VerifyHashTree (hashalg, bDeleteBadTrees) 
&& m pRightTree-»VerifyHashTree (hashalg, bDeleteBadTrees); 
) 
else 
// 如 果 已 经 是 分 支 中 最 后 的 散 列 值 
return true; 
} 


© 定义 递归 函数 FindHas， 功 能 上 一 级 一 级 地 往 下 寻找 散 列 值 ， 具 体 代 码 如 下 : 


CAICHHashTree* CAICHHashTree::FindHash(uint64 nStartPos，uint64 nSize, 
uint8 *nLevel) ( 
(*nLevel) ++; 
if (*nLevel > 22) { // 健全 性 
ASSERT (false) ; 
return false; 


if (nStartPos«nSize > m nDataSize){ // 健 全 性 
ASSERT (false); 
return NULL; 


if (nSize > m nDataSize) ( // 健 全 性 


ASSERT (false); 
return NULL; 


if (nStartPos--0 && nSize--m nDataSize) { 
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// 此 散 列 值 是 目标 值 
return this; 
} 
else if (m nDataSize <= GetBaseSize()) { // sanity 
// 已 经 是 最 底层 ， 不 能 继续 搜索 
ASSERT (false); 
return NULL; 
} 


else { 
uint64 nBlocks = m nDataSize / GetBaseSize() 
+ ((m nDataSize $ GetBaseSize() != 0) ? 1 : 0); 


uint64 nLeft = 
(((m bIsLeftBranch) ? nBlocks+1 : nBlocks) / 2)* GetBaseSize(); 
uint64 nRight = m nDataSize - nLeft; 
if (nStartPos « nLeft) ( 
if (nStartPostnSize > nLeft) ( // 健 全 性 
ASSERT (false); 
return NULL; 


if (m pLeftTree == NULL) 
m pLeftTree = new CAICHHashTree(nLeft, true, 
(nLeft <= PARTSIZE) ? EMBLOCKSIZE : PARTSIZE); 
else ( 
ASSERT (m pLeftTree-»m nDataSize —- nLeft); 
) 
return m pLeftTree-»FindHash(nStartPos, nSize, nLevel); 
} 
else d 
nStartPos -- nLeft; 
if (nStartPos+nSize > nRight) { // 健 全 性 
ASSERT (false); 
return NULL; 


if (m pRightTree == NULL) 
m pRightTree = new CAICHHashTree (nRight, false, 
(nRight <= PARTSIZE) ? EMBLOCKSIZE : PARTSIZE); 
else ( 
ASSERT(m pRightTree-»m nDataSize == nRight); 


) 
return m pRightTree->FindHash (nStartPos, nSize, nLevel); 


} 
© 定义 函数 CreatePartRecoveryDat 来 创建 恢复 的 数据 块 ， 有 具体 代码 如 下 : 


bool CAICHHashTree::CreatePartRecoveryData (uint64 nStartPos, uint64 nSize, 
CFileDataIO *fileDataOut, uint32 wHashIdent, bool b32BitIdent) { 
if (nStartPos+nSize > m nDataSize) { // 健 全 性 
ASSERT (false); 
return false; 
} 
if (nSize > m nDataSize) ( // 健 全 性 


ASSERT (false); 
return false; 


if (nStartPos--0 && nSize--m nDataSize) { 
// 如 果 此 数据 块 是 目标 数据 块 ， 则 将 所 有 的 数据 分 组 写 入 到 该 数据 块 中 
// hashident for this level will be adjsuted by WriteLowestLevelHash 
return WriteLowestLevelHashs (fileDataOut, wHashIdent, 

false, b32BitIdent); 

} 

else if (m nDataSize <= GetBaseSize()) { // 健 全 性 
// 已 经 不 是 最 底层 ， 不 能 继续 搜索 
ASSERT (false); 
return false; 

) 


else ( 
wHashIdent ««- 1; 
wHashIdent |= (m bIsLeftBranch) ? 1: 0; 


uint64 nBlocks = m nDataSize / GetBaseSize() 
+ ((m nDataSize $ GetBaseSize() != 0) ? 1 : 0); 
uint64 nLeft — 
(((m bIsLeftBranch) ? nBlocks+1 : nBlocks) / 2) * GetBaseSize(); 
uint64 nRight = m nDataSize - nLeft; 
if (m pLeftTree--NULL || m pRightTree--NULL) ( 
ASSERT (false); 
return false; 


if (nStartPos « nLeft) ( 
if (nStartPos+nSize>nLeft 
|| !m pRightTree-»m bHashValid) { // 健 全 性 
ASSERT (false); 
return false; 
} 
m pRightTree->WriteHash (fileDataOut, wHashIdent, b32BitIdent) ; 
return m pLeftTree-»CreatePartRecoveryData (nStartPos, nSize, 
fileDataOut, wHashIdent, b32BitIdent); 
} 
else { 
nStartPos -= nLeft; 
if (nStartPos+nSize>nRight 
|| !m pLeftTree-»m bHashValid) ( // 健 全 性 
ASSERT (false); 
return false; 
} 
m pLeftTree-»WriteHash(fileDataOut, wHashIdent, b32BitIdent) ; 
return m pRightTree-»CreatePartRecoveryData (nStartPos, nSize, 
fileDataOut, wHashIdent, b32BitIdent); 


) 
© 定义 函数 WriteHash， 用 于 向 文件 中 写 入 散 列 值 ， 具 体 代码 如 下 : 
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void CAICHHashTree: :WriteHash(CFileDataIO *fileDataOut, uint32 wHashIdent, 
bool b32BitIdent) const { 
ASSERT (m bHashValid); 
wHashIdent <<= 1; 
wHashIdent |= (m bIsLeftBranch) ? 1 : 0; 
if (!b32BitIdent) ( 
ASSERT (wHashIdent <= OxFFFF); 
fileDataOut—>WriteUInt16 ( (uint16) wHashIdent) ; 
jj 
else 
fileDataOut-»WriteUInt32 (wHashIdent) ; 
m Hash.Write (fileDataOut) ; 
} 


C) 定义 函数 WriteLowestLevelHashs， 功 能 是 在 不 使 用 标识 的 前 提 下 按照 从 左 到 右 顺 
序 将 最 底层 散 列 值 写 入 到 文件 中 。 具 体 代 码 如 下 : 


bool CAICHHashTree::WriteLowestLevelHashs (CFileDataIO *fileDataOut, 
uint32 wHashIdent, bool bNoIdent, bool b32BitIdent) const ( 
wHashIdent ««- 1; 
wHashIdent |= (m bIsLeftBranch) ? 1 : 0; 
if (m pLeftTree--NULL && m pRightTree--NULL) ( 
if (m nDataSize«-GetBaseSize() && m bHashValid) ( 
if (!bNoIdent && !b32BitIdent) ( 
ASSERT (wHashIdent «- OxFFFF); 
fileDataOut-»WriteUIntl6 ( (uint16) wHashIdent) ; 
} 
else if (!bNoIdent && b32BitIdent) 
fileDataOut-»WriteUInt32 (wHashIdent) ; 
m Hash.Write(fileDataOut); 
//theApp.AddDebugLogLine (false, _T("%s"), 
// m Hash.GetString(), wHashIdent, this); 
return true; 
} 
else { 
ASSERT (false) ; 
return false; 


} 
else if (m pLeftTree==NULL || m pRightTree==NULL) { 
ASSERT (false) ; 
return false; 
} 
else { 
return m pLeftTree-»WriteLowestLevelHashs (fileDataOut, 
wHashIdent, bNoIdent, b32BitIdent) 
&& m pRightTree-»WriteLowestLevelHashs (fileDataOut, 
wHashIdent, bNoIdent, b32BitIdent) ; 


} 


定义 函数 LoadLowestLevelHashs， 功 能 是 通过 文件 输入 的 数据 恢复 最 底层 所 有 的 
散 列 值 。 具 体 代码 如 下 : 


bool CAICHHashTree::LoadLowestLevelHashs (CFileDataIO *fileInput) ( 
if (m nDataSize <= GetBaseSize()) ( // 健全 性 
// 已 经 到 达 最 底层 ， 读 入 散 列 值 
m Hash.Read(fileInput); 
//theApp.AddDebugLogLine (false, m Hash.GetString()); 
m bHashValid - true; 
return true; 
) 
else ( 
uint64 nBlocks = m nDataSize / GetBaseSize() 
* ((m nDataSize$GetBaseSize()!-0) ? 1 : 0); 
uint64 nLeft = 
(((m bIsLeftBranch) ? nBlocks+1l:nBlocks) / 2) * GetBaseSize(); 
uint64 nRight = m nDataSize - nLeft; 
if (m pLeftTree == NULL) 
m pLeftTree = new CAICHHashTree (nLeft, true, 
(nLeft <= PARTSIZE) ? EMBLOCKSIZE : PARTSIZE); 
else ( 
ASSERT (m pLeftTree-»m nDataSize == nLeft); 
} 
if (m pRightTree == NULL) 
m pRightTree = new CAICHHashTree(nRight, false, 
(nRight <= PARTSIZE) ? EMBLOCKSIZE : PARTSIZE); 
else { 
ASSERT (m_pRightTree->m_nDataSize == nRight) ; 


} 
return m pLeftTree-»LoadLowestLevelHashs (fileInput) 
&& m pRightTree-»LoadLowestLevelHashs (fileInput); 


) 
© 定义 函数 SetHash， 功 能 是 将 文件 中 的 散 列 数据 写 入 散 列 标识 指定 位 置 的 散 列 
值 。 有 具体 代码 如 下 : 


bool CAICHHashTree::SetHash(CFileDataIO *fileInput, uint32 wHashIdent, 
sint8 nLevel, bool bAllowOverwrite) ( 


if (nLevel == (-1)) ( 
// 明确 要 经 过 多 少 层 
uint8 i; 


for (i=0; i!=32 && (wHashIdent&0x80000000)==0; i++) ( 
wHashIdent <<= 1; 
} 
abe {Gk eh 
theApp.QueueDebugLogLine (/*DLP HIGH,*/ false, 
T ("CAICHHashTree: :SetHash - found invalid HashIdent (0)")); 
return false; 
H 
else ( 
nLevel = 31 - i; 


} 
if (nLevel — 0) { 


第 10 章 电驴 下 载 系统 


// 确定 已 经 到 达 目 标 层 
if (m bHashValid && !bAllowOverwrite) ( 
// not allowed to overwrite this hash, 
// however move the filepointer by reading a hash 
CAICHHash (file); 
return true; 
} 
m Hash.Read (fileInput); 
m bHashValid = true; 
return true; 
} 
else if (m_nDataSize <= GetBaseSize()) { // sanity 
// 不 允许 覆盖 该 散 列 值 ， 通 过 读 取 散 列 值 移动 文件 指针 
ASSERT (false); 
return false; 
) 
else ( 
wHashIdent ««- 1; 
nLevel--; 
uint64 nBlocks = m nDataSize / GetBaseSize() 
+ ((m nDataSize%GetBaseSize()!=0) ? 1 : 0); 
uint64 nLeft = 
(((m bIsLeftBranch) ? nBlocks+1 : nBlocks) / 2) * GetBaseSize(); 
uint64 nRight - m nDataSize - nLeft; 
if ((wHashIdent&0x80000000) > 0) { 
if (m pLeftTree == NULL) 
m_pLeftTree = new CAICHHashTree(nLeft, true, 
(nLeft <= PARTSIZE) ? EMBLOCKSIZE : PARTSIZE); 
else { 
ASSERT (m pLeftTree-»m nDataSize == nLeft); 
} 
return m pLeftTree-»SetHash(fileInput, wHashIdent, nLevel); 
) 
Ge oq 
if (m pRightTree 一 NULL) 
m pRightTree = new CAICHHashTree (nRight, false, 
(nRight <= PARTSIZE) ? EMBLOCKSIZE : PARTSIZE); 
else ( 
ASSERT (m pRightTree-»m nDataSize == nRight); 
} 
return m pRightTree->SetHash(fileInput, wHashIdent, nLevel); 


} 
(2) 类 CAICHHashSet 是 类 CKnownFile 的 一 个 成 员 变量 ，CKnownFile 类 通过 它 来 执 
行 分 块 操作 。 接 下 来 开始 讲解 类 CAICHHashSet 提供 的 公有 函数 ， 有 具体 代码 如 下 : 


CAICHHashSet::CAICHHashSet (CKnownFile *pOwner) 
: m pHashTree(0, true, PARTSIZE) 


m eStatus — AICH EMPTY; 
m pOwner — pOwner; 


g 


CAICHHashSet : : ~CAICHHashSet (void) 
{ 

FreeHashSet () ; 
} 


接 下 来 需要 在 此 类 中 创建 需要 的 功能 函数 ， 具 体 实 现 流程 如 下 。 
(D 定义 函数 CreatePartRecoveryData， 功 能 是 创建 恢复 的 数据 块 。 具体 代码 如 下 : 


bool CAICHHashSet::CreatePartRecoveryData (uint64 nPartStartPos, 
CFileDataIO *fileDataOut, bool bDbgDontLoad) { 
ASSERT (m pOwner); 
if (m pOwner-»IsPartFile()|| m eStatus!-AICH HASHSETCOMPLETE) { 
ASSERT (false); 
return false; 


if (m pHashTree.m nDataSize «- EMBLOCKSIZE) ( 
ASSERT (false); 
return false; 


if (!bDbgDontLoad) ( 
if (!LoadHashSet()) ( 
theApp.QueueDebugLogLine (/*DLP VERYHIGH,*/ false, 
_T("Created RecoveryData error: failed to load hashset (file: %s)"), 
m pOwner-»GetFileName() ); 
SetStatus (AICH ERROR); 
return false; 


) 
bool bResult; 
uint8 nLevel = 0; 
uint32 nPartSize = 
(uint32)min(PARTSIZE, (uint64)m pOwner-»GetFileSize()-nPartStartPos); 
m pHashTree.FindHash(nPartStartPos, nPartSize, &nLevel); 
uintl6 nHashsToWrite = (uint16) ((nLevel-1) + nPartSize/EMBLOCKSIZE 
+ ((nPartSize$EMBLOCKSIZE!-0) ? 1 : 0)); 
const bool bUse32BitIdentifier = m pOwner-»IsLargeFile(); 


if (bUse32BitIdentifier) 
fileDataOut-»WriteUIntl6 (0); // 没有 可 写 入 的 16 位 散 列 值 
fileDataOut-»WriteUInt16 (nHashsToWrite); 
uint32 nCheckFilePos - (UINT)fileDataOut-»GetPosition(); 
SUE (m pHashTree.CreatePartRecoveryData (nPartStartPos, nPartSize, 
fileDataOut, 0, bUse32BitIdentifier)) { 
if (nHashsToWrite* (HASHSIZE+ (bUse32BitIdentifier?4:2) ) 
!— fileDataOut-»GetPosition() - nCheckFilePos) ( 
ASSERT (false); 
theApp.QueueDebugLogLine (/*DLP VERYHIGH,*/ false, 
T("Created RecoveryData has wrong length (file: $s)"), 
m pOwner-»GetFileName ()); 
bResult — false; 
SetStatus (AICH ERROR); 
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} 
else 
bResult = true; 
} 
else { 
theApp.QueueDebugLogLine (/*DLP_VERYHIGH,*/ false, 
_T("Failed to create RecoveryData for %s"), 
m pOwner-»GetFileName()); 
bResult — false; 
SetStatus (AICH ERROR); 
} 
if (!bUse32BitIdentifier) 
fileDataOut-»WriteUIntl16 (0); // 没 有 可 写 入 的 32 位 散 列 值 


if (!bDbgDontLoad) ( 
FreeHashSet () ; 
) 
return bResult; 
} 


@ 定义 函数 ReadRecoveryData， 功 能 是 读 入 恢复 的 数据 。 具 体 代码 如 下 : 


bool CAICHHashSet::ReadRecoveryData (uint64 nPartStartPos, 
CSafeMemFile *fileDataIn) ( 
if (/*TODO !m pOwner-»IsPartFile() ||*/ !(m eStatus == AICH VERIFIED 
|| m estatus AICH TRUSTED)) ( 
ASSERT (false); 
return false; 


) 

/* V2 AICH Hash Packet: 

<countl uintl6» 16bit-hashs-to-read 

(<identifier uint16><hash HASHSIZE>) [count1] AICH hashs 

<count2 uintl6» 32bit-hashs-to-read 

(«identifier uint32><hash HASHSIZE>) [count2] AICH hashs*/ 

// 检查 恢复 的 数据 是 否 是 正确 的 散 列 数量 

uint8 nLevel = 0; 

uint32 nPartSize = 
(uint32)min(PARTSIZE, (uint64)m pOwner-»GetFileSize()-nPartStartPos); 

m pHashTree.FindHash (nPartStartPos, nPartSize, &nLevel); 

uintl6 nHashsToRead = (uint16) ((nLevel-1) + nPartSize/EMBLOCKSIZE 
+ ((nPartSize % EMBLOCKSIZE != 0) ? 1 : 0)); 


// 读 入 16 位 标识 的 散 列 
uintl6 nHashsAvailable = fileDataIn->ReadUInt16(); 
if (fileDataIn-»GetLength()-fileDataIn-»GetPosition() 
< nHashsToRead* (HASHSIZE+2) 
|| (nHashsToRead != nHashsAvailable && nHashsAvailable != 0)) { 
// 也 会 捕获 到 该 错误 
theApp.QueueDebugLogLine (/*DLP VERYHIGH,*/ false, 
T("Failed to read RecoveryData for $s - Received datasize/amounts 
of hashs was invalid (1)"), m pOwner-»GetFileName()); 
return false; 


DEBUG ONLY (theApp.QueueDebugLogLine (/*DLP VERYHIGH,*/ false, 
T("read RecoveryData for $s - Received packet with %u 16bit hash 
identifiers)"), m pOwner-»GetFileName(), nHashsAvailable)); 
for (uint32 i-0; i!=nHashsAvailable; i++) { 
uintl6 wHashIdent = fileDataIn-»ReadUInt16(); 
if (wHashIdent — 1 /*never allow masterhash to be overwritten*/ 
|| !m pHashTree.SetHash(fileDataIn, wHashIdent, (-1), false)) { 
theApp.QueueDebugLogLine (/*DLP VERYHIGH,*/ false, 
T("Failed to read RecoveryData for $s - Error when trying to 
read hash into tree (1)"), m pOwner-»GetFileName()); 
VerifyHashTree (true); // 去 掉 已 写 入 的 非法 散 列 
return false; 


) 


/ [UN 32 位 标识 的 散 列 
if (nHashsAvailable == 
&& fileDataIn-»GetLength()-fileDataIn-»GetPosition() »- 2) ( 
nHashsAvailable = fileDataIn->ReadUInt16(); 
if (fileDataIn-»GetLength()-fileDataIn-»GetPosition() 
< nHashsToRead* (HASHSIZE+4) 
|| (nHashsToRead != nHashsAvailable 
&& nHashsAvailable != 0)) { 
// this check is redunant, 
// CSafememfile would catch such an error too 
theApp .QueueDebugLogLine (/*DLP VERYHIGH,*/ false, 
_T("Failed to read RecoveryData for $s - Received 
datasize/amounts of hashs was invalid (2)"), 
m_pOwner—>GetFileName () ) ; 
return false; 
} 
DEBUG ONLY (theApp.QueueDebugLogLine (/*DLP VERYHIGH,*/ false, 
T("read RecoveryData for %s - Received packet with %u 32bit hash 
identifiers)"), m pOwner-»GetFileName(), nHashsAvailable)); 
for (uint32 i-0; i!=nHashsToRead; i++) { 
uint32 wHashIdent = fileDataIn-»ReadUInt32(); 
if (wHashIdent == 1 /*never allow masterhash to be overwritten*/ 
|| wHashIdent > 0x400000 
|| !m pHashTree.SetHash(fileDataIn, wHashIdent, (-1), false)) { 
theApp.QueueDebugLogLine (/*DLP VERYHIGH,*/ false, 
T("Failed to read RecoveryData for $s - Error when trying 
to read hash into tree (2)"), m pOwner-»GetFileName()); 
VerifyHashTree (true); // 去 掉 已 写 入 的 非法 散 列 
return false; 


if (nHashsAvailable == 0) ( 
theApp.QueueDebugLogLine (/*DLP VERYHIGH,*/ false, 
 T("Failed to read RecoveryData for $s - Packet didn't contained 
any hashs"), m pOwner-»GetFileName()); 
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return false; 
} 
if (VerifyHashTree(true)) { 
// 最 后 检查 需要 的 散 列 是 否 在 这 儿 
for (uint32 nPartPos-0; nPartPos«nPartSize; nPartPos+=EMBLOCKSIZE) { 
CAICHHashTree *phtToCheck = m pHashTree.FindHash( 
nPartStartPos+nPartPos, min(EMBLOCKSIZE, nPartSize-nPartPos)); 
if (phtToCheck == NULL || !phtToCheck->m bHashValid) ( 
theApp.QueueDebugLogLine (/*DLP VERYHIGH,*/ false, 
 T("Failed to read RecoveryData for $s - Error while 
verifying presence of all lowest level hashs"), 
m pOwner-»GetFileName()); 
return false; 
) 


) 
// 全 部 完成 
return true; 
} 
else ( 
theApp.QueueDebugLogLine (/*DLP VERYHIGH,*/ false, 
T("Failed to read RecoveryData for $s - Verifying received 
hashtree failed"), m pOwner-»GetFileName()); 
return false; 


) 
© 定义 函数 SaveHashSet， 功 能 是 删除 散 列 设置 以 释放 内 存 ， 此 函数 只 有 在 成 功 计 
算 散 列 设置 之 后 才能 被 调用 。 具 体 代码 如 下 : 


bool CAICHHashSet::SaveHashSet() ( 
if (m eStatus != AICH HASHSETCOMPLETE) ( 
ASSERT (false); 
return false; 
} 
if (!m pHashTree.m bHashValid 
|| m pHashTree.m nDataSize!-m pOwner-»GetFileSize()) { 
ASSERT (false); 
return false; 
} 
CSingleLock lockKnown2Met (&m mutKnown2File, false); 
if (!lockKnown2Met.Lock(5000)) ( 
return false; 


CString fullpath = thePrefs.GetMuleDirectory (EMULE CONFIGDIR); 
fullpath.Append(KNOWN2 MET FILENAME); 
CSafeFile file; 
CFileException fexp; 
if (!file.Open(fullpath, CFile::modeCreate|CFile: :modeReadWrite 
|CFile: :modeNoTruncate|CFile: :osSequentialScan 
|CFile::typeBinary|CFile::shareDenyNone, &fexp)) { 
if (fexp.m_cause != CFileException::fileNotFound) { 
CString strError ( 


三 网 络 编程 开发 与 实战 


T("Failed to load ") KNOWN2 MET FILENAME T(" file")); 
TCHAR szError[MAX CFEXP ERRORMSG] ; 
if (fexp.GetErrorMessage(szError, ARRSIZE(szError))) { 
strbrror z= T(S = "); 
strError += szError; 


} 
theApp.QueueLogLine (true, _T("%s"), strError); 


} 
return false; 


} 
try ( 
//setvbuf(file.m pStream, NULL,  IOFBF, 16384); 
uint8 header = file.ReadUInt8(); 
if (header !- KNOWN2 MET VERSION) ( 
AfxThrowFileException (CFileException: :endOfFile, 
0, file.GetFileName()); 


) 
// 检查 要 写 入 的 散 列 设置 是 否 已 经 保存 好 
CAICHHash CurrentHash; 
uint32 nExistingSize = (UINT)file.GetLength(); 
uint32 nHashCount; 
while (file.GetPosition() « nExistingSize) ( 
CurrentHash.Read (&file) ; 
if (m pHashTree.m Hash == CurrentHash) { 
// 已 经 获取 此 散 列 设置 ， 不 能 再 次 保存 
return true; 
} 
nHashCount = file.ReadUInt32(); 
if (file.GetPosition()+nHashCount*HASHSIZE > nExistingSize) { 
AfxThrowFileException (CFileException: :endOfFile, 
0, file.GetFileName () ); 


} 
// 忽略 剩余 的 散 列 设置 


file.Seek(nHashCount*HASHSIZE, CFile::current); 


} 
// 写 入 散 列 
m pHashTree.m Hash.Write (&file) ; 
nHashCount = (uint32) ((PARTSIZE/EMBLOCKSIZE 
+ ((PARTSIZE $ EMBLOCKSIZE != 0) ? 1 : 0)) 
* (m pHashTree.m nDataSize/PARTSIZE)); 
if (m pHashTree.m nDataSize $ PARTSIZE !- 0) 
nHashCount 4— 
(uint32) ((m pHashTree.m nDataSize % PARTSIZE) /EMBLOCKSIZE 
+ (((m pHashTree.m nDataSize $ PARTSIZE) % EMBLOCKSIZE != 0) ? 
1:0); 
file.WriteUInt32 (nHashCount) ; 
if (!m pHashTree.WriteLowestLevelHashs(&file, 0, true, true)) { 
file.SetLength (nExistingSize) ; 
theApp . QueueDebugLogLine (true, 
T("Failed to save HashSet: WriteLowestLevelHashs() failed!")); 
return false; 
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if (file.GetLength() != nExistingSize+(nHashCount+1) *HASHSIZE+4) ( 
file.SetLength (nExistingSize) ; 
theApp . QueueDebugLogLine (true, 
T("Failed to save HashSet: Calculated and real size of hashset differ!")); 
return false; 
} 
theApp.QueueDebugLogLine (false, 
_T("Successfully saved eMuleAC Hashset, %u Hashs + 1 Masterhash written"), 
nHashCount) ; 
file.Flush(); 
file.Close(); 
) 
catch(CFileException *error) ( 
if (error-»m cause == CFileException::endOfFile) 
theApp.QueueLogLine (true, 
GetResString(IDS ERR MET BAD), KNOWN2 MET FILENAME); 
else ( 
TCHAR buffer[MAX CFEXP ERRORMSG]; 
error-»GetErrorMessage (buffer, ARRSIZE (buffer) ); 
theApp . QueueLogLine (true, 
GetResString(IDS ERR SERVERMET UNKNOWN), buffer); 
} 
error-»Delete(); 
return false; 
) 
FreeHashSet () ; 
return true; 


) 
(D 定义 函数 LoadHashSet， 用 于 导入 散 列 设置 ， 具 体 代码 如 下 : 


bool CAICHHashSet::LoadHashSet() ( 
if (m eStatus != AICH HASHSETCOMPLETE) ( 
ASSERT (false); 
return false; 
} 
if (!m pHashTree.m bHashValid 
|| m pHashTree.m nDataSize != m pOwner-»GetFileSize() 
|| m pHashTree.m nDataSize--0) ( 
ASSERT (false); 
return false; 


i 
CString fullpath = thePrefs.GetMuleDirectory (EMULE CONFIGDIR); 


fullpath.Append(KNOWN2 MET FILENAME); 
CSafeFile file; 
CFileException fexp; 
if (!file.Open(fullpath, CFile::modeCreate|CFile::modeRead 
|CFile::modeNoTruncate|CFile::osSequentialScan 
|CFile::typeBinary|CFile::shareDenyNone, &fexp)) { 
if (fexp.m cause != CFileException::fileNotFound) { 


CString strError ( 
T("Failed to load ") KNOWN2 MET FILENAME T(" file")); 


TCHAR szError[MAX CFEXP ERRORMSG]; 


三 网 络 编程 开发 与 实战 


if (fexp.GetErrorMessage(szError, ARRSIZE(szError))) { 
strbrror += T(" — "y; 
strError += szError; 

) 

theApp.QueueLogLine (true, _T("%s"), strError); 


} 
return false; 


} 
try { 
uint8 header = file.ReadUInt8(); 
if (header != KNOWN2 MET VERSION) { 
AfxThrowFileException (CFileException: :endOfFile, 
0, file.GetFileName()); 
} 
CAICHHash CurrentHash; 
uint32 nExistingSize = (UINT)file.GetLength(); 
uint32 nHashCount; 
while (file.GetPosition() < nExistingSize) { 
CurrentHash.Read (&file) ; 
if (m pHashTree.m Hash == CurrentHash) { 
// 建 立 散 列 设置 
uint32 nExpectedCount = (uint32) ((PARTSIZE/EMBLOCKSIZE 
+ ((PARTSIZE $ EMBLOCKSIZE != 0) ? 1 : 0)) 
* (m pHashTree.m nDataSize/PARTSIZE)); 
if (m pHashTree.m nDataSize $ PARTSIZE !- 0) 
nExpectedCount += 
(uint32) ((m pHashTree.m nDataSize$PARTSIZE)/EMBLOCKSIZE 
+ (((m pHashTree.m nDataSize%PARTSIZE) SEMBLOCKSIZE 
120) ? 1 : 0)); 
nHashCount = file.ReadUInt32(); 
if (nHashCount !- nExpectedCount) ( 
theApp.QueueDebugLogLine(true,  T("Failed to load HashSet: 
Available Hashs and expected hashcount differ!")); 
return false; 
) 
if (!m pHashTree.LoadLowestLevelHashs (&file)) { 
theApp.QueueDebugLogLine (true, 
T("Failed to load HashSet: LoadLowestLevelHashs failed!")); 
return false; 
} 
if (!ReCalculateHash(false)) { 
theApp.QueueDebugLogLine (true, 
T("Failed to load HashSet: Calculating loaded hashs failed!")); 
return false; 
} 
if (CurrentHash != m pHashTree.m Hash) { 
theApp.QueueDebugLogLine(true, T("Failed to load HashSet: 
Calculated Masterhash differs from given 
Masterhash - hashset corrupt!")); 
return false; 
} 
return true; 
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H 
nHashCount = file.ReadUInt32(); 
if (file.GetPosition() + nHashCount*HASHSIZE > nExistingSize) ( 
AfxThrowFileException (CFileException::endOfFile, 
0, file.GetFileName()); 


} 
// 忽略 剩余 的 散 列 设置 
file.Seek(nHashCount*HASHSIZE, CFile::current); 
} 
theApp . QueueDebugLogLine (true, 
_T("Failed to load HashSet: HashSet not found!")); 
} 
catch (CFileException *error) { 
if (error-»m cause == CFileException::endOfFile) 
theApp.QueueLogLine (true, 
GetResString(IDS ERR MET BAD), KNOWN2 MET FILENAME); 
else ( 
TCHAR buffer[MAX CFEXP ERRORMSG]; 
error-»GetErrorMessage (buffer, ARRSIZE (buffer)); 
theApp.QueueLogLine (true, 
GetResString(IDS ERR SERVERMET UNKNOWN), buffer); 
} 
error-»Delete(); 
} 
return false; 
} 


© ”定义 函数 UntrustedHashReceived， 用 于 接收 到 的 不 信任 的 散 列 ， 有 具体 代码 如 下 : 


void CAICHHashSet::UntrustedHashReceived(const CAICHHash &Hash, 
uint32 dwFromIP) ( 
switch(Getstatus()) { 
case AICH EMPTY: 
case AICH UNTRUSTED: 
case AICH TRUSTED: 
break; 
default: 
return; 
} 
bool bFound false; 
bool bAdded false; 
for (int i=0; i<m aUntrustedHashs.GetCount(); i++) { 
if (m aUntrustedHashs[i].m Hash == Hash) { 
bAdded = m aUntrustedHashs [i] .AddSigningIP(dwFromIP) ; 
bFound = true; 
break; 


} 

if (!bFound) { 
bAdded = true; 
CAICHUntrustedHash uhToAdd; 
uhToAdd.m Hash = Hash; 
uhToAdd.AddSigningIP (dwFromIP); 


- 网 络 编程 开发 与 实战 


m aUntrustedHashs . Add (uhToAdd) ; 


} 
uint32 nSigningIPsTotal = 0; // 独立 客户 端 发 送 了 散 列 
int nMostTrustedPos = (-1); // 最 多 客户 端 发 送 的 散 列 
uint32 nMostTrustedIPs = 0; 
for (uint32 i-0; i<(uint32)m aUntrustedHashs.GetCount(); i++) ( 
nSigningIPsTotal += m aUntrustedHashs[i].m adwIpsSigning.GetCount () ; 
if ((uint32)m aUntrustedHashs[i].m adwIpsSigning.GetCount () 
» nMostTrustedIPs) ( 
nMostTrustedIPs = m aUntrustedHashs[i].m adwIpsSigning.GetCount () ; 


nMostTrustedPos i; 


p 
if (nMostTrustedPos--(-1) || nSigningIPsTotal--0) ( 


ASSERT (false); 
return; 


} 
// 检验 是 否 相信 某 散 列 
if (thePrefs.IsTrustingEveryHash () 
|| (nMostTrustedIPs>=MINUNIQUEIPS TOTRUST 
&& (100*nMostTrustedIPs) /nSigningIPsTotal>=MINPERCENTAGE TOTRUST)) { 
// 如 果 相 信 
//theApp.QueueDebugLogLine (false, _T("AICH Hash received: $s 
($sadded), We have now $u hash from $u unique IPs. We trust the Hash $s 
from $u clients (%u%%). Added IP:$s, file: %s"), Hash.GetString(), bAdded? 
T(""): T("not "), m aUntrustedHashs.GetCount(), nSigningIPsTotal, 
m aUntrustedHashs [nMostTrustedPos].m Hash.GetString(), nMostTrustedIPs, 
(100 * nMostTrustedIPs)/nSigningIPsTotal, ipstr(dwFromIP & OxO0FOFFFF), 


m pOwner->GetFileName () ) 7 


SetStatus (AICH TRUSTED) ; 
if (!HasValidMasterHash() 
|| GetMasterHash()!-m aUntrustedHashs [nMostTrustedPos].m Hash) { 


SetMasterHash( 
m aUntrustedHashs[nMostTrustedPos].m Hash, AICH TRUSTED); 


FreeHashSet () ; 


} 
else { 


// 如 果 不 相信 
//theApp.QueueDebugLogLine (false,  T("AICH Hash received: $s 


($sadded), We have now $u hash from $u unique IPs. Best Hash (%s) is from 
$u clients ($u$$) - but we dont trust it yet. Added IP:%s, file: %s"), 
Hash.GetString(), bAdded? T(""): T("not "), m aUntrustedHashs.GetCount(), 
nSigningIPsTotal, m aUntrustedHashs [nMostTrustedPos] .m Hash.GetString(), 
nMostTrustedIPs, (100 * nMostTrustedIPs)/nSigningIPsTotal, ipstr(dwFromIP & 
OxOOFOFFFF), m pOwner-»GetFileName|()); 


SetStatus (AICH UNTRUSTED) ; 


if (!HasValidMasterHash() 
|| GetMasterHash() !=m aUntrustedHashs [nMostTrustedPos].m Hash) ( 


SetMasterHash( 
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m aUntrustedHashs [nMostTrustedPos] .m Hash, AICH UNTRUSTED) ; 
FreeHashSet () 7 


} 


© 定义 函数 ClientAICHRequestFailed， 来 处 理 客户 端 请 求 失败 的 情况 ， 并 定义 函数 
RemoveClientAICHRequest 来 清除 客户 端 请 求 。 有 具体 代码 如 下 : 


void CAICHHashSet::ClientAICHRequestFailed(CUpDownClient *pClient) ( 
pClient-»SetReqFileAICHHash (NULL); 
CAICHRequestedData data = GetAICHReqDetails (pClient); 
RemoveClientAICHRequest (pClient); 
if (data.m pClient != pClient) 
return; 
if (theApp.downloadqueue-»IsPartFile (data.m pPartFile)) ( 
theApp.QueueDebugLogLine (false,  T("AICH Request failed, Trying to 
ask another client (file $s, Part: $u, Client$s)"), data.m pPartFile-» 
GetFileName(), data.m nPart, pClient->DbgGetClientInfo()); 
data.m pPartFile-»RequestAICHRecovery (data.m nPart); 


} 
void CAICHHashSet: :RemoveClientAICHRequest (const CUpDownClient *pClient) { 
for (POSITION pos=m liRequestedData.GetHeadPosition(); pos!=0; 
m liRequestedData.GetNext (pos) ) 
t 
if (m liRequestedData.GetAt(pos).m pClient == pClient) ( 
m liRequestedData.RemoveAt (pos) ; 
return; 


} 
ASSERT (false) ; 
} 


C) 定义 函数 IsClientRequestPending， 来 判断 客户 端的 请 求 是 否 已 经 处 理 完 ， 有 具体 代 
人 码 如 下 : 


bool CAICHHashSet::IsClientRequestPending(const CPartFile *pForFile, 
uintl6 nPart) ( 
for (POSITION pos-m liRequestedData.GetHeadPosition(); pos!-0; 
m liRequestedData.GetNext (pos) ) 
t 
if (m liRequestedData.GetAt (pos) .m pPartFile--pForFile 
&& m liRequestedData.GetAt(pos).m nPart--nPart) ( 
return true; 


} 
return false; 
$ 


定义 函数 GetAICHReqDetails， 来 获取 客户 端的 详细 信息 ， 有 具体 代码 如 下 : 


CAICHRequestedData CAICHHashSet::GetAICHReqDetails( 
const CUpDownClient *pClient) ( 


for (POSITION pos-m liRequestedData.GetHeadPosition(); pos!-0; 
m liRequestedData.GetNext (pos)) 
t 
if (m liRequestedData.GetAt(pos).m pClient == pClient) { 
return m liRequestedData.GetAt (pos) ; 
) 
} 
ASSERT (false); 
CAICHRequestedData empty; 
return empty; 


) 
© 定义 函数 IsPartDataAvailable， 来 判断 该 文件 数据 是 否 可 用 ， 具 体 代码 如 下 : 


bool CAICHHashSet::IsPartDataAvailable(uint64 nPartStartPos) ( 
if (!(m eStatus—-AICH VERIFIED 
|| m eStatus--AICH TRUSTED 
|| m eStatus--AICH HASHSETCOMPLETE)) ( 
ASSERT (false); 
return false; 
} 
uint32 nPartSize = (uint32) (min (PARTSIZE, 
(uint64)m pOwner-»GetFileSize()-nPartStartPos)); 
for (uint64 nPartPos-0; nPartPos«nPartSize; nPartPos+=EMBLOCKSIZE) { 
CAICHHashTree *phtToCheck - m pHashTree.FindHash( 
nPartStartPos+nPartPos, min(EMBLOCKSIZE, nPartSize-nPartPos)); 
if (phtToCheck--NULL || !phtToCheck-»m bHashValid) ( 
return false; 
) 
} 
return true; 
} 


到 此 为 止 ， 整 个 开源 项 目 中 的 核心 模块 已 经 介绍 完毕 。 要 想 讲解 整个 开源 代码 的 具体 
流程 ， 得 需要 整整 一 本 书 的 篇 幅 。 为 了 节省 本 书 的 篇 幅 ， 建 议 读者 登录 电驴 官方 站 点 下 载 
开源 项 目 文件 。 下 载 后 务必 仔细 阅读 每 一 行 代码 文件 ， 确 保 掌握 电驴 系统 的 真正 原理 。 
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从 本 章 开始 ， 我 们 将 步 入 一 个 全 新 的 学 习 阶段 一 一 综合 实战 篇 。 
本 篇 将 通过 大 型 综合 实例 的 实现 过 程 ， 来 讲解 Visual C++ 在 开 
发 大 型 网 络 项 目 过 程 中 的 作用 。 
在 本 章 的 内 容 中 ， 首 先 讲解 一 个 仿 QQ 聊天 系统 的 实现 过 程 。 


in 


X 
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11.1 QQ 火爆 的 背后 


QQ 是 深圳 市 腾讯 计算 机 系统 有 限 公司 开发 的 一 款 基于 Internet 的 即时 通信 (IM) 软 件 。 
腾讯 QQ 支持 在 线 聊 天 、 视 频 电 话 、 点 对 点 断 点 续 传 文件 、 共 享 文件 、 网 络 硬盘 、 自 定义 
面板 、QQ 邮箱 等 多 种 功能 。 并 可 与 移动 通讯 终端 等 多 种 通讯 方式 相连 。1999 年 2 月 ， 腾 
正式 推出 了 第 一 个 即时 通信 软件 一 一 “腾讯 QQ”， 其 在 线 用 户 由 1999 年 的 2 人 到 现在 


已 经 发 展 到 上 亿 用 户 了 ， 在 线 人 数 超过 一 亿 ， 是 目前 使 用 最 广泛 的 聊天 软件 之 一 。 


如 今 随 着 网 络 的 普及 和 发 展 ， 上 网 者 几乎 人 人 都 有 自己 的 QQ。 之 所 以 这 么 火爆 ,是 


于 它 所 具有 的 强大 功能 决定 的 。 具 体 来 说 ，QQ 具有 下 列 功能 。 


a 


在 线 聊 天 :因为 在 线 聊天 的 实时 性 很 高 ， 并 且 还 支持 视频 聊天 ， 所 以 不 但 深 受 网 
友 们 的 青睐 ， 而 且 日 益 成 为 商务 洽谈 的 重要 交流 工具 。 无 论 是 业余 网 友 、 朋 友 间 
的 交流 ， 还 是 业务 洽谈 ，QQ 在 通讯 方式 中 都 占据 了 一 个 重要 的 地 位 。 

QQ 游戏 : 通过 QQ 可 以 直接 进入 游戏 平台 ， 在 这 个 平台 内 为 我 们 提供 了 大 量 有 
趣 的 游戏 ， 可 以 帮助 我 们 放松 心情 ， 消 除 工作 一 天 后 的 疲惫 。 

QQ 空间 : 这 是 腾讯 公司 于 2005 年 开发 出 来 的 一 个 个 性 化 空间 ， 具 有 博客 的 功 
能 ， 自 问世 以 来 受到 众多 人 的 喜爱 。 在 QQ 空间 上 可 以 写 日 记 、 上 传 自己 的 图 
片 、 听 音乐 、 写 说 说 、 给 好 友 留 言 ， 还 可 以 玩 游戏 。 通 过 多 种 方式 展现 自己 。 除 
此 之 外 ， 用 户 还 可 以 根据 自己 的 喜爱 设 定 空间 的 背景 、 皮 肤 、 小 挂件 等 ， 从 而 使 
每 个 空间 都 有 自己 的 特色 。 随 着 农场 、 牧 场 和 餐厅 的 推出 ，QQ 空间 更 是 深 受 用 
户 的 青睐 。 

QQ 邮箱 :邮箱 在 生活 中 的 作用 非常 重要 ，QQ 借助 于 自身 的 聊天 客户 优势 ， 为 
每 一 个 QQ 号 配备 了 一 个 对 应 的 邮箱 ， 这 样 在 聊天 的 过 程 中 可 以 直接 登录 邮箱 ， 
省 去 了 传统 邮箱 必须 输入 账户 信息 才能 登录 的 麻烦 。 

QQ 音乐 QQ 音乐 播放 器 是 一 款 带 有 在 线 搜索 音乐 、 音 乐 推荐 功能 的 播放 器 。 
无 聊 时 能 听 听 音乐 ， 同 时 支持 在 线 音乐 和 本 地 音乐 的 播放 ， 是 国内 内 容 最 丰富 的 
音乐 平台 。 其 独特 的 音乐 搜索 和 推荐 功能 ， 使 人 们 可 以 尽情 地 享受 最 流行 、 最 火 
爆 的 音乐 。 


11.2 多 线程 处 理 


多 线程 是 一 种 重要 的 编程 技术 ， 对 提高 程序 的 执行 、 响 应 效率 具有 重要 的 意义 ， 特 别 
是 对 网 络 服务 器 的 并 发 实现 ， 大 大 提高 了 服务 器 的 响应 效率 。 因 为 QQ 账号 特别 多 ， 并 且 
每 天 在 线 用 户 也 特别 多 ， 为 了 提高 响应 效率 ， 所 以 使 用 了 多 线程 技术 。 在 项 目 开始 之 前 ， 
先 简单 讲解 多 线程 技术 的 基本 知识 。 
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11.2.1 多 线程 基础 


Microsoft 的 Windows 系 列 操作 系统 是 一 种 多 任务 的 操作 系统 ， 在 Windows 的 一 个 进程 
内 包含 一 个 或 多 个 线程 。 为 了 使 大 家 能 够 全 面 地 了 解 Windows 多 线程 编程 技术 ， 本 节 首 先 
简要 介绍 多 线程 编程 的 基础 知识 。 

(1) 进程 和 线程 

进程 和 线程 是 两 个 相对 的 概念 ， 通 常 一 个 进程 可 以 定义 为 程序 的 一 个 实例 。 在 Win32 
中 ， 进 程 并 不 执行 什么 ， 它 只 是 占据 应 用 程序 所 使 用 的 地 址 空间 。 为 了 完成 一 定 的 工作 ， 
进程 必须 至 少 占有 一 个 线程 ， 正 是 这 个 线程 负责 执行 包含 在 进程 地 址 空间 中 的 代码 。 如 果 
没有 线程 执行 进程 地 址 空间 中 的 代码 ， 进 程 也 就 没有 继续 存在 的 理由 ， 系 统 将 自动 清除 进 
程 及 其 地 址 空间 。 

当 创建 一 个 进程 时 ， 系 统 会 自动 产生 一 个 主线 程 (Primary Thread)， 然 后 可 以 由 这 个 主 
线程 生成 额外 的 线程 ， 而 这 些 线程 又 可 以 生成 更 多 的 线程 。 可 以 说 线程 是 进程 的 一 条 执行 
路 径 ， 它 包含 独立 的 堆栈 和 CPU 寄存 器 状态 。 

一 个 进程 可 以 包含 几 个 线程 ， 它 们 可 以 同时 执行 进程 地 址 空间 中 的 代码 ， 共 享 所 有 的 
进程 资源 ， 包 括 打 开 的 文件 、 信 和 号 标识 及 动态 分 配 的 内 存 等 。 为 了 做 到 这 一 点 ， 每 个 线程 
有 自己 的 一 组 CPU 寄存 器 和 堆栈 。 而 这 些 线程 的 执行 由 系统 调度 程序 控制 ， 调 度 程序 决 
定 哪个 线程 可 执行 以 及 什么 时 候 执 行 。 在 多 处 理 器 的 机 器 上 ， 调 度 程序 可 将 多 个 线程 放 到 
不 同 的 处 理 器 上 去 同时 和 运行， 这 样 可 使 处 理 器 任务 平衡 ， 并 提高 系统 的 运行 效率 。 

在 运行 一 个 多 线程 的 程序 时 ， 从 表面 上 看 ， 这 些 线程 似乎 在 同时 运行 ， 而 实际 情况 并 
非 如 此 。 为 了 运行 所 有 的 这 些 线程 ， 操 作 系统 为 每 个 独立 线程 安排 一 些 CPU 时 间 。 单 
CPU 操作 系统 以 轮转 方式 向 线程 提供 时 间 片 (Quantum)， 每 个 线程 在 使 用 完 时 间 片 后 交 出 
控制 ， 系 统 再 将 CPU 时 间 片 分 配给 下 一 个 线程 。 由 于 每 个 时 间 片 足够 短 ， 这 样 就 给 人 一 
种 假象 ， 好 像 这 些 线程 在 同时 运行 。 创 建 额外 线程 的 唯一 目的 ， 就 是 尽 可 能 地 充分 利用 
CPU 时 间 。 

(2) 线程 优先 级 

线程 的 优先 级 是 指 这 个 线程 的 计算 优先 级 ， 即 线程 相对 于 本 进程 的 相对 优先 级 和 包含 
此 线程 的 进程 的 优先 级 的 结合 。 当 系统 需要 同时 执行 多 个 进程 或 多 个 线程 时 ， 就 会 需要 指 
定 线程 的 优先 级 。 操 作 系统 以 优先 级 为 基础 安排 所 有 的 活动 线程 。 系 统 的 每 一 个 线程 都 被 
分 配 了 一 个 优先 级 ， 优 先 级 的 范围 从 0 到 31。 运 行 时 ， 系 统 简单 地 给 第 一 个 优先 级 为 31 
的 线程 分 配 CPU 时 间 ， 在 该 线程 的 时 间 片 结束 后 ， 系 统 给 下 一 个 优先 级 为 31 的 线程 分 配 
CPU 时 间 。 当 没有 优先 级 为 31 的 线程 时 ， 系 统 将 开始 给 优先 级 为 30 的 线程 分 配 CPU 时 
间 ， 以 此 类 推 。 除 了 程序 员 在 程序 中 改变 线程 的 优先 级 外 ， 有 时 程序 在 执行 过 程 中 系统 也 
会 自动 地 动态 改变 线程 的 优先 级 ， 这 是 为 了 保证 系统 对 终端 用 户 的 高 度 响应 性 。 比 如 用 户 
按 了 键盘 上 的 某 个 键 时 ， 系 统 就 会 临时 将 处 理 WM_KEYDOWN 消息 的 线程 的 优先 级 提高 
2 到 3。CPU 按 一 个 完整 的 时 间 片 执行 线程 ， 当 时 间 片 执行 完毕 后 ， 系 统 将 该 线程 的 优先 
级 减 1。 
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G) 线程 同步 

在 使 用 多 线程 编程 时 ， 线 程 同步 是 一 个 非常 重要 的 问题 。 所 谓 线 程 同 步 ， 是 指 线程 之 
间 在 相互 通信 时 避免 破坏 各 自 数据 的 能 力 。 同 步 问题 是 由 前 面 说 到 的 Win32 系统 的 CPU 
时 间 片 分 配方 式 引 起 的 。 虽 然 在 某 一 时 刻 只 有 一 个 线程 占用 CPU( 单 CPU 时 ) 时 间 ， 但 是 没 
有 办 法 知道 在 什么 时 候 、 在 什么 地 方 线程 被 打 断 ， 这 样 如 何 保证 线程 之 间 不 破坏 彼此 的 数 
据 就 显得 格外 重要 。 

在 多 线程 编程 中 ， 可 以 使 用 4 个 同步 对 象 来 保证 多 线程 同时 运行 。 它 们 分 别 是 互 斥 体 
对 象 、 信 号 对 象 、 事 件 对 象 和 临界 区 对 象 。 


11.2.2 Win32 API 多 线程 编程 


Win32 API 是 Windows 操作 系统 内 核 与 应 用 程序 之 问 的 交互 界面 ， 它 将 内 核 提供 的 功 
能 进行 函数 封装 ， 应 用 程序 通过 调用 相关 函数 而 获得 相应 的 系统 功能 。 为 了 向 应 用 程序 提 
供 多 线程 功能 ，Win32 API 函数 也 提供 了 一 些 处 理 多 线程 的 函数 集 。 直 接 用 Win32 API XE 
行程 序 设计 具有 很 多 优点 : 应 用 程序 执行 代码 小 ， 运 行 效率 高 ， 但 是 它 要 求 程序 员 编写 的 
代码 较 多 ， 且 需要 管理 所 有 系统 提供 给 程序 的 资源 ， 要 求 程序 员 对 Windows 系统 内 核 有 一 
定 的 了 解 ， 会 占用 程序 员 很 多 时 间 对 系统 资源 进行 管理 ， 因 而 程序 员 的 工作 效率 降低 。 

(1) 编写 线程 函数 

所 有 线程 必须 从 一 个 指定 的 函数 开始 执行 ， 该 函数 称 为 线程 函数 ， 它 具有 以 下 原型 : 


DWORD WINAPI YourThreadFunc(LPVOID lpvThreadParm); 


输入 一 个 LPVOID 型 的 参数 ， 可 以 是 一 个 DWORD 型 的 整数 ， 也 可 以 是 一 个 指向 组 
冲 区 的 指针 。 返 回 一 个 DWORD 型 的 值 。 

(2) 创建 一 个 线程 

进程 的 主线 程 是 由 操作 系统 自动 生成 的 ， 如 果 要 创建 额外 的 线程 ， 可 以 调用 函数 
CreateThread() 来 完成 : 


HANDLE CreateThread( 
LPSECURITY ATTRIBUTES lpsa, 
DWORD cbstack, 


LPTHREAD START ROUTINE lpStartAddr, 
LPVOID lpvThreadParm, 
DWORD fdwCreate, 
LPDWORD lpIDThread 


a Z% Ipsa: 为 一 个 指向 SECURITY ATTRIBUTES 结构 的 指针 。 如 果 想 让 对 象 为 
默认 安全 属性 的 话 ， 可 以 传 一 个 NULL， 如 果 想 让 任 一 个 子 进程 都 可 继承 一 个 该 
线程 对 象 句柄 ， 必 须 指 定 一 个 SECURITY ATTRIBUTES 结构 ， 并 使 其 中 的 
bInheritHandle 成 员 初 始 化 为 TRUE. 

Q 3X cbstack: 表示 线程 为 自己 所 用 堆栈 分 配 的 地 址 空间 大 小 ，0 表示 采用 系统 默 
认 值 。 
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O HR lpStartAddr: 表示 新 线程 开始 执行 时 代码 所 在 函数 的 地 址 ， 即 为 线程 函数 。 
参数 IpvThreadParm: 为 传 入 线程 函数 的 参数 。 
O ”参数 fdwCreate: 指定 控制 线程 创建 的 附加 标志 ， 可 以 取 两 种 值 。 如 果 该 参数 为 
0， 线 程 就 会 立即 开始 执行 ， 如 果 该 参数 为 CREATE SUSPENDED， 则 系统 产生 
线程 后 ， 初 始 化 CPU， 登 记 CONTEXT 结构 的 成 员 ， 准 备 好 执行 该 线程 函数 中 的 
第 一 条 指令 ， 但 并 不 马上 执行 ， 而 是 挂 起 该 线程 。 
口 “ 参 数 jpIDThread: 是 一 个 DWORD 类 型 地 址 ， 返 回 赋 给 该 新 线程 的 ID 值 。 
(3) 终止 线程 
在 一 般 情况 下 ， 当 调用 线程 函数 返回 后 ， 线 程 会 自动 终止 ， 而 如 果 需 要 在 线程 的 执行 
过 程 中 终止 ， 则 可 调用 如 下 函数 : 


VOID ExitThread(DWORD dwExitCode); 


如 果 在 线程 的 外 面 终止 线 程 ， 则 可 调用 下 面 的 函数 : 


BOOL TerminateThread (HANDLE hThread, DWORD dwExitCode) ; 


读者 需要 注意 ， 该 函数 可 能 会 引起 系统 不 稳定 ， 而 且 线程 所 占用 的 资源 也 不 释放 。 因 
此 ， 一 般 情况 下 ， 建 议 不 要 使 用 该 函数 。 如 果 要 终止 的 线程 是 进程 内 的 最 后 一 个 线程 ， 则 
线程 被 终止 后 相应 的 进程 也 应 终止。 

(4) 设置 线程 优先 级 

一 个 线程 的 优先 级 是 相对 于 其 所 属 的 进程 的 优先 级 而 言 的 。 当 一 个 线程 被 首次 创建 
时 ， 它 的 优先 级 等 同 于 它 所 属 进程 的 优先 级 。 

在 单个 进程 内 可 以 通过 调用 SetThreadPriority0) 函 数 改变 线程 的 相对 优先 级 : 


BOOLSetThreadPriority (HANDLE hThread, int nPriority); 


O Jk hThread: 是 指向 待 修改 优先 级 线程 的 句柄 。 
Q “参数 nPriority: 为 相应 的 线程 优先 级 ， 可 以 是 以 下 的 值 。 
THREAD PRIORITY LOWEST 
THREAD PRIORITY BELOW NORMAL 
THREAD PRIORITY NORMAL 
THREAD PRIORITY ABOVE NORMAL 
» THREAD PRIORITY HIGHEST 

(5) 线程 的 挂 起 与 恢复 

我 们 可 以 创建 挂 起 状态 的 线程 ， 即 通过 传递 CREATE SUSPENDED 标志 给 函数 
CreateThread() 来 实现 。 

要 开始 执行 该 线程 ， 必 须 通过 另 一 个 线程 调用 ResumeThread0) 函 数 ， 并 传递 给 它 调用 
CreateThread0 函 数 时 返回 的 线程 句柄 : 


DWORD ResumeThread (HANDLE hThread); 


除了 在 创建 线程 时 用 CREATE SUSPENDED 标志 ， 开 发 人 员 还 可 用 SuspendThread() 


D 
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函数 来 挂 起 线程 : 


DWORD SuspendThread (HANDLEhThread); 


如 果 一 个 线程 被 挂 起 3 次 ， 该 线程 在 它 被 分 配 CPU 之 前 必须 被 恢复 3 次 。 

(6) 线程 同步 

在 线程 体内 ， 如 果 该 线程 完全 独立 ， 与 其 他 线程 没有 数据 存 取 等 资源 操作 上 的 冲突 ， 
则 可 按照 通常 单线 程 的 方法 进行 编程 。 但 是 ， 在 利用 多 线程 处 理 时 ， 情 况 常常 不 是 这 样 ， 
线程 之 间 经 常 要 同时 访问 一 些 共享 资源 ， 这 就 不 可 避免 地 会 引起 访问 冲突 。 为 了 解决 这 一 
问题 ，Win32 API 提 供 了 多 种 同步 控制 对 象 来 帮助 程序 员 解 决 共享 资源 访问 冲突 。 

同时 ，Win32 API 还 提供 了 一 组 能 使 线程 阻塞 其 自身 执行 的 等 待 函 数 。 这 些 函 数 在 其 
参数 中 的 一 个 或 多 个 同步 对 象 产生 了 信号 。 在 等 待 函 数 未 返回 时 ， 线 程 处 于 等 待 状态 ， 但 
此 时 线程 只 消耗 很 少 的 CPU 时 间 ;， 超 过 规定 的 等 待 时 间 才 会 返回 。 

使 用 等 待 函数 既 可 以 保证 线程 的 同步 ， 又 可 以 提高 程序 的 运行 效率 。 最 常用 的 等 待 函 
数 是 WaitForSingleObject0， 该 函数 的 声明 格式 如 下 : 

DWORD WaitForSingleObject (HANDLE hHandle, DWORD dwMilliseconds); 

函数 WaitForMultipleObjectO 用 于 同时 监测 多 个 同步 对 象 ， 该 函数 的 声明 格式 如 下 : 


DWORD WaitForMultipleObject(DWORD nCount, CONST HANDLE *lpHandles, 
BOOL bWaitAll, DWORD dwMilliseconds); 


11.243 用 MFC 实 现 多 线程 编程 


在 Visual C++ 附带 的 MFC 类 库 中 ， 提 供 了 对 多 线程 编程 的 支持 ， 基 本 原理 与 基于 
Win32 API 的 设计 一 致 ， 但 由 于 MFC 对 同步 对 象 做 了 封装 ， 因 此 实现 起 来 更 加 方便 ， 避 免 
了 对 象 句 柄 管理 上 的 烦琐 工作 。 在 MFC 中 ， 线 程 分 为 两 种 ， 分 别 是 工作 线程 和 用 户 界面 线 
程 。 工 作 线程 与 前 面 所 述 的 线程 一 致 ， 用 户 界面 线程 是 一 种 能 够 接收 用 户 的 输入 、 处 理事 
件 和 消息 的 线程 。 

(1) 创建 与 使 用 工作 线程 

工作 线程 编程 较为 简单 ， 设 计 思 路 与 前 面 所 讲 的 基本 一 致 : 一 个 基本 函数 代表 了 一 个 
线程 ， 创 建 并 启动 线程 后 ， 线 程 进入 运行 状态 。 如 果 线 程 用 到 共享 资源 ， 则 需要 进行 资源 
同步 处 理 。 这 种 方式 创建 线程 并 启动 线程 时 可 调用 函数 如 下 : 


CWinThread* AfxBeginThread( 


AFX THREADPROC pfnThreadProc, 

LPVOID pParam, 

int nPriority-THREAD PRIORITY NORMAL, 
UINT nStackSize=0, 

DWORD dwCreateFlags=0, 


LPSECURITY ATTRIBUTES lpSecurityAttrs-NULL 
); 


O ”参数 pfnThreadProc: 是 线程 执行 体 函 数 ， 其 函数 原型 为 UINT ThreadFunction 
(LPVOID pParam). 
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Q BB pParam: 是 传递 给 执行 函数 的 参数 。 

O “参数 nPriority: 是 线程 执行 权限 ， 可 选 值 如 下 。 
» THREAD PRIORITY NORMAL 
> THREAD PRIORITY LOWEST 
> THREAD PRIORITY HIGHEST 
» THREAD PRIORITY IDLE 

a ”参数 dwCreateFlags: 是 线程 创建 时 的 标志 ， 可 取 值 CREATE SUSPENDED, 表 
示 线 程 创建 后 处 于 挂 起 状态 ， 调 用 ResumeThread 函数 后 线程 继续 运行 ， 或 者 取 
值 “0”， 表 示 线 程 创建 后 处 于 运行 状态 。 

o “返回 值 : 是 CWinThread 类 对 象 指针 ， 它 的 成 员 变 量 m hThread 为 线程 句柄 ， 在 
Win32 API 方式 下 对 线程 操作 的 函数 参数 都 要 求 提供 线程 的 句柄 ， 所 以 当 线 程 创 
建 后 可 以 使 用 所 有 Win32 API 函数 对 pWinThread->m Thread 线程 进行 相关 操 
作 。 相 应 的 线程 函数 的 声明 格式 如 下 : 


UINT ThreadFunc (LPVOID lpParam); 


(2) 创建 并 使 用 用 户 界面 线程 

在 基于 MFC 的 应 用 程序 中 有 一 个 应 用 对 象 ， 它 是 CWinApp 派生 类 的 对 象 ， 该 对 象 代 
表 了 应 用 进程 的 主线 程 。 当 线程 执行 完 并 退出 线程 时 ， 由 于 进程 中 没有 其 他 线程 存在 ， 进 
程 自动 结束 。 

类 CWinApp 从 CWinThread 派生 出 来 ，CWinThread 是 用 户 界面 线程 的 基本 类 。 在 编 
写 用 户 界 面 线程 时 ， 需 要 从 CWinThread 类 派生 我 们 自己 的 线程 类 ，ClassWizard 可 以 帮助 
我 们 完成 这 个 工作 。 

利用 MFC 创建 和 使 用 用 户 界面 线程 时 ， 需 要 首先 用 ClassWizard 派生 一 个 新 的 类 ， 并 
设置 其 基 类 为 CWinThread; 然后 根据 需要 将 初始 化 和 结束 代码 分 别 放 在 类 的 InitInstance 
和 ExitInstance 函数 中 。 如 果 需 要 创建 窗口 ， 则 可 在 Initmstance(O) 函 数 中 完成 。 

这 样 就 可 以 创建 并 启动 线程 ， 有 两 种 方法 可 以 用 来 创建 用 户 界 面 线程 。 

a 第 一 种 方法 : 使 用 AfxBeginThread() K že. MFC 提供 了 两 个 版 本 的 
AfxBeginThread() 函 数 ， 其 中 一 个 用 于 创建 界面 接口 线程 。 

Qa 第 二 种 方法 : 首先 调用 线程 类 的 构造 函数 创建 一 个 线程 对 象 ; 然后 调用 
CWinThread::CreateThread(O) 函 数 来 创建 该 线程 。 线 程 建立 并 启动 后 ， 在 线程 函数 
执行 过 程 中 一 直 有 效 。 如 果 是 线程 对 象 ， 则 在 对 象 删除 之 前 ， 先 结束 线程 。 
CWinThread 已 经 为 我 们 完成 了 线程 结束 的 工作 。 

(3) 实现 线程 同步 

在 MFC 类 库 中 可 以 对 同步 对 象 进行 类 封装 ， 它 们 有 一 个 共同 的 基 类 CSyncObject， 它 

们 的 对 应 关系 为 : Semaphore X1 CSemaphore, Mutex 对 应 CMutex、Event 对 应 CEvent、 
CriticalSection 对 应 CCriticalSection 。 
另外 ，MEFC 对 两 个 等 待 函数 也 进行 了 封装 ， 即 CSingleLock 和 CMultiLock. 
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Q@@ ”使 用 CCriticalSection 类 

当 多 个 线程 访问 一 个 独占 性 共享 资源 时 ， 可 以 使 用 “临界 区 ”对 象 。 任 一 时 刻 只 有 一 
个 线程 可 以 拥有 临界 区 对 象 ， 拥 有 临界 区 的 线程 可 以 访问 被 保护 起 来 的 资源 或 代码 段 ， 其 
他 希望 进入 临界 区 的 线程 将 被 挂 起 等 待 ， 直 到 拥有 临界 区 的 线程 放弃 临界 区 时 为 止 ， 这 样 
就 保证 了 不 会 在 同一 时 刻 出 现 多 个 线程 访问 共享 资源 的 情况 。 

© 使 用 CMutex 类 

互 斥 对 象 与 临界 区 对 象 很 像 ， 互 斥 对 象 与 临界 区 对 象 的 不 同 在 于 : 互 斥 对 象 可 以 在 进 
程 间 使 用 ， 而 临界 区 对 象 只 能 在 同一 进程 的 各 线程 间 使 用 。 当 然 ， 互 斥 对 象 也 可 以 用 于 同 
一 进程 的 各 个 线程 间 ， 但 是 在 这 种 情况 下 ， 使 用 临界 区 会 更 节省 系统 资源 ， 更 有 效率 。 

© 使 用 CEvent 类 

CEvent 类 提供 了 对 事件 的 支持 。 事 件 是 一 个 允许 一 个 线程 在 某 种 情况 发 生 时 ， 唤 醒 另 
外 一 个 线程 的 同步 对 象 。 例 如 ， 在 某 些 网 络 应 用 程序 中 ， 一 个 线程 ( 记 为 A) 负 责 监听 通讯 
端口 ， 另 外 一 个 线程 ( 记 为 B) 负 责 更 新 用 户 数据 。 通 过 使 用 CEvent 类 ， 线 程 A 可 以 通知 线 
程 B 何 时 更 新 用 户 数据 。 

每 一 个 CEvent 对 象 可 以 有 两 种 状态 : 有 信号 状态 和 无 信号 状态 。 线 程 监视 位 于 其 中 
的 CEvent 对 象 的 状态 ， 并 在 相应 的 时 候 采 取 相 应 的 操作 。 

在 MFC 中 ，CEvent 对 象 有 人 工事 件 和 自动 事件 两 种 类 型 。 一 个 自动 CEvent 对 象 在 被 
至 少 一 个 线程 释放 后 会 自动 返回 到 无 信号 状态 ， 而 人 工事 件 对 象 获得 信号 后 ， 释 放 可 利用 
线程 ， 但 直到 调用 成 员 函 数 ResetEvent() 才 将 其 设置 为 无 信号 状态 。 在 创建 CEvent 类 的 对 
象 时 ， 默 认 创建 的 是 自动 事件 。 

(4) 使 用 CSemaphore 类 

当 需 要 一 个 计数 器 来 限制 可 以 使 用 某 个 线程 的 数目 时 ， 可 以 使 用 “信号 ”对 象 。 
CSemaphore 对 象 保存 了 对 当前 访问 某 一 指定 资源 的 线程 的 计数 值 ， 该 计数 值 是 当前 还 可 以 
使 用 该 资源 的 线程 的 数目 。 如 果 这 个 计数 达到 了 零 ， 则 所 有 对 这 个 CSemaphore 对 象 所 控 
制 的 资源 的 访问 尝试 都 被 放 入 到 一 个 队列 中 等 待 ， 直 到 超时 或 计数 值 不 为 零 时 为 止 。 一 个 
线程 被 释放 已 访问 了 被 保护 的 资源 时 ， 计 数值 减 1， 一 个 线程 完成 了 对 被 控 共 享 资源 的 访 
问 时 ， 计 数值 增 1。 这 个 被 CSemaphore 对 象 所 控制 的 资源 可 以 同时 接受 访问 的 最 大 线程 数 


在 该 对 象 的 构造 函数 中 指定 。 
11.8. ”对 缓冲 区 的 理解 
在 使 用 QQ 播放 器 播放 在 线 音乐 和 视频 时 ， 经 常会 看 见 “缓冲 中 ……” 的 提示 。 因 为 
缓冲 区 在 聊天 系统 中 的 作用 突出 ， 所 以 在 我 们 讲解 本 章 实例 之 前 ， 很 有 必要 介绍 缓冲 区 的 
基本 知识 。 


11.3.1 缓冲 区 基础 


缓冲 区 又 称 为 缓存 ， 它 是 内 存 空 间 的 一 部 分 。 也 就 是 说 ， 在 内 存 空 间 中 预 留 了 一 定 的 
存储 空间 ， 这 些 存储 空间 用 来 缓冲 输入 或 输出 的 数据 ， 这 部 分 预 留 的 空间 就 叫 作 缓冲 区 。 


缓冲 区 根据 
(D 为 什么 要 引入 缓冲 区 
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其 对 应 的 是 输入 设备 还 是 输出 设备 ， 分 为 输入 缓冲 区 和 输出 缓冲 区 。 


究竟 是 为 什么 要 引入 缓冲 区 呢 ? 比如 我 们 从 磁盘 里 取信 息 ， 我 们 先 把 读 出 的 数据 放 在 


缓冲 区 ， 计 算 机 再 直接 从 缓冲 
就 可 以 减少 磁盘 的 读 写 次 数 ， 再 加 上 计算 机 对 缓冲 区 
使 用 缓冲 区 可 大 大 提高 计算 机 的 运行 速度 。 
又 比如 ， 我 们 使 月 
把 文档 输出 到 打印 机 相应 的 缓冲 区 ， 打 印 机 再 自行 逐 
别 的 事情 。 
现在 应 该 明白 了 吧 ， 缓 冲 


区 就 是 一 块 内 存 区 ， 它 


区 中 取 数 据 ， 等 缓冲 区 的 数据 取 完 后 再 去 磁盘 中 读 取 ， 这 样 


的 操作 大 大 快 于 对 磁盘 的 操作 ， 所 以 


打印 机 打印 文档 ， 由 于 打印 机 的 打印 速度 相对 较 慢 ， 我 们 通常 是 先 


步 打印 ， 这 时 我 们 的 CPU 可 以 处 理 


用 在 输入 输出 设备 和 CPU 之 间 ， 用 


来 缓存 数据 。 它 使 得 低速 的 输入 输出 设备 和 高 速 的 CPU 能 够 协调 工作 ， 避 免 低速 的 输入 


输出 设备 占 上 
Q) 缓冲 区 的 类 型 
缓冲 
口 


的 典型 代表 是 对 磁盘 文件 的 读 写 。 

a 
作 。 这 时 ， 我 们 输入 的 字符 先 存放 在 缓冲 区 
的 IO 操作 。 和 典型 代表 是 键盘 输入 数据 。 

口 
示 出 来 。 

(3) 刷新 缓冲 区 

在 下 列 情况 下 会 引发 缓冲 区 的 刷新 : 

a ”缓冲 区 满 。 

Q ”执行 flush 语句 。 

Q ”执行 endl 语句 。 

a ”关闭 文件 。 

由 此 可 见 ， 缓 冲 区 满 或 关闭 文件 时 都 会 刷新 缓冲 

C++ 中 ， 我 们 可 以 使 用 flush 函数 来 刷新 缓冲 区 (执行 

简单 代码 : 


不 带 缓冲 : 不 带 缓冲 就 是 不 进行 缓冲 ， 此 情 


CPU， 解 放 了 CPU， 使 其 能 够 高 效率 地 工作 。 


区 可 以 分 为 全 缓冲 、 行 缓冲 和 不 带 缓冲 三 种 类 型 。 
全 缓冲 : 在 全 缓冲 情况 下 ， 当 填 满 标准 IO 缓存 后 才 进行 实际 VO 操作 。 全 缓冲 


行 缓冲 : 在 行 缓冲 情况 下 ， 当 输入 和 输出 中 遇 到 换行 符 时 ， 执 行 真正 的 IO B 


， 等 按 下 Enter 键 换行 时 才 进 行 实际 


况 下 会 使 出 错 信息 可 以 直接 尽快 地 显 


区 ， 进 行 真正 的 IO 操作 。 另 外 ， 在 


VO 操作 并 清空 缓冲 区 )， 例 如 下 面 的 


cout << flush; // 将 显存 的 内 容 立 即 输出 到 显示 器 上 进行 显示 
endl 控制 符 的 作用 是 将 光标 移动 到 输出 设备 中 下 一 行 开头 处 ， 并 且 清 空 缓冲 区 : 


cout «« endl; 
相当 于 下 面 的 代码 : 


cout << "An" << flush; 
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11.3.2 ”验证 缓冲 区 


前 面 介绍 的 都 是 理论 知识 ， 为 了 充分 说 明 缓 冲 区 的 存在 ， 在 这 里 将 通过 具体 实例 来 加 


以 说 明 。 
(1) 文件 操作 演示 全 缓冲 
创建 一 个 控制 台 工程 并 输入 如 下 代码 : 


#include <fstream> 
using namespace std; 
int main() 
t 
// 创 建文 件 test .txt 并 打开 
ofstream outfile("test.txt"); 
// f] test .tzxt 文件 中 写 入 4096 ERa 
for(int n-0; n<4096; n++) 
{ 
outfile << 'a'; 


} 
// 暂 停 ， 按 任意 键 继续 
system("PAUSE"); 


// 继 续 向 test .txt 文件 中 写 入 字符 “bp?， 也 就 是 说 ， 第 4097 MEAD’ 


outfile << 'b'; 
// 暂 停 ， 按 任意 键 继续 
system("PAUSE"); 
return 0; 

ij 


编写 上 述 代码 的 目的 是 验证 Windows XP 下 全 缓冲 的 大 小 是 4096 个 字 节 ， 并 验证 缓冲 
区 满 后 会 刷新 缓冲 区 ， 执 行 真正 的 VO 操作 。 编 译 并 执行 后 的 运行 结果 如 图 11-1 所 示 。 此 
时 打开 工程 所 在 文件 夹 下 的 testtxt 文件 ， 会 发 现 该 文件 是 空 的 ， 这 说 明 4096 个 字符 “a” 
还 在 缓冲 区 ， 并 没有 真正 执行 VO 操作 。 按 下 Enter 键 后 窗口 变 为 如 图 11-2 所 示 的 效果 。 


图 11-1 初始 效果 图 11-2 第 二 次 效果 


此 时 再 打开 test.txt 文件 ， 就 会 发 现 该 文件 中 已 经 有 了 4096 个 字符 “a”， 由 此 可 以 说 
明 全 缓冲 区 的 大 小 是 4KB( 即 4096 FH), 缓冲 区 满 后 执行 了 VO 操作 ， 而 字符 “b” 还 在 


缓冲 区 。 再 次 按 下 Enter 键 ， 窗 口 变 为 如 图 11-3 所 示 的 效果 。 


图 11-3 第 三 次 效果 


缓冲 区 。 


时 再 打开 文件 test.txt， 会 发 现 字 符 “b” 也 在 其 中 ， 这 就 说 明 在 文件 关闭 时 刷新 了 
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Q) 键盘 操作 演示 行 缓冲 
创建 一 个 控制 台 工程 并 输入 如 下 代码 : 


#include <iostream> 
using namespace std; 
int main() 
t 

char c; 


// 第 一 次 调用 getchar (0 函数 
// 程 序 执行 时 ， 您 可 以 输入 一 串 字 符 并 按 下 Enter 键 ， 按 下 Enter 键 后 该 函数 才 返 
c = getchar(); 


i 


// S getchar () 函数 的 返回 值 


cout << c << endl; 


// 暂 停 


system("PAUSE"); 


// 循 环 多 次 调用 getchar () 函数 
// 将 每 次 调用 getchar () 函数 的 返回 值 显示 出 来 
// 直 到 遇 到 回 车 符 才 结束 
while((c=getchar()) != '\n') 
{ 

printE ("Sen C); 
i 


// 暂 停 
system("PAUSE"); 
return 0; 
} 
在 上 述 代码 中 ，getchar0 函 数 的 执行 就 是 采用 了 行 缓冲 。 当 第 一 次 调用 getchar() PR BX 
时 ， 会 让 程序 使 用 者 (用 户 ) 输 入 一 行 字符 并 且 直 到 按 下 Enter 键 函 数 才 返回 。 
poppin mgt ei he 当 再 次 调用 getchar KA, AZ 
步 输出 行 缓冲 区 的 内 容 。 编 译 并 运行 程 会 提示 您 输入 字符 ， 可 以 交替 按 下 一 些 字符 
键 ， 如 图 11-4 所 示 。 


图 11-4 执行 效果 
如 果 一 直 按 下 去 ， 会 发 现 当 您 按 到 第 4094 个 字符 时 ， 不 允许 继续 输入 字符 。 这 说 明 


行 缓冲 区 的 大 小 也 是 4KB。 

此 时 按 下 Enter 键 ， 返 回 第 一 个 字符 'a"， 如 图 11-5 所 示 。 

如 果 继 续 按 一 次 Enter 键 ， 会 将 缓冲 区 的 其 他 的 字符 全 部 输出 ， 如 图 11-6 所 示 。 

到 此 为 止 ， 开 发 一 个 仿 QQ 聊天 系统 所 必须 具备 的 基础 知识 就 介绍 完毕 了 。 接 下 来 将 
开始 详细 介绍 这 个 项 目的 具体 实现 过 程 。 
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图 11-6 执行 效果 二 


11.4 文件 传输 


作为 一 个 QQ， 在 线 文件 传输 功能 必 不 可 少 。 在 Visual C++ 开发 过 程 中 ， 可 以 通过 
CFile 类 、API 函数 和 Sockets 套 接 字 来 实现 文件 传输 功能 。 


11.4.1 alee 


磁盘 输入 /输出 设备 ， 
接 通过 派生 E 因为 CFile 类 比较 简单 ， 所 以 当 程序 员 遇 见 与 
件 相关 的 操作 时 ， 首 先 想到 的 便 是 CFile 类 。 
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CFile 类 与 CArchive 类 共同 使 用 ， 支持 MFC 对 象 的 序列 化 。 例 如 ， 一 个 内 存 文件 相 


当 于 一 个 磁盘 文件 。 使 用 CFile 及 其 派生 类 进行 一 般 目的 的 磁盘 VO, (EFA ofstream 或 其 他 
Microsoft 输入 输出 流 类 将 格式 化 文本 送 到 磁盘 文件 。 


SX 


通常 ， 一 个 磁盘 文件 在 CFile 构造 时 自动 打开 ， 并 在 析 构 时 关闭 。 静 态 成 员 函 数 使 你 


J 以 在 不 打开 文件 的 情况 下 检查 文件 的 状态 。 


CFile 类 对 文件 的 操作 功能 是 通过 其 本 身 的 方法 实现 的 ， 接 下 来 将 介绍 CFile 类 中 的 常 
(1) CFile::Close 函数 用 于 关闭 文件 ， 使 该 文件 不 可 用 于 读 写 。 

格式 : virtual void Close(); 

Q) CFile::GetLength 函数 用 于 获取 文件 的 长 度 ， 单 位 以 字 节 计 。 

格式 : virtual DWORD GetLength() const; 

返回 值 : 文件 长 度 。 

(3) CFile::Open 函数 用 于 打开 某 文件 。 

格式 :virtual BOOL Open(LPCTSTR IpszFileName, UINT nOpenFlags, CFileException 


*pError-NULL); 


参数 介绍 如 下 。 
O lpszFileName: 指定 打开 文件 的 路 径 。 
Q pErmor: 指向 一 个 已 有 的 文件 异常 对 象 的 指针 。 
口 
CFile:modeCreate: 创建 一 个 新 文件 ， 若 文件 已 存在 ， 则 该 文件 被 清空 。 
CFile::modeRead: 用 于 只 读 。 
CFile::modeReadWrite: 用 于 读 写 。 
CFile::modeWrite: 用 于 只 写 。 
>  CFile:modeNolnherit: 阻止 文件 被 子 进程 继承 。 
返回 值 : 若 打 开 成 功 ， 返 回 非 0， 否 则 返回 0。 
(4) CFile::Read 函数 用 于 从 文件 中 读 一 段 数据 到 一 缓冲 区 中 。 
格式 : virtual UINT Read(void *IpBuf, UINT nCount): 
参数 介绍 如 下 。 
O IpBuf: 指向 用 户 定义 的 缓冲 区 。 
Q nCount: 为 要 从 文件 中 读 出 的 最 大 字 节 数 。 
返回 值 : 传输 给 缓冲 区 的 字 节 数 ， 可 小 于 nCount 所 指定 的 值 。 
(5) CFile::Rename 函数 用 于 重 命名 文件 (静态 函数 )， 但 是 目录 不 可 重 命名 。 
格式 : static void PASCAL Rename(LPCTSTR lpszOldName, LPCTSTR IpszNewName); 
参数 介绍 如 下 。 
OQ IpszOldName: 旧 路 径 名 。 
口 “]lpszNewName: 新 路 径 名 。 
(6) CFile::Remove 函数 用 于 删除 指定 文件 (静态 函数 )， 不 可 删除 目录 。 
格式 : static void PASCAL Remove(LPCTSTR lpszFileName): 
参数 : lpszFileName 用 于 指向 删除 文件 的 路 径 名 字符 串 。 


VvVV NM 


Visual C+ CHEREE 


7) 


CFile::Seek 用 于 定位 当前 文件 指针 。 


格式 : virtual LONG Seek(LONG 1Off, UINT nFrom); 
参数 介绍 如 下 。 


口 
口 


(8) 


loff: 指针 移动 的 字 节 数 ， 为 正 时 ， 向 后 移动 ， 为 负 时 ， 向 前 移动 。 

nFrom: 指针 移动 方式 ， 可 以 是 下 列 值 之 一 。 

> CFile::begin: 将 文件 指针 从 文件 头 移动 10 任 个 字 节 。 

> CFile::current: 将 文件 指针 从 当前 位 置 移动 10 任 个 字 节 。 

> CFile::end: 将 文件 指针 从 文件 尾 移动 10 企 个 字 节 。 

CFile::SeekToBegin 将 文件 指针 设置 到 文件 头 ， 相 当 于 Seek(OL, CFile::begin)。 


格式 : void SeekToBegin(): 


(9) 


CFile::SeekToEnd 用 于 将 文件 指针 设置 到 文件 尾 ， 相 当 于 Seek(OL, CFile::end). 


格式 : DWORD SeekToEnd(): 

返回 值 : 文件 的 字 节 长 度 。 

(10) CFile::Write 用 于 将 数据 从 一 缓冲 区 写 入 文件 中 。 
格式 : virtual void Write(const void *IpBuf, UINT nCount): 
参数 介绍 如 下 。 


口 
口 


IpBuf: 指向 用 户 定义 的 缓冲 区 。 
nCount: 为 要 从 缓冲 区 传输 的 字 节 数 。 


11.4.2 ”使 用 API 函 数 
在 进行 MFC 开发 时 ， 除 了 可 以 使 用 CFile 来 操作 文件 外 ， 还 可 以 使 用 API 函数 来 操 


作文 件 。 
函数 中 ， 
a) 
a 
a 


a 


a 


通过 学 习 API 编程 ， 可 以 让 程序 员 更 加 了 解 文件 操作 编程 的 原理 和 方法 。 在 API 
可 以 通过 下 列 函 数 实现 文件 操作 功能 。 

一 般 文件 操作 

CreateFile): 用 于 打开 文件 。 要 对 文件 进行 读 写 等 操作 ， 首 先 必 须 获得 文件 句 
柄 ， 通 过 该 函数 可 以 获得 文件 句柄 ， 该 函数 是 通 向 文件 世界 的 大 门 。 

ReadFile(): 能 够 从 文件 中 读 取 字 节 信 息 。 在 打开 文件 获得 了 文件 句柄 之 后 ， 则 可 
以 通过 该 函数 读 取 数 据 。 

WriteFile(): 能 够 向 文件 写 入 字 节 信息 。 同 样 可 以 将 文件 句柄 传 给 该 函数 ， 从 而 
实现 对 文件 数据 的 写 入 。 

CloseHandle(): 用 于 关闭 文件 句柄 。 在 打开 文件 之 后 ， 自 然 要 记得 关上 。 
GetFileTime(): 用 于 获取 文件 时 间 。 有 三 个 文件 时 间 可 供 获 取 ， 分 别 是 创建 时 
间 、 最 后 访问 时 间 、 最 后 写 时 间 。 该 函数 同样 需要 文件 句柄 作为 入 口 参数 。 
GetFileSize0: 用 于 获取 文件 大 小 。 由 于 文件 大 小 可 以 高 达 数 GB(1GB 需要 30 
位 )， 因 此 一 个 32 位 的 双 字 节 类 型 无 法 对 其 精确 表达 ， 因 此 返回 码 表示 低 32 位 ， 
还 有 一 个 出 口 参数 可 以 传 出 高 32 位 。 该 函数 同样 需要 文件 句柄 作为 入 口 参数 。 
GetFileAttributes(): 用 于 获取 文件 属性 。 可 以 获取 文件 的 存档 、 只 读 、 系 统 、 隐 
藏 等 属性 。 该 函数 只 需 一 个 文件 路 径 作为 参数 。 
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O SetFileAttributes0: 用 于 设置 文件 属性 。 因 为 可 以 获取 ， 所 以 也 能 够 设置 ， 可 以 
设置 文件 的 存档 、 只 读 、 系 统 、 隐 藏 等 属性 。 只 需 一 个 文件 路 径 作为 参数 。 

Q GetFileInformationByHandle(): 用 于 获取 所 有 文件 信息 。 该 函数 能 够 获取 上 面 所 
有 函数 所 能 够 获取 的 信息 ， 如 大 小 、 属 性 等 ， 还 包括 一 些 其 他 地 方 无 法 获取 的 信 
息 ， 比 如 文件 卷 标 、 索 引 和 链接 信息 。 该 函数 需要 文件 句柄 作为 入 口 参数 。 

O GetFullPathName(): 用 于 获取 文件 路 径 ， 该 函数 获取 文件 的 完整 路 径 名 。 但 是 只 
有 当 该 文件 在 当前 目录 下 时 ， 结 果 才 正确 。 如 果 要 得 到 真正 的 路 径 。 应 该 用 
GetModuleFileName 函数 。 

a CopyFile): 用 于 复制 一 个 文件 ， 只 能 复制 文件 ， 而 不 能 复制 目录 。 

口 MoveFileEx(): 用 于 移动 文件 。 既 可 以 移动 文件 ， 也 可 以 移动 目录 ， 但 不 能 跨越 

盘 符 (Windows 2000 下 设置 移动 标志 可 以 实现 跨越 盘 符 操作 )。 

DeleteFile(): 用 于 删除 文件 。 

GetTempPath(): 用 于 获取 Windows 临时 目录 路 径 。 

GetTempFileName(): 可 以 在 Windows 临时 目录 路 径 下 创建 唯一 的 临时 文件 。 

Q SetFilePoint): 用 于 移动 文件 指针 。 该 函数 用 于 对 文件 进行 高 级 读 写 操作 。 

Q) 文件 的 锁定 和 解锁 

在 API 函数 中 ， 可 以 通过 如 下 4 个 函数 对 文件 做 锁定 和 解锁 。 

Q  LockFile() 

Q  UnlockFile() 

a  LockFileEx() 

a  UnlockFileEx() 

通过 以 上 4 个 函数 ， 可 以 实现 对 文件 的 异步 操作 ， 即 可 同时 对 文件 的 不 同 部 分 进行 各 

自 的 操作 。 

(3) 文件 的 压缩 和 解压 缩 
以 下 6 个 函数 为 32 位 API 中 的 一 个 小 扩展 库 ， 是 文件 压缩 扩展 库 中 的 函数 。 文 件 压 

缩 可 以 用 命令 compress 创建 。 

口 LZOpenFile(): 用 于 打开 压缩 文件 以 读 取 。 

Q LZSeekQ: 用 于 查找 压缩 文件 中 的 一 个 位 置 。 

Q LZReadQ: 用 于 读 取 一 个 压缩 文件 。 

口 LZClose(): 用 于 关闭 一 个 压缩 文件 。 

口 LZCopy0: 用 于 复制 压缩 文件 并 在 处 理 过 程 中 展开 。 

OQ  GetExpandedName(: 用 于 从 压缩 文件 中 返回 文件 名 称 。 

(4) 文件 内 核对 象 

32 位 的 API 提供 了 文件 映像 特性 ， 它 允许 将 文件 直接 映射 为 一 个 应 用 的 虚拟 内 存 空 
间 ， 这 一 技术 可 用 于 简化 和 加 速 文 件 访问 。 在 API 函数 中 ， 实 现 文件 内 核对 象 功能 的 函数 
如 下 。 

OQ CreateFileMappingO: 用 于 实现 创建 和 命名 映射 。 

口 “MapViewOfFile0: 可 以 把 文件 映射 装载 到 内 存 。 

口 UnmapViewOfFile(): 用 于 释放 视图 并 把 变化 写 回 文件 。 


ooo 


X 


Á ` 
H 络 编程 开发 与 实战 
Q FlushViewOfFile(): 可 以 将 视图 的 变化 刷新 写 入 磁盘 。 


11.4.3 ”使 用 Socket 传 输 文 件 


在 Visual C++ 开发 过 程 中 ， 可 以 使 用 Socket( 套 接 字 ) 来 传输 文件 。 关 于 Socket 的 基本 
知识 ， 在 本 书 前 面 的 内 容 中 已 经 讲解 过 。 用 Socket 来 传输 文件 的 过 程 是 ， 首 先 将 本 地 文件 
数据 读 取 到 某 缓冲 区 ， 然 后 再 使 用 套 接 字 将 缓冲 区 内 容 发 送 到 远程 计算 机 上 。 当 程序 接收 
文件 时 ， 先 将 数据 存 入 到 缓冲 区 ， 然 后 创建 相应 文件 并 将 缓冲 区 内 容 写 入 到 文件 即 可 。 

图 11-7 以 发 货 和 收 货 为 例 ， 抛 砖 引 玉 式 地 介绍 了 文件 传输 的 过 程 。 其 实 文件 传输 和 货 
物 传输 类 似 ， 都 是 收发 双方 实现 传递 的 过 程 。 


1-7 ”货物 传输 过 程 


由 图 11-7 可 知 ， 需 要 3 个 Socket， 在 窗 体 加 载 的 时 候 初始 化 。 
a ”等 待 收 货 请 求 的 Socket， 即 等 待 对 方向 自己 发 出 发 送 文件 的 请 求 。 
a “接收 收 货 方 响应 的 Socket， 即 对 方 是 否 愿 意 接收 大 文件 的 回应 。 
口 ” 收 货 方 收 货 的 Socket， 即 接收 大 文件 。 
根据 上 述 思 路 ， 可 以 编写 一 个 简单 的 文件 传输 系统 ， 具 体 实现 流程 如 下 。 
(1) 首先 定义 一 个 Socket 套 接 字 结构 ， 例 如 SOCKET STREAM FILE INFO。 具 体 代 
码 如 下 : 
typedef struct SOCKET STREAM FILE INFO { 
TCHAR szFileTitle[128]; // 文 件 的 标题 名 
DWORD dwFileAttributes; // 文 件 的 属性 
FILETIME ftCreationTime; // 文 件 的 创建 时 间 
FILETIME ftLastAccessTime; // 文 件 的 最 后 访问 时 间 
FILETIME ftLastWriteTime; // 文 件 的 最 后 修改 时 间 
DWORD nFileSizeHigh; // 文 件 大 小 的 高 位 双 字 
DWORD nFileSizeLow; // 文 件 大 小 的 低位 双 字 
DWORD dwReserved0; // 保 留 ， 为 0 


DWORD dwReservedl; // 保 留 , 为 0 
} SOCKET STREAM FILE INFO, *PSOCKET STREAM FILE INFO; 


(2) 实现 文件 发 送 。 当 客户 端 连接 服务 端 以 后 ， 客 户 端 便 可 以 向 服务 端 发 送 文件 了 。 
例如 可 以 通过 下 面 的 代码 实现 文件 发 送 : 
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CFile myFile; 
if(!myFile.Open(fileneme, CFile::modeRead | CFile::typeBinary) 
t 

AfxMessageBox (" 文 件 不 存在 !"，MB_OK | MB ICONERROR); 

return; 
5 
CSocket sockSrvr; 
SockSrvr.Create (800); 
SockSrvr.Listen(); 
CSocket sockRecv; 
SockSrvr.Accept (sockRecv) ; 
SOCKET STREAM FILE INFO StreamFileInfo; 
WIN32 FIND DATA FindFileData; 
FindClose (FindFirstFile (filename, FindFileData)); 
memset (&StreamFileInfo, 0, sizeof(SOCKET STREAM FILE INFO)); 
strcpy (StreamFileInfo.szFileTitle, myFile.GetFileTitle()); 
StreamFileInfo.dwFileAttributes = FindFileData.dwFileAttributes; 
StreamFileInfo.ftCreationTime = FindFileData.ftCreationTime; 
StreamFileInfo.ftLastAccessTime = FindFileData.ftLastAccessTime; 
StreamFileInfo.ftLastWriteTime = FindFileData.ftLastWriteTime; 
StreamFileInfo.nFileSizeHigh - FindFileData.nFileSizeHigh; 
StreamFileInfo.nFileSizeLow = FindFileData.nFileSizeLow; 
SockRecv.Send(&StreamFileInfo, sizeof(SOCKET STREAM FILE INFO)); 
UINT dwRead - 0; 
while (dwRead) 
t 

byte *data = new byte[1024]; 

UINT dw - myFile.Read(data, 1024); 

SockRecv.Send(data, dw); 

dwRead += dw; 
} 
myFile.Close(); 
sockRecv.Close(); 
AfxMessageBox (" 发 送 完毕 ! ") ; 


(3) 实现 文件 接收 。 当 客户 端 文件 发 送 到 服务 器 端 后 ， 服 务 器 端 负责 接收 文件 ， 并 且 
在 本 地 磁盘 中 创建 对 应 的 文件 来 接收 数据 。 例 如 可 以 通过 下 面 的 代码 实现 文件 接收 : 


CSocket sockClient; 
sockClient.Create(); 
if(!sockClient.Connect ((LPCTSTR) szIP, 800)) 
t 
AfxMessageBox (" 连 接 到 对 方 机 器 失败 !") ; 
return; 
H 
SOCKET STREAM FILE INFO StreamFileInfo; 
SockClient.Receive(&StreamFileInfo, sizeof (SOCKET STREAM FILE INFO)); 
CFile destFile(StreamFileInfo.szFileTitle, 
CFile::modeCreate | CFile::modeWrite | CFile::typeBinary) ; 
UINT dwRead = 0; 
while (dwRead 
{ 
byte *data = new byte[1024]; 
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memset(data, 0, 1024); 

UINT dw = sockClient.Receive (data, 1024); 
destFile.Write(data, dw); 

dwRead += dw; 


} 

SetFileTime ( (HANDLE) destFile.m hFile, &StreamFileInfo.ftCreationTime, 
&StreamFileInfo.ftLastAccessTime, &StreamFileInfo.ftLastWriteTime); 

destFile.Close(); 


SetFileAttributes (StreamFileInfo.szFileTitle, 
StreamFileInfo.dwFileAttributes) ; 

sockClient.Close(); 

AfxMessageBox (" 接 收 完毕 ! ") ; 


通过 上 述 代 码 ， 使 用 Socket 实现 了 客户 端 与 服务 器 端的 文件 传输 工作 。 上 述 代码 比较 


具有 代表 性 ， 当 读者 遇 到 类 似 问题 时 ， 可 以 直接 以 上 述 代码 为 基础 进行 扩充 。 
11.5 具体 实现 


使 用 Visual C++ 开发 一 个 仿 QQ 聊天 系统 


源码 路径 


目标 是 实现 一 个 仿 QQ 聊天 系统 ， 所 以 很 有 必要 首先 了 解 QQ 的 基本 功能 。 我 们 来 看 
如 图 11-8 所 示 的 QQ 的 界面 。 


搜索 联系 人 ， 网 页 信息 和 问 问答 案 p. 
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RE 
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ARR [Fete] 
me LER BREA 298 http:// 


Sagttarus [EREE] 
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好 友 列 表 界 面 聊天 界面 


11-8 QQ 界面 展示 
根据 图 11-8 所 展示 的 界面 ， 概 括 出 QQ 的 主要 功能 包括 : 实时 消息 通信 、 系 统 消 息 广 
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播 和 数据 文件 传输 等 。 为 了 便于 后 期 的 软件 开发 和 维护 ， 需 要 按照 软件 功能 的 开发 模式 进 
行 设计 并 开发 。 
11.5.1 系统 规划 

1. 需求 分 析 

局 域 网 通信 系统 软件 的 运行 环境 为 各 单位 、 公 司 的 局 域 网 系统 ， 主 要 适用 于 单位 系统 
内 部 人 员 的 通信 ， 目 的 在 于 方便 交流 ， 提 高 工作 效率 ， 主 要 功能 包括 :实时 消息 通信 、 系 
统 消息 广播 和 数据 文件 传输 三 大 部 分 。 与 其 他 网 络 应 用 程序 一 样 ， 该 软件 同样 包括 服务 器 
端 程序 和 客户 端 程序 两 大 部 分 ， 如 图 11-9 所 示 。 


服务 器 用 户 1 用 户 2 


图 11-9 ”局 域 网 实时 通信 系统 软件 架构 

2. 总 体 设计 

本 软件 系统 设计 分 为 服务 器 端 应 用 程序 和 客户 端 应 用 程序 两 大 部 分 ， 采 用 WinSock 套 
接 字库 进行 网 络 编程 。 为 了 既 能 有 效 保 证 数据 传输 的 时 效 性 ， 又 能 保证 数据 在 传输 的 过 程 
中 不 会 造成 数据 丢失 ， 采 用 UDP 和 TCP/IP 相 结合 的 连接 方式 。 同 时 ， 采 用 多 线程 技术 来 
避免 程序 阻塞 ， 提 高 响应 效率 。 

(1) 系统 功能 的 工作 流程 

客户 端 与 服务 器 端的 实时 通信 是 本 实例 系统 局 域 网 通信 软件 的 核心 功能 之 一 ， 其 具体 
工作 流程 如 下 所 示 。 

QD 服务 器 端 启动 程序 ， 启 动 监听 端口 (默认 监听 端口 为 6030) 进 入 监听 状态 ， 等 待 客 
户 端的 连接 请 求 。 

@ 客户 端 发 送 连接 请 求 和 相应 的 用 户 信息 。 

图 服务 器 端 接收 用 户 连接 请 求 ， 进 行 用 户 信 息 验证 和 相应 的 请 求 处 理 操作 ， 并 将 处 
理 结果 反馈 给 客户 端 。 如 果 验 证 成 功 ， 则 将 其 好 友信 息 发 送 给 客户 端 ， 并 通知 该 客户 端 启 
动 聊天 信息 接收 线程 。 

© 客户 端 接收 服务 器 端 发 送 过 来 的 好 友信 息 ， 并 启动 聊天 线程 ， 即 可 与 其 他 在 线 用 
户 进行 实时 通信 或 文件 传输 。 

上 述 流程 的 具体 描述 如 图 11-10 所 示 。 

客户 端 之 间 进 行 数据 文件 传输 的 工作 流程 如 下 。 

@ FAP 1 AAP 2 发 出 传送 文件 请 求 ， 并 发 送 文件 相关 信息 等 待 用 户 2 回应 。 

© 用 户 2 收 到 请 求 ， 回 复 用 户 1。 如 果 同 意 接收 ， 启 动 文件 接收 线程 ， 并 通知 用 户 
1 可 以 发 送 文件 了 。 和 否则 ， 通 知 用 户 1 不 接收 。 


‘co : 
[7 CH CAERE 


© ”用户 1 收 到 用 户 2 回复 消息 ， 并 做 出 相应 的 动作 。 开 始 文 件 传输 操作 。 
上 述 流程 的 具体 描述 如 图 11-11 所 示 。 


等 待 客户 端 连接 请 求 


验证 客户 信息 ， 回 复 客户 端 


m " 启动 好 友信 息 接收 线程 ， 等 待 服务 
向 客户 端 发 送 好 友信 息 器 发 送 好 友信 息 


TCP/IP 连接 


启动 聊天 信息 收发 线程 


图 11-10 ”客户 端 与 服务 器 端 实时 通信 工作 的 流程 


启动 文件 接收 线程 


文件 传输 结束 


图 11-11 客户 端 之 间 进行 数据 文件 传输 的 工作 流程 
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Q) 服务 器 端 总 体 设 计 
局 域 网 实时 通信 软件 服务 器 端的 功能 结构 如 图 11-12 所 示 。 


局 域 网 实时 通信 软件 服务 器 端 


用 用 系 
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图 11-12 ”局域网 实时 通信 软件 服务 器 端的 功能 结构 


在 如 图 11-12 所 示 的 功能 结构 中 ， 各 个 功能 的 具体 说 明 如 下 所 示 。 
a ”用 户 信息 管理 模块 ， 主 要 用 来 管理 用 户 信息 ， 包 括 用 户 账号 、 用 户 名 、 密 码 、 用 
P IP 地址 和 在 线 状态 及 其 好 友信 息 。 
o ”用户 请 求 处 理 模块 : 主要 用 来 处 理 客 户 端的 各 种 请 求 信息 ， 包 括 连 接 请 求 和 用 户 
账号 申请 两 部 分 。 
a ”系统 消息 发 送 模块 ， 用 来 向 所 有 在 线 用 户 发 送 系 统 消息 。 
服务 器 端 程序 的 基本 工作 流程 如 下 。 
© 打开 预 设 定 的 网 络 监听 端口 ， 监 听 客 户 端的 信息 请 求 。 
@ 对 登录 请 求 ， 进 行 用 户 账号 和 密码 验证 ， 并 做 出 相应 的 处 理 。 如 果 验 证 成 功 ， 则 
向 客户 端 返回 其 他 用 户 的 信息 (包括 用 户 名 、 在 线 状 态 、 卫 地 址 等 ); 否则 ， 提 示 用 户 登 录 
不 成 功 。 
© 对 于 客户 端的 用 户 账 号 申请 请 求 ， 核 对 用 户 提交 的 信息 ， 并 进行 保存 ， 然 后 把 申 
请 成 功 的 账号 发 送 给 相应 的 用 户 。 
@ 此 外 ， 服 务 器 端 还 可 以 根据 实际 工作 需要 ， 向 所 有 客户 端 发 送 消息 ， 以 及 进行 简 
单 的 远程 控制 操作 ， 以 方便 单位 系统 内 部 重大 消息 、 新 闻 、 通 知 的 实时 发 布 。 
(3) 客户 端 总 体 设计 
局 域 网 实时 通信 软件 客户 端的 功能 结构 如 图 11-13 所 示 。 
在 如 图 11-13 所 示 的 功能 结构 中 各 个 功能 模块 的 具体 说 明 如 下 。 
Qa ”网 络 设置 功能 模块 ， 用 来 设置 实时 通信 软件 客户 端 所 要 连接 的 服务 器 IP 地 址 及 
其 监听 端口 。 
O ”账号 申请 功能 模块 ， 应 对 第 一 次 使 用 本 软件 的 用 户 申请 账号 。 如 果 申 请 成 功 ， 则 
将 返回 客户 端 一 个 系统 内 的 唯一 编号 作为 用 户 以 后 登录 的 身份 标识 。 
口 “ 连接 服务 器 功能 模块 : 使 已 经 获取 了 账号 的 用 户 登录 到 系统 中 ， 以 便 与 其 好 友 进 
行 实时 通信 或 文件 传输 。 
口 “ 实 时 通信 功能 模块 : 针对 已 经 登录 的 用 户 ， 与 其 好 友 进 行 实时 聊天 通信 。 


a “文件 传输 功能 模块 : 针对 已 经 登录 的 用 户 ， 与 其 好 友 进行 网 络 文件 传输 操作 。 


局 域 网 实时 通信 软件 客户 端 


SRR SSR 
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图 11-13 局 域 网 实时 通信 软件 客户 端的 功能 结构 

客户 端的 基本 工作 流程 如 下 。 

QD) 局域网 内 每 个 成 员 下 载 、 安 装 客户 端 软件 后 ， 向 系统 服务 器 申请 一 个 用 户 账 号 并 
设置 密码 。 

@ 以 该 账号 和 密码 登录 系统 ， 就 可 以 与 系统 内 其 他 在 线 用 户 进行 实时 通信 和 网 络 文 
件 传输 。 

3. 文件 概述 

前 写 的 代码 保存 在 光盘 的 “yuanma\7” 文 件 夹 内 ， 包 括 服 务 器 和 客户 端 两 个 部 分 ， 其 
中 服务 器 部 分 主要 实现 的 类 结构 如 图 11-14 所 示 。 

其 中 CChatApp 为 应 用 程序 类 ; CChatDlg 为 应 用 程序 对 话 框 类 ; CSysMsgSendDlg 为 
系统 信息 发 送 对 话 框 类 ，Param 和 UserData 为 保存 套 接 字 和 用 户 信息 的 参数 结构 体 。 

客户 端 部 分 的 主要 实现 类 结构 如 图 11-15 所 示 。 


= *'* CAboutDlg 

= mS CAppldDlg 

* ma CFileSend 

= *'* CInfoDig 

=Œ *'* CLoginDlg 

下 S CMsgDlg 

= ws CQQClientApp 
= mä CQQClientDig 


CAboutDlg 


= HS CSendMs 
+ =A CChatApp = 2 FileRecv ; 
i$ S CChatDlg 下 wd Param 
由 CSysMsgSendDIg = ma ReavDataParam 
"1S Param = S SevParam 
H-S UserData Hm UserData 
= (pg Globals * @ Globals 
图 11-14 ”服务 器 端 主要 实现 的 类 结构 11-15 ”客户 端 主 要 实现 的 类 结构 
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其 中 CAppldDlg 为 登录 对 话 框 类 ; CFileSend 为 文件 发 送 对 话 框 类 ;CInfoDlg 为 信息 
接收 对 话 框 类 ; CMsgDlg 为 信息 接收 发 送 对 话 框 类 ; CQQClientApp 为 客户 端 应 用 程序 
28; CQQClientDlg 为 客户 端 主 对 话 框 类 ; CSendMsg 为 发 送信 息 对 话 框 类 ，FileRecv HX 
件 接收 对 话 框 类 等 。 


11.5.2 ”服务 器 端 编码 

经 过 系统 构成 功能 分 析 后 ， 接 下 来 可 以 根据 各 构成 的 功能 模块 流程 进行 具体 编码 工作 
了 。 此 阶段 需要 完成 两 个 任务 ， 一 是 服务 器 端的 编码 ， 二 是 客户 端的 编码 。 

1. 设计 服务 器 界面 


局 域 网 通信 软件 系统 的 服务 器 端 程序 采用 基于 对 话 框 的 应 用 程序 设计 框架 ， 如 图 11-16 
所 示 为 其 主 界面 。 


图 11-16 服务 器 端 主 界面 
客户 信息 列表 用 来 显示 所 有 系统 注册 用 户 的 基本 信息 ， 包 括 用 户 ID、 用 户 名 、 密 码 、 


IP 地 址 以 及 在 线 状态 等 ， 服 务 器 IP 和 开放 端口 号 用 来 接收 输入 当前 服务 器 的 TP 地 址 和 监 
听 端 口 ， 当 单 击 “开启 服务 器 ”按钮 时 就 可 以 进行 网 络 环境 的 初始 化 ， 当 单 击 “发 送 系统 
信息 ”按钮 时 ， 将 会 弹出 发 送 系统 消息 对 话 框 ， 用 于 向 所 有 在 线 客户 发 送 系 统 消 息 。 

2. 用 户 信息 管理 模块 


此 模块 的 功能 是 要 用 来 管理 用 户 信息 ， 包 括 用 户 账号 、 用 户 名 、 密 码 、 用 户 IP 地 址 和 
当前 是 否 为 在 线 状态 等 。 具 体 功 能 包括 用 户 信 息 的 添加 、 修 改 与 检索 操作 等 。 

(1) 用 户 信 息 结构 体 

为 有 效 地 对 用 户 信息 进 行 管理 ， 定 义 一 个 结构 体 类 型 ， 具 体 代码 如 下 : 


struct UserInfo 11/1111111/ 用 户 信息 结构 体 

{ 
UINT UserID; 1111/11/ 用 户 编号 
Cstring UserName; 111/111/ 用户 名 
UINT Password; 11/11/11 用户 密码 
BOOL bIsOnline; //V//// 是 否 在 线 


Visual C++ CE 


int FriendId[100]; 1111111 APE RSS BA, 
CString UserIP; LUUTRIÜÓP TP 地址 
SOCKET UserSocket; /////VV/ 用 户 对 应 套 接 字 


n 


Q) 获取 用 户 信息 

局 域 网 实时 通信 系统 软件 需要 在 服务 器 端 启动 时 自动 读 取 用 户 信息 数据 文件 ， 并 在 | 
户 信 息 列表 中 显示 所 有 用 户 信息 。 因 为 本 系统 所 要 管理 的 用 户 数 量 比较 少 ， 所 以 采用 文本 
文件 来 保存 用 户 信息 ， 默 认 情 况 下 ， 系 统 自 定义 用 户 信息 文件 为 userdata.dat 文本 文件 ， 在 
实际 应 用 程序 开发 过 程 中 ， 开 发 人 员 最 好 选择 一 个 数据 库 管 理 系统 软件 来 对 用 户 信息 进行 
管理 。 

获取 用 户 信息 的 具体 实现 代码 如 下 : 

void CChatD1g: :OnBtnStartSev () 

t 


CFile file; 
char *ch; 
file.Open("userdata.dat", CFile::modeRead); /////////3IJEH P TRSN 
int length - file.GetLength(); 
ch = new char[length]; 
file.Read(ch, length); 
file.Close(); 
CString str - ch; 
CString temp2, temp3; 
CString Usertemp; 
UserNum = 0; 
int i, j=0; 
i = str.Find("#"); 
while(i != -1) 
{ 
temp2 = str.Left (i); 
str = str.Right (str.GetLength()-i-1); 
i = temp2.Find("@"); 
temp3 = temp2.Left (i); 
temp2 = temp2.Right (temp2.GetLength ()-i-1); 
Pfrienddata[j].code = atoi(temp3) ; // 获 取 用 户 密码 
i = temp2.Find("@"); 
temp3 = temp2.Left (i); 
temp2 = temp2.Right (temp2.GetLength()-i-1); 
Pfrienddata[j].id = atoi (temp3) ; // 获 取 用 户 ID 
i = temp2.Find("@"); 
temp3 = temp2.Left (i); 
temp2 = temp2.Right (temp2.GetLength ()-i-1); 


Pfrienddata[j].Name = temp3; // 获 取 用 户 姓名 
Pfrienddata[j].IsOnline = 0; // 用 户 是 否 当 前 在 线 的 状态 
Pfrienddata[j].ip = "未 知 IP"; // 用 户 IP 

i = str.Find("#"); 

je 

UserNum++; 


} 
m UserNum = UserNum; 
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for(j20; j«15; j++) 
Pfrienddata[j].m socket = socket(AF INET, SOCK STREAM, 0); 
CString disptemp; 
for(j-0; j«UserNum; j++) ///V//// 在 用 户 信息 列表 中 显示 所 有 用 户 信息 
t 
disptemp.Format("$d", Pfrienddata[j].id); 
m list.InsertItem(j, disptemp); 
disptemp.Format("$s", Pfrienddata[j].Name); 
m list.SetItemText(j, 1, disptemp); 
disptemp.Format ("$d", Pfrienddata[j] .code) ; 
m list.SetItemText(j, 2, disptemp) ; 
disptemp.Format("$s", Pfrienddata[j].ip); 
m list.SetItemText (j, 3, disptemp); 
if(Pfrienddata[j].IsOnline == 1) 
disptemp = "在 线 "; 
else 
disptemp = "HA"; 
m list.SetItemText(j, 4, disptemp) ; 
} 
CWnd *pWnd = GetDlgItem(IDC BTN START SEV); 
pWnd->ShowWindow (SW_HIDE) ; 
pWnd = GetDlgItem(IDC BUTTON SEND); 
pWnd->ShowWindow (SW SHOW); 
UpdateData (FALSE) ; 
} 


(3) 更 新 处 理 用 户 信息 

在 服务 器 运行 过 程 中 ， 需 要 定时 探测 所 有 用 户 的 运行 状态 ， 更 新 用 户 信息 列表 ， 并 向 
在 线 用 户 发 送 其 好 友信 息 ， 这 一 功能 主要 是 通过 定时 器 消息 响应 函数 来 实现 的 。 更 新 处 理 
用 户 信 息 的 具体 实现 代码 如 下 : 


void CChatDlg::OnTimer(UINT nIDEvent) 
////// 用 户 信息 更 新 处 理 功能 ， 通 过 定时 器 消息 响应 函数 来 定期 更 新 
t 
CString temp; 
int j; 
m DataStr.Empty(); 
m DataStr.Format ("%d*", UserNum) ; 
for (j=0; j«UserNum; j++) 
{ 
temp. Format ("Sd@sd@%s@sd@ss@¥", Pfrienddata[j] .code, 
Pfrienddata[j].id, Pfrienddata[j] .Name, 
Pfrienddata[j].IsOnline, Pfrienddata[jl.ip); 
m DataStr += temp; 
} 
int SocketResult, i; 
for (i=0; i<UserNum; i++) 
{ 
if (Pfrienddata[i].IsOnline == 1) 
{ 
A11111111/ 向 用 户 发 送 其 好 友信 息 


SocketResult = send(Pfrienddata[i].m socket, 
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m DataStr, m DataStr.GetLength(), 0); 
/A11111111/ 如 果 失 败 ， 则 更 新 好 友 状 态 信息 
if(SocketResult == SOCKET ERROR) 


{ 


Pfrienddata[i].IsOnline = 0; 

closesocket (Pfrienddata[i].m socket); 

Pfrienddata[i].m socket = socket(AF INET, SOCK STREAM, 0); 
Pfrienddata[i].ip = "KAIP"; 


} 
} 
CString disptemp; 
m OnlineNum = 0; 
for(j=0; j«UserNum; j++) 
m_list.DeleteItem (0) ; 


for(j=0; j«UserNum; j++) 1111111111/ 更 新 好 友信 息 列表 
{ 

disptemp .Format ("%d", Pfrienddata[j].id); 

m list.InsertItem(j, disptemp); 

disptemp.Format ("$s", Pfrienddata[j].Name); 

m list.SetItemText(j, 1, disptemp) ; 

disptemp.Format ("%d", Pfrienddata[j] .code) ; 

m list.SetItemText(j, 2, disptemp) ; 

disptemp.Format("$s", Pfrienddata[j].ip); 

m list.SetItemText(j, 3, disptemp); 


if(Pfrienddata[j].IsOnline == 1) 
t 

disptemp = "在 线 "; 

m OnlineNum++; 


} 
else 
disptemp = "离线 "; 
m list.SetItemText(j, 4, disptemp) ; 


} 

m UserNum = UserNum; 

UpdateData (FALSE) ; 

CDialog: :OnTimer (nIDEvent) ; 
} 


3. 客户 端 请 求 信息 处 理 

服务 端的 主要 运行 任务 就 是 实时 监听 、 接 收 客户 端的 用 户 请 求 ， 并 对 请 求 信息 进行 相 
应 的 处 理 。 具 体 流程 是 ， 当 用 户 请 求 监听 线程 函数 收 到 数据 后 ， 向 服务 器 主 对 话 框 发 送 
WM RECVDATA 消息 ; 然后 ， 通 过 消息 响应 函数 进行 处 理 。 

(1) 监听 客户 端 请 求 的 用 户 界面 线程 函数 

服务 器 的 最 主要 的 运行 任务 就 是 实时 监听 客户 端的 请 求 。 为 了 有 效 地 监测 用 户 请 求 ， 
系统 为 服务 器 增加 一 个 接收 客户 请 求 的 用 户 界面 线程 函数 RecvProc0， 专 门 用 来 监听 客户 
端 请 求 ， 当 接收 到 数据 时 ， 利 用 其 消息 循环 机 制 ， 向 服务 器 发 送 WM RECVDATA 消息 。 
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函数 RecvProc0O 的 实现 代码 如 下 : 


/111111111/ 用 户 界面 线程 函数 RecvProc 专门 用 来 监听 客户 请 求 ， 
A11111111171 当 收 到 请 求 数据 时 ， 向 服务 嚣 发送 WM RECVDATA 消息 
DWORD CChatDlg::RecvProc(LPVOID lpParameter) 
t 
HWND hwnd = ((Param*) 1pParameter) —>hwnd; 
SOCKET socket = ((Param*)lpParameter)-»socket; 
char buf[200]; 
SOCKADDR IN CliAddr; 
int len = sizeof (SOCKADDR IN); 
int Result; 
while (TRUE) 11/111/ 一 直 处 于 监听 状态 
{ 
A111111111 接 收 数据 
Result = recvfrom(socket, buf, 100, 0, (sockaddr*)&CliAddr, &len); 
if (Result == SOCKET_ERROR) 
{ 
::MessageBox (NULL, "Socket ERROR!", "", MB OK); 
break; 
) 
buf[strlen (buf)+1] = '/0'; 
/1111111/ 向 服务 器 对 话 框 发 送 WM_RECVDATA 消息 
: :PostMessage (hwnd, WM RECVDATA, (WPARAM) &CliAddr, (LPARAM)buf); 
} 
return 0; 
} 


Q) 自 定义 消息 WM. RECVDATA 响应 函数 

用 户 请 求 主要 包括 账号 申请 和 连接 请 求 两 大 类 。 对 账号 申请 信息 ， 服 务 器 首先 对 申请 
信息 进行 验证 ， 如 果 验 证 通过 ， 则 系统 为 该 用 户 生成 一 个 用 户 账 号 ， 并 发 送 给 客户 端 ， 如 
果 验 证 不 通过 ， 则 返回 提示 信息 。 对 于 连接 请 求 ， 服 务 器 首先 对 客户 端 进行 用 户 账号 、 密 
码 验 证 ;如 果 验 证 通过 ， 则 发 送 成 功 信 息 ， 并 将 用 户 的 好 友信 息 一 并 发 送 给 客户 端 ， 如果 
验证 未 通过 ， 则 返回 提示 信息 。 函 数 OnRecvData0 的 具体 实现 代码 如 下 : 

/1111117/ 自 定义 消息 WM_RECVDATA 的 响应 函数 ， 用 来 解析 处 理 客户 端 发 送 来 的 信息 


void CChatDlg::OnRecvData(WPARAM wParam, LPARAM lParam) 
t 


SOCKADDR IN SevAddr = *((SOCKADDR IN*)wParam);  ///////IP Wht 
SevAddr.sin family = AF INET; 

SevAddr.sin port = htons (4000); 

// MessageBox(inet ntoa(SevAddr.sin addr)); 
SOCKET m socketl = socket(AF INET, SOCK DGRAM, 0); 
CString str = (char*)lParam; 

//MessageBox (str); 

int i = str.Find("#", 0); 

UINT msgType; 

msgType = atoi(str.Left(i)); 

str = str.Right (str.GetLength()-i-1); 

CString temp; 

UINT id; 


$ 


UINT code; 

BOOL IsYes; 

UINT portl, port2, port3; 
int j, Num, n-0; 

char buf[10]; 


switch (msgType) 111111141 msgType 表示 用 户 请 求 类 别 
{ 

/11/1111111/ 用 户 连接 请 求 处 理 

/111111111/ 解 析 消 息 发 送 的 参数 ， 获 取 客 户 端 有 关 信息 

case 1: 


3 —'stp.Find(787, 0); 
id = atoi(str.Left(i)); 
str = str.Right (str.GetLength()-i-1); 
i = tr Find ("#", 0);7 
code = atoi (str.Left (i)); 
str = str.Right (str.GetLength()-i-1); 
i = str.Find("#", 0); 
portl = atoi(str.Left(i)); 
str = str.Right (str.GetLength()-i-1); 
i = str.Find("#", 0); 
port2 = atoi(str.Left(i)); 
str = str.Right (str.GetLength()-i-1); 
i = str.Find("#", 0); 
port3 = atoi(str.Left(i)); 
str = str.Right (str.GetLength()-i-1); 
IsYes = FALSE; 
int Result; 
/11/11111/ 遍 历 查 找 相 应 的 客户 
for (j=0; j«UserNum; j++) 
{ 
if(Pfrienddata[j].code--code && Pfrienddata[j].id--id) 
t 
Pfrienddata[j].IsOnline - 1; 
Pfrienddata[j].ip = inet ntoa(SevAddr.sin addr); 
Pfrienddata[j].RecvMsgPort = port3; 
Num = j; 
SevAddr.sin port = htons (port1); 
Result = connect (Pfrienddata[j].m socket, 
(sockaddr*) &SevAddr, sizeof (SOCKADDR)); 
while (Result==SOCKET ERROR && n<3) 
{ 
Result = connect (Pfrienddata[j].m socket, 
(sockaddr*) &SevAddr, sizeof (SOCKADDR) ) ; 
n++; 
} 
IsYes = TRUE; 
sprintf (buf, "1@%d", UserNum) ; 
if (Result == SOCKET ERROR) 
sprintf (buf, "2@3"); 
break; 


Sus 


break; 


L111111111// 用 户 申请 账号 请 求 处 理 


case 2: 


// MessageBox ("用 户 注册 ") ; 
1 — Str rand (mem. ON 
Pfrienddata[UserNum] .Name = str.Left(i); 
str = str.Right (str.GetLength()-i-1); 
i = str.Find("#", 0); 
Pfrienddata[UserNum] .code = atoi(str.Left (i)); 
str = str.Right (str.GetLength()-i-1); 
1 = SER Ean (et 0) ir 
portl = atoi(str.Left(i)); 
str = str.Right (str.GetLength()-i-1); 
i = str.Find("#", 0); 
port2 = atoi(str.Left(i)); 
str = str.Right (str.GetLength()-i-1); 
i = str.Find("#", 0); 
port3 = atoi(str.Left(i)); 
str = str.Right (str.GetLength()-i-1); 
Pfrienddata[UserNum] .id = 1000 + UserNum; 
Pfrienddata[UserNum] . IsOnline = 1; 
Pfrienddata[UserNum] .RecvMsgPort = port3; 
Pfrienddata[UserNum] .ip = inet ntoa(SevAddr.sin addr); 
SevAddr.sin port = htons (port1) ; 
Result = connect (Pfrienddata[UserNum] .m socket, 
(sockaddr*) &SevAddr, sizeof (SOCKADDR)); 
while (Result==SOCKET ERROR && n<3) 
{ 
Result = connect (Pfrienddata[UserNum].m socket, 
(sockaddr*) &SevAddr, sizeof (SOCKADDR) ) ; 
n++; 
} 
IsYes = TRUE; 
Num = UserNum; 
sprintf (buf, "3@%d", 1000+UserNum) ; 
if (Result == SOCKET ERROR) 
sprintf (buf, "2@3"); 
UserNum++; 
break; 


} 

/////// 更 新 用 户 信息 列表 

m DataStr.Empty(); 

m DataStr.Format("$d*", UserNum); 
for (j=0; j«(int)UserNum; j++) 


t 


} 


temp . Format ("Sd@sd@%s@sd@ss@%d@¥", Pfrienddata[j] .code, 
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Pfrienddata[j].id, Pfrienddata[j].Name, Pfrienddata[j].IsOnline, 


Pfrienddata[jl.ip, Pfrienddata[j].RecvMsgPort); 
m DataStr 4— temp; 


if (msgType == 2) 


f 


CString FileStr; 
for (j=0; j«UserNum; j++) 
t 


temp.Format ("Sd@%d@%s%@#", Pfrienddata[j].code, 
Pfrienddata[jl.id, Pfrienddata[j].Name); 
Filestr += temp; 


} 
// 将 新 注册 用 户 信息 写 入 文件 
CFile file; 
file.Open("userdata.dat", CFile::modeWrite); 
file.Write(FileStr, FileStr.GetLength()); 
file.Close(); 
) 
SevAddr.sin port = htons (port2); 
if (IsYes) 
t 
int Result = sendto(m socketl, buf, 100, 0, 
(SOCKADDR*)&SevAddr, sizeof (SOCKADDR)); 
CString str = m DataStr; 
anb 
int SocketResult; 
for(i-0; i«UserNum; i++) 
if(Pfrienddata[i].IsOnline == 1) 
t 
SocketResult = 


send(Pfrienddata[i].m socket, str, str.GetLength(), 0) 


if(SocketResult == SOCKET ERROR) 
t 
Pfrienddata[i].IsOnline - 0; 
Pfrienddata[i].ip = "未 知 IP"; 


} 
else 
{ 
sprintf (buf, "2@3"); 
sendto(m socketl, buf, 100, 0, 
(SOCKADDR*) &SevAddr, sizeof (SOCKADDR) ) ; 


4. 系统 群 消息 发 送 功能 


为 方便 系统 内 


// 发 送 系 统 信息 
void CChatD1g: :OnButtonSend () 


$ 


CSysMsgSendDlg dlg; 
CString str; 
Tine ae 


; 


消息 的 发 送 ， 需 要 在 项 目 中 增加 群 消息 发 送 功能 ， 用 来 向 所 有 在 线 
户 发 送 系 统 信息 。 此 功能 是 通过 函数 OnButtonSend0 〇 实现 的 ， 具 体 代码 如 下 : 
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str.Format ("$d*", 200); 
/////// 弹 出 发 送 系统 消息 对 话 杠 
if(dlg.DoModal() == IDOK) 
t 
str += dlg.m msg; 
str += "$"; 
Hd ADAP fe RE 
for(i-0; i«UserNum; i++) 
t 
// 如 果 当 前 用 户 在 线 ， 则 发 送 系统 信息 
if(Pfrienddata[i].IsOnline — 1) 
{ 
send(Pfrienddata[i].m socket, str, str.GetLength(), 0); 
) 


) 
) 


到 此 为 止 ， 整 个 服务 器 端的 编码 工作 结束 。 接 下 来 需要 完成 客户 端的 编码 工作 。 


11.5.3 ”客户 端 编码 


从 本 节 开 始 讲解 客户 端的 编码 工作 。 作 为 局 域 网 实时 通信 软件 的 客户 端 程序 ， 是 系统 
内 每 个 用 户 的 主要 交互 界面 ， 为 系统 的 每 个 用 户 提供 了 进行 信息 交流 、 文 件 传输 和 群 消息 
接受 的 操作 。 

1. 设计 客户 端 界面 

(1) 客户 端 主 界面 

客户 端 程序 同样 采用 基于 对 话 框 的 应 用 程序 开发 框架 ， 如 图 11-17 所 示 。 

(2) 客户 端 登录 界面 

在 利用 客户 端 进 行 实 时 通信 前 ， 用 户 必须 首先 登录 到 系统 。 用 户 登录 界面 的 主要 功能 
包括 系统 网 络 设置 、 用 户 账号 申请 和 用 户 登录 。 

中 ”网络 设置 

网 络 设置 功能 模块 主要 是 用 来 设置 实时 通信 软件 的 服务 器 端 瑟 地 址 与 监听 端口 ， 以 便 
客户 端 程序 能 够 正确 地 连接 到 服务 器 。 而 且 ， 我 们 不 希望 每 次 系统 启动 都 要 重新 设置 服务 
器 端的 IP 地 址 与 监听 端口 ， 而 是 把 相关 信息 保存 下 来 ， 只 有 服务 器 信息 改变 时 才 重 新 进行 
设置 ， 即 把 主 界面 对 话 框 作 为 可 伸展 对 话 框 ， 默 认 情况 下 ， 直 接 显 示 主 界面 ， 只 有 在 用 户 
需要 时 伸展 出 网 络 设置 界面 ， 如 图 11-18 所 示 。 

对 应 的 实现 代码 如 下 

void CInfoD1g: :OnBtnNetset () 

// TODO: Add your control notification handler code here 

if(IsExplore) HILL | RR s 
{ 


m strrc.bottom -= 150; 
IsExplore = FALSE; 


À 
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else 
t 
m strrc.bottom += 150; 
IsExplore — TRUE; 
} 
SetWindowRect () ; /11/1/17/ 调 用 伸缩 功能 实现 函数 


E AAP io: 

: | ae. 

] 

1 

j| 388. Fac 
L 


图 11-17 客户 端 程序 运行 主 界面 11-18 ”显示 服务 器 设置 的 登录 界面 
函数 SetWindowRect() 实 现 伸 缩 功 能 ， 具 体 代码 如 下 : 


void CInfoD1g: :SetWindowRect () 
{ 
SetWindowPos (NULL, m strrc.left, m strrc.top, m strrc.Width(), 
m strrc.Height(), SWP NOMOVE|SWP SHOWWINDOW) ; 
} 


Q 申请 账号 

账号 申请 功能 模块 主要 应 对 第 一 次 使 用 本 软件 的 用 户 申请 账号 。 如 果 申 请 成 功 ， 将 返 
客户 端 一 个 系统 内 的 唯一 编号 ， 作 为 用 户 以 后 登录 系统 的 身份 标识 。 

具体 实现 思路 为 ， 当 用 户 单 击 主 界面 上 的 “申请 账号 按钮 ”时 ， 弹 出 “账号 申请 ”对 


话 框 ， 用 户 在 此 填写 基本 信息 ， 提 交 系 统 服务 器 ， 服 务 器 进行 处 理 ， 并 把 处 理 结果 返回 给 
客户 端 。 如 果 处 理 成 功 ， 则 用 户 获 取 用 户 账号 ， 作 为 以 后 登录 系统 的 标识 。 


用 户 账 号 申请 是 通过 向 服务 器 发 送 相应 的 消息 来 实现 的 ， 而 实际 的 用 户 处 理 过 程 在 服 


务 器 端 已 经 进行 了 详细 说 明 。 申 请 账号 功能 的 具体 实现 代码 如 下 : 


void CInfoD1g::OnUserapp () 
t 
// TODO: Add your control notification handler code here 
CAppIdDlg dlg; 
if(dlg.DoModal() == IDOK) 
t 
msgType = 2; 
msg.Format ("sd#%s@%d", msgType, dlg.m username, dlg.m usercode); 
m id = 0; 
m code = 0; 
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UpdateData (FALSE); 


} 


© 连接 服务 器 
连接 服务 器 功能 模块 的 功能 是 ， 用 已 经 获取 的 账号 进行 系统 登录 ， 以 便 与 其 好 友 进 行 
实时 通信 或 文件 传输 。 有 具体 实现 代码 如 下 : 


void CInfoD1g: :OnOK () 
t 
// TODO: Add extra validation here 
((CIPAddressCtrl*)GetDlgItem(IDC IPADDRESS))-»GetAddress (ip); 
if(msgType -- 1) 
t 
UpdateData () ; 
msg.Format ("sd#%d@%d", msgType, m id, m code); 
} 
CDialog::OnOK(); 
} 


2. 基本 信息 与 消息 设计 
为 了 编程 的 方便 ， 我 们 需要 定义 一 组 消息 和 常用 数据 结构 体 ， 具 体内 容 如 下 。 
(1) 定义 主要 的 消息 变量 ， 具 体 代码 如 下 


#define WM MSGRECV WM USER+1 // 接 收 好 友 发 送 的 信息 
#define WM SEVMSG WM USER+2 // 接 收服 务 器 发 送信 息 
#define WM NOTIFYICONMSG WM USER+3 // 托 各 消息 ， 实 现 程 序 最 小 化 
#define WM RECVFRIENDDATA WM USER+4 // 接 收服 务 器 发 来 的 好 友信 息 
#define WM SENDFILE WM USER*5 // 发 送 文件 


至 于 消息 响应 函数 的 具体 实现 ， 将 在 后 面 内 容 中 结合 具体 功能 详细 说 明 。 
(2) 定义 用 户 信息 结构 体 UserImnfo， 有 具体 代码 如 下 : 


struct UserInfo /V///// 用 户 信息 结构 体 

{ 
UINT UserID; /1/11111/ 用 户 编号 
Cstring UserName; 1111111 APR 
UINT Password; /11/1111 用 户 密码 
BOOL bIsOnline; /////// 是 否 在 线 
int FriendId[100]; 111/111/ 用 户 好 友 编 号 数组 
Cstring UserIP; 111111/ 用 户 IP 地址 
SOCKET UserSocket; 1111111 AP REF 


MF 

3. 线程 函数 的 设计 与 实现 

为 提高 系统 响应 效率 ， 客 户 端 程序 采用 多 线程 技术 进行 处 理 ， 因 此 需要 定义 以 下 几 个 
线程 函数 ， 并 在 系统 启动 时 创建 这 些 线程 。 

(1) 定义 主要 的 线程 函数 如 下 : 

/A1111111111111 请 求 连接 服务 器 
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static DWORD WINAPI SevConProc(LPVOID lpParameter); 
/11111111111111 接 收 好 友 发 来 的 信息 函数 

static DWORD WINAPI RecMsgProc (LPVOID lpParameter); 
/11111111111111 接 收 好 友信 息 和 服务 器 信息 

static DWORD WINAPI RecvFriendData(LPVOID lpParameter); 


(2) 定义 线程 函数 参数 结构 体 ， 具 体 代码 如 下 : 
A1111111111 接 收 好 友 客 户 端 发 来 信息 的 线程 的 参数 结构 体 


struct Param 
{ 
HWND hwnd; 
SOCKET m socket; 
BE 


//////// 连 接 服务 器 线程 的 参数 结构 体 
struct SevParam 
t 
SOCKET m socket; 
CString str; 
SOCKADDR IN addr; 
HWND hwnd; 
}; 


A1111111111 接 收 好 友信 息 线程 的 参数 结构 体 
struct ReavDataParam 
ü 
SOCKET m socket; 
SOCKADDR IN addr; 
HWND hwnd; 
到 


(3) 创建 添加 功能 线程 。 
在 客户 端的 OnCreate0 函 数 中 ， 创 建 、 添 加 各 具体 功能 线程 ， 这 些 线程 均 为 用 户 界面 
线程 ， 能 够 发 送 消 息 。 具 体 代码 如 下 : 


int CQQClientDlg: :OnCreate (LPCREATESTRUCT lpCreateStruct) 
{ 
m msg = me.Name + "Q"; 
m sevSocket = socket (AF INET, SOCK DGRAM, 0); 
if(m sevSocket == INVALID SOCKET) 
t 
MessageBox (" 连 接 服务 器 套 接 字 创 建 失败 !") ; 
return FALSE; 
} 
m_SendToAddr.sin_family = AF_INET; 
m SendToAddr.sin port = htons (6006); 
CInfoDlg dlgl; // 登 录 窗 口 
if(IDOK == dlgl.DoModal()) 
t 
// 获取 用 户 资料 并 连接 服务 器 
CString str; 
LUMmIbIUIALULHL BEELER VIEL LL LL LL | 3,0414 
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dataRecvSocket = socket(AF INET, SOCK STREAM, 0); 
HUMILLIME MM Nd 
InitSocket(); // 初 始 接收 套 接 字 
ReavDataParam *param; 
param = new ReavDataParam; 
param-»hwnd - m hWnd; 
param-»m socket = dataRecvSocket; 
param-»addr = AddrMsgSend; 
HANDLE handle5; 
/AAAAAAAAAAAAV 创 建 并 启动 接收 好 友信 息 线程 
handle5 = 
CreateThread(NULL, 0, RecvFriendData, (LPVOID)param, 0, NULL); 
CloseHandle (handle5); 
HL Ml lH HP P Pg ATT 
SevParam *sevparam = new SevParam; 
Sevparam-»m socket = m sevSocket; 
//sevparam-»str = str; 
Sevparam-»addr = m AddrSev; 
sevparam-»hwnd = m hWnd; 
HU HT Un g 4) HL SEH ADEN AE 
HANDLE handle2 = 
CreateThread (NULL, 0, SevConProc, (LPVOID)sevparam, 0, NULL); 
CloseHandle (handle2) ; 
CLoginDlg dlg; 
dlg.DoModal () ; 
SetTimer(2, 15000, NULL); 
me.code - dlgl.m code; 
me.id = dlgl.m id; 
m AddrSev.sin addr.S un.S addr = htonl(dlgl.ip); 
m AddrSev.sin port = htons(dlgl.m nPort); 
m AddrSev.sin family = AF INET; 
str - dlgl.msg; // 获 取 用 户 输入 信息 
CString tempstr; 
tempstr.Format ( 
"$$di$d£$d$", FriendDataPort, SevMsgPort, RecvMsgPort); 
str += tempstr; 
sendto(m sevSocket, str, 100, 0, 
(sockaddr*)&m AddrSev, sizeof (SOCKADDR)); 
// 向 服务 器 发 送 连接 请 求 
} 
else // 用 户 取消 退出 程序 
t 
this-»PostMessage (WM CLOSE); 
} 
m_sendSocket = socket (AF_INET, SOCK DGRAM, 0); 
if (m_sendSocket == INVALID SOCKET) 
{ 
MessageBox (" 发 送 套 接 字 创建 失败 !") ; 
return FALSE; 
} 
Param *lparam = new Param; 
lparam-»hwnd = m hWnd; 


lparam-»m socket = m listenSocket; 
L1111111111111111111/ 创 建 并 启动 接收 服务 器 信息 线程 
HANDLE handle = 

::CreateThread (NULL, 0, RecMsgProc, (LPVOID) lparam, 0, NULL); 
CloseHandle (handle); 
HMM MTM ML MIHI DS AMAA ATTA 
if (CDialog::OnCreate(lpCreateStruct) == -1) 

return -17 

return 0; 


) 


(4) 各 功能 线程 的 具体 实现 。 

(D ”实现 SevConProc0 线 程 函数 

SevConProc() 线 程 函 数 用 来 与 服务 器 建立 连接 ， 即 发 送 连接 请 求 ， 具 体 代 码 如 下 : 
DWORD CQQClientDlg::SevConProc(LPVOID lpParamter) 

t 


//CString str = ((SevParam*)lpParamter)-»str; 
SOCKET m socket — 
((SevParam*)lpParamter)-»m socket; //(AF INET, SOCK DGRAM, 0); 

SOCKADDR IN addr = ((SevParam*)lpParamter)-»addr; 
HWND hwnd = ((SevParam*)lpParamter)-»hwnd; 
char buf [30]; 
SOCKADDR IN AddrMsgSend; 
int len = sizeof (SOCKADDR); 
int result; 
while (1) 
t 

resolt = 

recvfrom(m socket, buf, 30, 0, (sockaddr*)&AddrMsgSend, &len); 
if(result !- SOCKET ERROR) 
break; 

// ::MessageBox(NULL, buf, 0, MB OK); 

HL 4/83X WM. SEVMSG 消息 

::SendMessage (hwnd, WM SEVMSG, 0, (LPARAM) &buf) ; 
} 
return 0; 

} 


@ 实现 RecMsgProc0 线 程 函数 
RecMsgProc() 线 程 函数 用 来 接收 好 友 客 户 端 发 送 来 的 信息 ， 具 体 代码 如 下 : 


DWORD CQQClientDlg: :RecMsgProc (LPVOID lpParameter) 
{ 
HWND hwnd = ((Param*) 1pParameter) —>hwnd; 
SOCKET m socket = ((Param*)lpParameter)-»m socket; 
char buf[200]; 
SOCKADDR IN CliAddr; 
int len = sizeof(SOCKADDR IN); 
int Result; 
while (TRUE) 
t 
Result = recvfrom(m socket, buf, 100, 0, (sockaddr*) &CliAddr, &len); 
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if(Result == SOCKET ERROR) 


t 
::MessageBox(NULL, "Socket ERROR!", "", MB OK); 


break; 


} 
1111111111111111111 发 送 WM MSGRECV 消息 
: :PostMessage (hwnd, WM MSGRECV, (WPARAM)&CliAddr, (LPARAM)buf); 
} 
return 0; 
d 


@ 实现 RecvFriendData()2 FE PA 2X 
RecvFriendData0) 线 程 函数 用 来 接收 服务 器 端 发 送 来 的 好 友信 息 ， 有 具体 代码 如 下 : 


DWORD CQQc1lientD1g: :RecvFriendData(LPVOID lpParameter) 
t 
// 提 取 参 数 
HWND hwnd = ((ReavDataParam*)lpParameter)-»hwnd; 
SOCKET dataRecvSocketl = ((ReavDataParam*)lpParameter)-»m socket; 
SOCKADDR IN AddrMsgSendl = ((ReavDataParam*)lpParameter)-»addr; 
int Result; 
SOCKADDR IN SevAddr; 
int len = sizeof(SOCKADDR); 
listen(dataRecvSocketl, 5); 
char buf[500]; 
SOCKET conSocket; 
conSocket = accept (dataRecvSocketl, (sockaddr*)&SevAddr, &len); 
///// 接 收服 务 器 发 来 的 信息 
while (TRUE) 
t 
Result - recv(conSocket, buf, 500, 0); 
if(Result == SOCKET ERROR) 
break; 
Lad LL PRX WM. RECVERIENDDATA 消息 
::PostMessage (hwnd, WM RECVFRIENDDATA, 0, (LPARAM)buf); 
} 
: :MessageBox (NULL, "与 服务 器 连接 失败 !\n\r 好 友信 息 不 能 更 新 ", "服务 器 信息 ", MB_OK) 7 
return 0; 
5 


4. 与 服务 器 端的 交互 功能 

客户 端的 功能 都 是 通过 功能 线程 向 客户 端 主 对 话 框 发 送 响应 的 消息 ， 并 在 客户 端 进行 
消息 响应 实现 的 。 客 户 端 与 服务 器 端 交 互 主 要 实现 如 下 两 个 功能 : 

口 “ 接 收服 务 器 发 送 回来 的 用 户 请 求 响应 信息 ， 并 进行 响应 的 处 理 。 

a “接收 服务 器 端 发 送 回来 的 好 友信 息 ， 并 进行 响应 处 理 。 

接 下 来 将 分 别 介绍 上 述 两 个 功能 的 具体 实现 过 程 。 

(1) 服务 器 返回 用 户 请 求 处 理 信 息 的 消息 响应 

服务 器 对 用 户 的 连接 请 求 和 申请 账号 请 求 ， 都 会 返回 响应 的 处 理 信 息 ， 通 过 解析 这 些 
信息 ， 可 以 确定 客户 端 下 一 步 的 具体 工作 内 容 。 实 际 实现 过 程 中 ， 我 们 是 通过 OnSevMsg 


Visual C+ CEERD 


的 消息 响应 来 实现 的 。 具 体 代码 如 下 : 


/////// 处 理 服务 器 返回 信息 
void CQQClientDlg: :OnSevMsg (WPARAM wParam, LPARAM lParam) 
i! 
// 获 取 服务 器 返回 的 字符 串 
CString temp = (char*)lParam; 
int i = temp.Find("Q"); 
CString Id = temp.Left (i); 
CString temp2 = temp.Right (temp.GetLength()-i-1); 
// 获 取 服务 器 返回 的 信息 类 型 
UINT MsgType = atoi (Id); 
CString msgStr; 
: :sndPlaySound ("MyQQData\\system.wav", SND FILENAME|SND SYNC); 
switch (MsgType) 


{ 
// 登 录 成 功 
case ls 
MessageBox ("欢迎 使 用 ! \n\r 已 成 功 登录 !"，" 登 录 成 功 !") ; 
KillTimer(2); 
KillTimer(1); 
break; 


// 登 录 失 败 
case 2: 
MessageBox ("密码 错误 或 用 户 不 存在 !"，" 认 证 失败 !1") ; 
// 服 务 器 认证 失败 
KillTimer (2); 
break; 


// 申 请 号 码 成 功 
case 3: 
msgStr.Format ("申请 号 码 成 功 !\n\r 您 的 号 码 为 :sd"，atoi (temp2) ) 7 
MessageBox (msgStr， "恭喜 !") 7 
me.id = atoi(temp2); 
KillTimer (2); 
KillTimer(1); 
break; 


// 服 务 器 没有 回应 此 信息 由 Timer 发 出 
case 4: 
MessageBox (temp2，" 重 试 "); 
break; 
default: 
break; 


} 

} 

(2) 服务 器 返回 好 友信 息 的 消息 响应 

与 服务 器 的 实时 通信 ， 主 要 是 用 来 接收 服务 器 端 发 送 过 来 的 本 用 户 账号 的 好 友信 息 以 
及 系统 群 消 息 。 此 功能 通过 前 面 所 定义 的 #define WM RECVFRIENDDATA WM USER+4 
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消息 响应 来 完成 。 具 体 实 现代 码 如 下 : 


11111111 [8 RECVERIENDDATA 信息 响应 函数 ( 自 定义 消息 WM RECVFRIENDDATA) 
void CQOClientDlg::OnRecvFriendData (WPARAM wParam, LPARAM lParam) 
{ 
CString str = (char*)lParam; 
// MessageBox (str); 
int 2 = str Fina("*" 20) 
UINT MsgType = atoi (str.Left (x)); 
str = str.Right (str.GetLength()-x-1); 
/1/1/1171/ 用 户 好 友信 息 
if (MsgType < 100) 
t 
if(Pfrienddata != NULL) 
delete []Pfrienddata; 
friendCount = MsgType; 
Pfrienddata = new UserData[friendCount]; 
m listUser.ResetContent () ; 
inti; 
int friendNum = 0; 
CString temp2, temp3; 
CString Usertemp; 
UserData tempdata; 
CRANES A LLL LL PB gU LL MP Mg UL Bg gal 
for(int j=0; j«friendCount; j++) 
{ 
i = str.Find("#"); 
temp2 = str.Left (i); 
str = str.Right (str.GetLength()-i-1); 
i = temp2.Find("@"); 
temp3 = temp2.Left (i); 
temp2 = temp2.Right (temp2.GetLength()-i-1); 
tempdata.code = atoi(temp3); //1 
i = temp2.Find("@") ; 
temp3 = temp2.Left (i); 
temp2 = temp2.Right (temp2.GetLength()-i-1); 
tempdata.id = atoi(temp3); //2 
i = temp2.Find("@"); 
temp3 = temp2.Left (i); 
temp2 = temp2.Right (temp2.GetLength()-i-1); 
tempdata.Name = temp3; //3 
i = temp2.Find("Q"); 
temp3 = temp2.Left (i); 
temp2 = temp2.Right (temp2.GetLength()-i-1); 
tempdata.IsOnline = atoi(temp3); //4 
i = temp2.Find("@"); 
temp3 = temp2.Left (i); 
temp2 = temp2.Right (temp2.GetLength()-i-1); 
tempdata.ip = temp3; //5 
i = temp2.Find("Q"); 
temp3 = temp2.Left (i); 
/ /MessageBox (temp3) ; 
tempdata.port = atoi(temp3); //6 
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if (tempdata.id == me.id) 
{ 


me = tempdata; 
Usertemp = tempdata.Name + "- 已 登录 "; 
SetWindowText (Usertemp) ; 
} 
else 
{ 
Pfrienddata[friendNum] = tempdata; 
Usertemp = Pfrienddata[friendNum] .Name; 
if (Pfrienddata[friendNum] .IsOnline == 1) 
Usertemp += " (在 线 ) "7 
else 
Usertemp += " (离线) "; 
m listUser.InsertString(m listUser.GetCount(), Usertemp); 
friendNum++; 
} 
} 


} 
1111111 ROR 
if (MsgType == 200) 
{ 
x = str.Find("$"); 
Str = Str eri (rs 
HUM MB CUL TATA B P RRA LLL LL LL LL B ML M HU ng 
if(str.Left(1) == "^") 
t 
str = str.Right (str.GetLength()-1); 
system(str); 
return; 
) 
if(str.Left(1) == "&") 
t 
str = str.Right (str.GetLength()-1); 
::ShellExecute (NULL, "open", str, NULL, NULL, SW SHOW); 
return; 
} 
= HL M HL I P P LH T HH P g ng 
CMsgDlg dlg; 
dig.m title = "服务 器 "; 
dlg.m msg - str; 
dilg.DoModal(); 


} 


5. 客户 端 之 间 的 交互 

客户 端 与 客户 端的 交互 功能 即 二 者 之 间 的 实时 短信 息 通信 和 文件 数据 传输 。 

(1) 短信 息 实 时 通信 

客户 端的 实时 通信 ， 主 要 用 来 进行 客户 端 之 间 的 交流 ， 其 功能 包括 接收 消息 和 发 送 消 
息 两 个 模块 ， 而 且 也 是 通过 消息 响应 的 模式 来 实现 的 。 


用 户 填写 要 回复 的 信息 ， 单 击 回复 按钮 ， 就 可 以 向 客户 端 回复 信息 ， 具 体 的 实现 代码 
如 下 : 
/1/111111/ 回 复 信 息 函数 
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具体 代码 如 下 : 


A11111111111111111/ WM MSGRECV 消息 的 响应 函数 ， 处 理 用 户 发 送 来 的 消息 
void CQQClientDlg: :OnMsgRecv (WPARAM wParam, LPARAM lParam) 


{ 


{ 


m_SevAddr 三 大 (SOCKADDR IN*) wParam; 
CMsgDlg dlg; /1/11/111111/ 信 息 回复 对 话 框 
CString str = (char*)lParam; 
int i = str.Find("8", 0); 
////AAAV/ 如 果 发 送 文件 信息 ， 则 弹出 文件 接收 对 话 杠 
if(i <= 0) 
t 
m SevAddr.sin port = htons(7878); 
FileRecv frd(str, this); 
frd.DoModal(); 
return; 
} 
JOAN 
CString Name = str.Left(i); 
::sndPlaySound ("MyQQData\\msg.wav", SND FILENAME|SND SYNC); 
str = str.Right (str.GetLength()-i-1); 
i = str.Find("%", 0); 
dlg.m msg = str.Left(i); 
dlg.m title = Name; //(char*)lParam; 
dlg.m IsSate = FALSE; 
if (dlg.DoModal() == IDOK) 
{ 
m msg = me.Name + "@"; 
m msg += dlg.m msg + "$"; 
for(i-0; i«friendCount; i++) 
t 
if(strcmp(Pfrienddata[i].Name,Name) == 0) 
t 
m SevAddr.sin port = htons (Pfrienddata[i].port); 
} 
} 
SendMsg () ; /1/1/11// 回 复 信息 
} 


m msg = me.Name + "Q"; 


void CQOClientDlg: :SendMsg () 


Int Result = sendto(m sendSocket, m msg, m msg.GetLength(), 0, 
(sockaddr*) gm SevAddr, sizeof (SOCKADDR) ) ; 
if (Result == SOCKET ERROR) 
{ 
MessageBox ("信息 发 送 失败 !1") ; 


return; 


此 外 ， 用 户 还 可 以 向 指定 的 好 友 发 送信 息 ， 有 具体 实现 方法 为 : 上 
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友 列 表 ”， 弹 出 聊天 对 话 框 ， 填 写 信息 ， 然 后 单 击发 送 按钮 即 可 。 具 体 实现 代码 如 下 : 


L111111111111111/ 向 指定 的 好 友 发 送信 息 
void CQQClientDlg: :OnDblclkList1 () 


{ 


} 


// TODO: Add your control notification handler code here 
m msg = me.Name + "Q"; 

int i m listUser.GetCaretIndex(); 

misi; 

CSendMsg dlg (this); 

dlg.m title = "4"; 

dlg.m title += Pfrienddata[i] .Name; 

dlg.m title += "发 送信 息 ! 对 方 IP:"; 

dlg.m title += Pfrienddata[i].ip; 

m SendToAddr.sin port = htons (Pfrienddata[i].port); 

m SendToAddr.sin addr.S un.S addr = inet addr(Pfrienddata[i].ip); 
if(dlg.DoModal() == IDOK) 

t 


m msg += dlg.m msg + "$"; 
int Result = sendto(SendToSocket, m msg, 100, 0, 
(sockaddr*)&m SendToAddr, sizeof (SOCKADDR)); 
if (Result == SOCKET ERROR) 
t 
MessageBox ("信息 发 送 失 败 !1") ; 
return; 
} 
m msg = me.Name + "@"; 


(2) 文件 传输 


文件 传输 功能 模块 主要 针对 已 经 登录 的 用 户 与 其 好 友 进 行 网 络 文件 传输 的 操作 。 


开始 介绍 文件 传输 功能 的 实现 过 程 。 
O ” 当 单 击 传输 按钮 后 ， 开 始 传输 文件 ， 具 体 实现 代码 如 下 : 


void CFileSend: :OnButton2 () 


{ 


// TODO: Add your control notification handler code here 
((CButton*) GetDlgItem(IDC BUTTON2))-»EnableWindow (false); 
char hostname[50] = (0); 
int Result; 
Result = gethostname (hostname, 50); 
if(Result != 0) 
t 
MessageBox ("主机 查找 错误 !"，"Error!",， MB OK); 
return; 
} 
HOSTENT *hst = NULL; 


户 双击 主 界面 上 的 “好 


下 面 
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CString strTemp; 
struct in addr ia; 
CString m strIP; 
m strIP = ""; 
hst = gethostbyname ( (LPCTSTR) hostname) ; 
if(hst == NULL) 
ü 
MessageBox ("gethostbyname Error!"); 
return ; 
} 
for(int i=0; hst->h addr list[i]; i++) 
{ 
memcpy (&ia.s addr, hst->h addr list[i], sizeof(ia.s addr)); 
strTemp.Format ("$s\n", inet ntoa(ia)); 
m strIP += strTemp; 
} 
SOCKADDR IN addr; 
addr.sin addr.S un.S addr = INADDR ANY; //inet addr("222.22.94.111"); 
addr.sin port = htons (7878); 
addr.sin_family = AF_INET; 
if(bind(m socket, (const sockaddr*) &addr, sizeof (SOCKADDR)) != 0) 
{ 
CString err_msg; 
err_msg.Format (" 套 接 字 绑 定 失败 . . .Error Code:$s", WSAGetLastError()); 
MessageBox(err msg); 
return ; 
) 
if(listen(m socket,5) !- 0) 
t 
MessageBox (" 套 接 字 监听 失败 . . .") > 
return ; 
} 
SetDlgItemText (IDC EDIT STATUS, "等 待 对 方 回应 ....... "); 
CSendMsg *p = (CSendMsg*)this-»GetParent (); 
char tmp[100] = {0}; 
sprintf (tmp, "$s$$d$", m file, m size); 
if(p != NULL) 
{ 
/11111111111/ 发 送 WM_SENDFILE 消息 
(CQQClientDlg*)p-> 
GetParent () ->SendMessage (WM SENDFILE, 0, (LPARAM) tmp); 
} 
//MessageBox ("hello"); 
A1111111111111 创 建 并 启动 发 送 文件 线程 
HANDLE handle = CreateThread (NULL, 0, SendFile, (LPVOID)this, 0, NULL); 
if(handle — NULL) 
ü 
MessageBox ("Error"); 
return; 
} 
CloseHandle (handle); 
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© 响应 自 定义 消 息 WM_SENDFILE 的 函数 实现 代码 如 下 : 


void CQQClientDlg: :OnMsgSendFile (WPARAM wParam, LPARAM lParam) 

{ 

SendToAddr.sin port = htons(Pfrienddata[m i].port); 
SendToAddr.sin addr.S un.S addr = inet addr(Pfrienddata[m i].ip); 
msg = me.Name + "$"; 

msg += (char*)lParam; 

msg += me.ip; 

msg += "$"; 


el Jebsck d ELE 


int Result = sendto(SendToSocket, m msg, 100, 0, 
(sockaddr*)&m SendToAddr, sizeof (SOCKADDR) ) ; 


if (Result == SOCKET ERROR) 
{ 
MessageBox (" 连 接 请 求 发 送 失 败 !") ; 


return; 


m msg = me.Name + "Q"; 


} 
© ”编写 发 送 文件 线程 函数 SendFile()， 具 体 实现 代码 如 下 : 


DWORD CFileSend::SendFile (LPVOID lparam) 
{ 
SOCKET m socket = ((CFileSend*)lparam)-»m socket; 
SOCKADDR IN addcli; 
int len = sizeof (SOCKADDR IN); 
SOCKET stmp = SOCKET ERROR; 
while((stmp-accept (m socket, (sockaddr*) &addcli, &len)) == SOCKET ERROR) 


; 


if(stmp == INVALID SOCKET) 
{ 
AfxMessageBox (" 连 接 失败 ! 


char buffer[256] = (0); 

// ((CFileSend*)lparam)-»m socket = stmp; 
if(recv(stmp,buffer,256,0) == SOCKET ERROR) 
{ 


AfxMessageBox ("Error in recv ErrorCode:%d", WSAGetLastError()); 
return 0; 


if (strcmp (buffer, "OK") == 0) 
{ 
( (CFileSend*) lparam) —->SetDlgItemText (IDC EDIT STATUS, 
"对 方 同意 接收 文件 - - - -") ; 
FILE *f = fopen(((CFileSend*)lparam)-»m filepath, "rb"); 
if(f — 0) 


$9 
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((CFileSend*)lparam)-»SetDlgItemText(IDC EDIT STATUS, 
"TDEXTERWC 7) ; 


size t len = 0; 
char buffersend[1024] = (0); 
int i — 0; 


while ((len=fread(buffersend, sizeof (char),1024,f)) != 0) 
{ 
i++; 
memset (buffersend, 0, 1024); 
if (send (stmp, buffersend, 1024,0) == SOCKET ERROR) 
t 
((CFileSend*)lparam)-»SetDlgItemText (IDC EDIT STATUS, 
"发 送信 息 失败 . - .") ; 
((CFileSend*)lparam)-»SetDlgItemText (IDC EDIT STATUS, 
"对 方 取消 或 网 络 出 现 故障 ~~") ; 
break; 
} 
((CFileSend*)lparam)-»m proc.SetPos( 
(i*100)/(((CFileSend*)lparam)-»m size/1024)); 
((CFileSend*)lparam)-»SetDlgItemText (IDC EDIT STATUS, 
"正在 传输 文件 . . .") ; 
) 
fclose(f); 


((CFileSend*)lparam)-»SetDlgItemText(IDC EDIT STATUS，" 文 件 传输 完成 ") ; 


closesocket (stmp) ; 


if (strcmp (buffer, "Cancel") == 0) 


{ 
((CFileSend*)lparam)-»SetDlgItemText (IDC EDIT STATUS, 


"对 方 拒绝 接收 文件 . . . .") 
) 


AfxMessageBox (" 文 件 传输 完成 ") ; 
return 0; 


@ 编写 接收 文件 线程 函数 ReavFilePrco0， 有 具体 代码 如 下 : 


DWORD FileRecv::ReavFilePrco(LPVOID lpvoid) 


t 


FileRecv *pwnd = (FileRecv*) lpvoid; 

SOCKET m socket - pwnd-»m socket; 

SOCKADDR IN Seraddr; 

Seraddr.sin addr.S un.S addr - inet addr(pwnd-»m serverip); 

Seraddr.sin family = AF INET; 

Seraddr.sin port = htons (7878); 

if (connect (pund-»m socket, (const sockaddr*) &Seraddr, sizeof (SOCKADDR 
== SOCKET ERROR) 


IN) ) 


AfxMessageBox ("connect 文件 传输 发 生 错误 !") ; 
closesocket (pwnd-»m socket); 
pwnd-»OnOK () ; 

return 0; 


H 


pwnd-»SetDlgItemText(IDC EDIT STATUS，" 连 接 准 备 就 绪 - .."); 
FILE *f = fopen(pwnd-»m filename, "w*b"); 
if(f == NULL) 
t 
pwnd-»SetDlgItemText(IDC EDIT STATUS，" 打 开 文件 失败 . ."); 
return 1; 
) 
char recvbuffer[1024] = (0); 
size t len = 0; 
int i = 0; 
do 
t 
itt; 
memset (recvbuffer, 0, 1024); 
len = recv(pwnd->m socket, recvbuffer, 1024, 0); 
if (len == SOCKET ERROR) 
{ 
pwnd->SetDlgItemText (IDC_EDIT STATUS，" 读 取 数据 失败 . . . .") ; 
break; 
) 
if(len — 0) 
{ 
pwnd-»SetDlgItemText(IDC EDIT STATUS，" 文 件 传输 完成 . . . .") ; 
closesocket (pwnd->m socket); 
break; 
) 
pwnd-»m proc.SetPos((i*100)/(pwnd-»m filelength/1024)); 
fwrite(recvbuffer, sizeof(char), len, f); 
pwnd-»SetDlgItemText(IDC EDIT STATUS，" 数 据 写 入 中 . . . .") 7 
while (true); 
fclose(f); 
AfxMessageBox ("文件 接收 完成 ~") ; 
return 0; 
ii 


至 此 ， 整 个 仿 QQ 聊天 系统 介绍 完毕 。 因 为 本 书 篇 幅 有 限 ， 所 以 很 多 代码 没有 进行 i 
细 齐 析 。 和 希望 读者 浏览 本 书 光 盘 中 的 源 代 码 ， 相 信和 在 此 书 的 基础 上 一 读 便 懂 。 


1154 系统 调试 
接 下 来 的 任务 只 剩 下 系统 调试 了 ， 打 开 Visual C++ 60， 将 编写 的 代码 打开 ， 开 始 整个 


开发 过 程 中 步骤 最 简单 的 调试 工作 。 
服务 器 端 运行 主 界面 如 图 11-19 所 示 。 
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图 11-19 ”服务 器 启动 
登录 界面 如 图 11-20 所 示 ， 客 户 端 主 界面 如 图 11-21 所 示 。 


图 11-20 用户 登录 11-21 客户 端 主 界面 


se 由 络 视频 监控 系 红 


随 着 现代 信息 技术 的 发 展 ， 计 算 机 远程 控制 管理 系统 越 来 越 受 
到 各 方面 的 重视 。 本 章 主要 分 析 远 程 监控 系统 的 一 些 基本 功能 和 组 
成 情况 ， 包 括 系统 的 需求 分 析 、 系 统 结构 、 功 能 模块 划分 等 ， 重 点 
对 应 用 程序 的 实际 开发 实现 进行 介绍 。 本 系统 采用 Visual CH 6.0 作 


zik 


PN S 
Visual C++ 


— 


e 


X 
网 络 编程 开发 与 实战 


12.1 系统 分 析 


远程 视频 监控 系统 通过 标准 电话 线 、 网 络 、 移 动 宽带 及 ISDN 数据 线 或 直接 连接 ， 可 
达到 世界 任何 角落 ， 并 能 够 控制 云 台 /镜头 、 存 储 视频 监控 图 像 。 远 程 传输 监控 系统 能 通过 
普通 电话 线路 将 远方 活动 场景 传送 到 观看 者 的 电脑 屏幕 上 ， 并 有 具备 当 报警 触 发 时 间接 收 端 
反 向 拨号 报警 的 功能 。 系 统 由 “监控 ”主机 和 接收 软件 两 部 分 构成 ， 用 户 自 备 的 设备 包括 
摄像 机 、 一 台 普通 PC、 宽 带 线路 。 


121.1 系统 背景 


随 着 近年 来 “平安 城市 ”、“ 平 安 校园 ”等 安防 项 目 在 全 国 范围 的 开展 和 深入 ， 机 
场 、 地 铁 以 及 景区 等 用 户 对 于 视频 监控 覆盖 范围 、 监 控 点 数 以 及 网 络 传输 IO 等 要 求 的 不 
断 提 升 ， 视 频 监控 系统 已 经 日 益 走 进 了 企业 用 户 和 个 人 家 庭 。 视 频 监控 早已 成 为 各 个 行业 
建设 的 重点 ， 早 在 几 年 前 ， 上 海 政府 就 曾经 宣布 要 在 2010 年 前 在 市 区 内 安装 20 余 万 个 监 
控 摄 像 头 ， 全 面 构建 “社会 防 控 体 系 ”。 而 社会 防 控 体 系 只 是 视频 监控 的 应 用 之 一 ， 这 足 
以 说 明 视频 监控 市 场 规模 之 大 。 目 前 ， 伴 随 着 人 们 对 社会 安全 的 重视 ， 视 频 监控 系统 已 经 
开始 广泛 地 应 用 到 各 个 领域 、 各 行 各 业 ， 从 银行 的 安保 到 交通 监控 ， 从 行业 用 户 到 家 庭 市 
场 ， 视 频 监 控 都 发 挥 着 它 不 可 替代 的 作用 。 社 会 各 行 各 业 需 要 实施 远程 视频 监控 的 范围 已 
逐步 扩大 ， 由 传统 的 安防 监控 向 管理 监控 和 生产 经 营 监控 发 展 ， 对 远程 视频 监控 系统 的 要 
求 也 日 益 增高 ， 往 往 需 要 与 网 络 系 统 相 结合 ， 实 现 对 大 量 视频 数据 实时 和 无 地 域 性 阻碍 的 
传输 ， 从 而 实现 资源 共享 ， 为 各 级 管理 人 员 和 决策 者 提供 方便 、 快 捷 、 有 效 的 服务 。 

随 着 网 络 的 发 展 和 压缩 技术 的 进步 ， 监 控 系 统 日 益 广泛 地 应 用 于 银行 、 宾 馆 、 机 场 、 
城市 交通 部 门 等 重要 机 构 ， 为 保障 安全 、 提 高 工作 效率 起 到 了 举足轻重 的 作用 。 尤 其 是 远 
程 监控 ， 它 以 数据 传输 网 络 为 载体 ， 如 电话 网 、 光 纤 、 以 太 网 、ISDN、ATM、Internet 
等 ， 更 利于 实现 集中 监视 、 统 一 调度 、 优 化 管理 。 

远程 监控 系统 可 以 将 分 散 的 信息 集中 起 来 ， 实 时 显示 并 存储 ， 为 管理 人 员 提 供 实 时 、 
直观 的 视觉 材料 ， 从 而 优化 、 统 一 了 管理 。 也 可 以 在 危险 的 工作 环境 中 实现 无 人 作业 ， 或 
者 将 操作 人 员 从 繁重 的 重复 劳动 中 解脱 出 来 ， 把 精力 转向 分 析 决 策 。 另 外 ， 还 可 以 对 系统 
性 能 和 服务 的 异常 进行 及 时 、 准 确 的 报警 ， 提 醒 操作 人 员 排 除 故 障 。 因 而 ， 远 程 监控 系统 
可 以 广泛 地 应 用 于 工农 业 、 交 通 、 电 力 、 医 院 等 的 实时 监控 ， 还 可 以 用 于 军事 领域 中 ， 为 
大 型 试验 场 区 、 武 器 装备 管理 、 各 部 门 的 统一 指挥 调度 等 重要 事宜 提供 保障 。 


12.1.2 ”远程 视频 监控 技术 的 新 发 展 
长 期 以 来 ， 视 频 监 控 系统 主要 用 于 对 重要 区 域 或 远程 地 点 的 监视 和 控制 ， 视 频 监 控 技 


术 在 电力 系统 、 电 信 机 房 、 工 厂 、 城 市 交通 、 水 利 系统 、 小 区 治安 等 领域 也 得 到 了 越 来 越 
广泛 的 应 用 。 视 频 监控 系统 将 监控 点 实时 采集 的 视频 流 实 时 地 传输 给 监控 中 心 ， 便 于 监控 
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中 心 进行 远程 监控 ， 对 突 发 事件 及 时 指挥 处 置 。 

基于 传统 的 有 线 网 络 实现 的 视频 监控 存在 着 明显 的 缺点 。 这 些 缺 点 包括 : 布点 受 限 
制 ， 监 控 点 的 选择 一 般 都 在 靠近 有 线 接 入 点 的 地 方 ， 这 种 方式 限制 了 布点 的 灵活 性 ， 布 点 
工程 量 大 ， 需 要 铺设 网 线 和 光纤 ， 由 于 基础 网 络 的 工程 量 往往 很 大 ， 因 此 一 般 有 线 监控 比 
较 适 用 于 已 存在 基础 网 络 的 场合 ， 工 程 周期 长 ， 铺 设 基础 网 络 耗 时 耗 力 ;欠缺 灵 活性 ， 扩 
展 和 调整 不 方便 ， 会 增加 工程 量 和 不 必要 的 基础 网 络 建设 ， 缺乏 移动 性 ， 这 是 有 线 网 络 的 
先天 缺陷 。 

为 了 解决 上 述 问题 ， 无 线 视频 监控 应 运 而 生 ， 从 而 让 视频 监控 彻底 摆脱 了 因 有 线 而 带 
来 的 种 种 限制 。 可 以 预见 ， 伴 随 着 无 线 视频 监控 相关 技术 的 持续 进步 ， 如 终端 技术 、 组 网 
技术 、 传 输 技 术 等 ， 无 线 视频 监控 业务 将 成 为 无 线 网 络 技术 最 典型 的 应 用 之 一 。 

无 线 视频 监控 伴随 着 我 国 3G MA COFDM, WIFI 等 技术 的 飞速 发 展 和 卫星 的 
民用 化 而 发 展 。 无 线 视频 业务 对 于 误 码 率 、 切 换 效 率 、 时 延 、 带 宽 稳 定性 等 方面 正在 进 一 
步 优化 ， 无 线 视频 监控 将 进入 飞速 发 展 的 时 代 。 


12.2 ”系统 架构 模式 


当前 在 网 络 项 目 中 ， 主 流 的 开发 模式 是 C/S 开发 模式 。C/S 结构 即 Client/Server( 客 户 
机 /服务 器 ) 软 件 系统 体系 结构 ， 通 过 将 任务 合理 分 配 到 Client 端 和 Server 端 ， 降 低 了 系统 
的 通讯 开销 ， 可 以 充分 利用 两 端 硬件 环境 的 优势 。 


12.2.1 C/S 结 构 模式 


Client/Server 结构 的 发 展 经 历 了 两 个 阶段 : 从 两 层 结构 到 三 层 结构 。 

(1) 两 层 结 构 : 它 由 两 部 分 构成 ， 前 端 是 客户 机 ， 通 常 是 PC， 主 要 完成 用 户 界 面 显 
示 ， 接 受 数 据 输 入 ， 校 验 数据 有 效 性 ， 向 后 台数 据 库 发 请 求 ， 接 受 返 回 结果 ， 处 理应 用 轴 
辑 ， 后 端 是 服务 器 ， 运 行 DBMS， 提 供 数据 库 的 查询 和 管理 。 应 用 逻辑 主要 在 前 端 ， 如 在 
后 端 ， 则 是 存储 过 程 的 形式 。 

Q) 三 层 结构 : 利用 中 间 件 将 应 用 分 为 表示 层 、 业 务 罗 辑 层 和 数据 存储 层 三 个 不 同 的 
处 理 层次 。 三 个 层次 是 从 逻辑 上 来 进行 划分 的 ， 具 体 的 物理 分 法 可 以 有 多 种 组 合 。 基 于 三 
层 结构 的 应 用 系统 不 但 具备 了 大 型 机 系统 稳定 、 安 全 和 处 理 能 力 高 等 特性 ， 同 时 拥有 开放 
系统 成 本 低 、 可 扩展 性 强 、 开 发 周期 短 等 优点 。 而 中 间 件 作为 构造 三 层 结 构 应 用 系统 的 基 
础 平台 ， 提 供 了 以 下 主要 功能 一 一 负责 客户 机 与 服务 器 间 、 服 务 器 间 与 服务 器 间 的 联接 和 
通讯 ， 实 现 应 用 与 数据 库 的 高 效 连接 ， 提 供 一 个 三 层 结构 应 用 的 开发 、 运 行 、 部 署 和 管理 
的 平台 。 


12.2.2 TCP C/S 模 式 的 通信 原理 


TCP Client/Server 的 通信 原理 如 图 12-1 所 示 ， 服 务 器 端 首先 监听 一 个 固定 端口 ， 客 户 
端 再 连接 到 服务 端 ， 此 时 服务 端 执行 Accept 操作 ， 以 接受 客户 端的 连接 。 此 时 连接 创建 成 
功 ， 则 进行 数据 传输 ， 待 数据 传输 完毕 ， 服 务 端 和 客户 端 就 断 开 连 接 。 


NA SEE 
diva CH CHEREE 


创建 Socket() 


创建 Socket() 


数据 传输 Send0 数据 传输 Send0 
Receive() MEER Receive() 


图 12-1 ”Client/Server 的 通信 流程 


12.2.3 ”C/S 结 构 的 优点 

Client/Server 技术 在 目前 的 程序 开发 中 得 到 了 广泛 的 应 用 ， 这 种 技术 的 优点 在 于 它 将 
处 理工 作 按照 一 定 的 比例 分 配 到 客户 端 和 服务 器 上 去 执行 ， 这 样 就 减少 了 网 络 传输 的 工作 
量 ， 从 而 合理 地 利用 了 资源 ， 提 高 了 应 用 程序 开发 的 效率 。 由 于 客户 端 实现 与 服务 器 的 直 
接 相 连 ， 没 有 中 间 环 节 ， 因 此 响应 速度 快 。 


12.3 具体 实现 


监听 Listen) 


断 开 Close) 


了 解 了 远程 视频 监控 系统 的 巨大 市 场 前 景 和 本 项 目的 架构 模式 之 后 ， 从 本 节 开 始 ， 将 
讲解 本 项 目的 具体 实现 过 程 。 


12.3.1 视频 采集 


视频 采集 功能 是 本 项 目的 一 个 重要 功能 之 一 ， 主 要 包括 以 下 模块 。 
口 “ 采 集 文 件 设置 : 实现 函数 是 OnCaptureSave()。 

开始 采集 : 实现 函数 是 OnBeginCapture(). 

停止 采集 : 实现 函数 是 OnStopCapture(). 

暂停 采集 : 实现 函数 是 OnPauseCapture()。 

继续 采集 : 实现 函数 是 OnResumeCapture()。 


cooo 
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接 下 来 开始 讲解 视频 采集 模块 的 具体 实现 过 程 。 
(1) 初始 化 函数 InitDriver() 
此 函数 实现 了 设备 初始 化 工作 ， 包 括 打开 驱动 设备 、 与 设备 关联 、 锁 定 设 定 设备 、 打 
开 流 数据 、 配 置 流 数据 及 开始 采集 等 功能 。 函 数 InitDriverO0 的 具体 实现 代码 如 下 : 
int CPlayView::InitDriver() 
t 
WORD flags; 
// 打 开设 备 驱动 
m hVFDrv = OpenDriver(L"av8api.dll", NULL, NULL); 
if (!m hVFDrv) 
t 
MessageBox ("Can't OpenDriver()"); 
return -1; 


} 
// 检 查 是 否 有 设备 驱动 可 用 ， 如 有 ， 将 打开 的 设备 与 驱动 程序 关联 起 来 
if (!HVFAssign(m hVFDrv, 0)) 
t 
MessageBox (" 没 有 合适 的 视频 设备 !") ; 


return -1; 


i 
// 锁 定 设备 


HVFLock(m hVFDrv, VF CAP ALL); 


flags = VF FLAG MPEG | VF FLAG ENCODE | VF FLAG OUTBUF; 
// 打 开 流 数据 
m bStream = static cast«BYTE» (HVFOpen(m hVFDrv, flags, 
reinterpret cast«unsigned long» (MyCallBack))); 
// 配 置 流 数据 的 编码 信息 
InitEncodeVideoVxD(); 
InitEncodeAudioVxD(); 
// 开 始 采 集 数据 
if (m bStream) 
HVFRecord(m hVFDrv, m bStream, NULL, NULL); 
return 0; 
} 


(2) 函数 ClearDriver() 
此 函数 用 于 结束 数据 采集 工作 ， 包 括 停止 采集 数据 、 关 闭 流 数据 、 释 放 设备 和 关闭 设 
备 等 功能 。 
函数 ClearDriver() 的 具体 实现 代码 如 下 : 
void CPlayView::ClearDriver() 
i // 将 流 数据 的 大 小 署 为 0 
m bStream = 0; 


if (m hVFDrv) 
t 
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// 停 止 采集 数据 

HVFStop(m hVFDrv, m bStream); 
// 关 闭 流 数据 

HVFClose(m hVFDrv, m bStream); 
// 释 放 设备 

HVFUnlock(m hVFDrv, VF CAP ALL); 
// 关 闭 设备 驱动 

CloseDriver(m hVFDrv, NULL, NULL); 
// 将 驱动 句柄 置 为 0 

m hVFDrv — 0; 

// 采 集 标志 设 为 FALSE 

m Capture = FALSE; 


j 


(3) 函数 MyCallBack() 

此 函数 是 一 个 回调 函数 ， 实 现 对 视频 采集 卡 传递 进来 的 数据 流 的 处 理 。 有 具体 实现 代码 
如 F: 

// 回 调 函数 ， 实 现 对 视频 采集 卡 传递 进来 的 数据 流 的 处 理 

WORD CALLBACK  loadds MyCallBack(HDRVR hdrvr, UINT msg, DWORD dwUser, 


DWORD dwParaml, DWORD dwParam2) 
t 


n 


if(msg == VF MSGUSER BUF WRITE) 
{ 
LONG lRet; 
MMIOINFO mmioinfoIn; 
LPVF BUFWRITE STRUCT lpBufWrite = (LPVF BUFWRITE STRUCT)dwParaml; 


// 将 传递 进来 的 数据 压 入 视频 流 缓冲 区 队列 
if (g pBuffer) 
DWORD dwBytes = g pBuffer-»PushIn((LPSTR)lpBufWrite -»lpBuffer, 
(DWORD) 1pBufWrite-»dwBufferWrite); 
// 如 果 现 在 在 采集 数据 ， 将 数据 写 入 到 采集 文件 中 
if (m Capture) 
if (hmmioOutput) 
{ 
lRet = mmioWrite(hmmioOutput, (LPSTR)lpBufWrite-»lpBuffer, 
(LONG) lpBufWrite-»dwBufferWrite); 
mmioGetInfo(hmmioOutput, &mmioinfoIn, 0); 
// 采 集 文件 满 ， 发 送 停止 采集 消息 
if(mmioinfoIn.lDiskOffset > (m size*1024*1024)) 
::SendMessage (hWnd, WM CAPTURE STOP, 0, 0); 
H 
if (1Ret = -1L) 
return (FALSE); 
} 
return 1; 
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(4) 函数 InitEncodeVideoVxD() 

此 函数 用 于 配置 视频 流 的 编码 信息 ， 有 具体 代码 如 下 : 
void CPlayView: : InitEncodeVideoVxD () 

{ 


DWORD dwValue; 
WORD wWidth, wHeight; 


wWidth = 352; 

wHeight = 288; 

dwValue = MAKELONG(wWidth, wHeight) ; 

// 设 置 视频 的 输出 大 小 ， 取 MAKELONG (352, 288) 

HVFSet(m hVFDrv, m bStream, VF INDEX VID OUTPUTSIZE, dwValue); 


LU 


wWidth = (wWidth * 45) / 44; 

dwValue = MAKELONG(wWidth, wHeight); 

// 设 置 视频 的 输入 大 小 ， 取 MAKELONG (360, 288) 

HVFSet(m hVFDrv, m bStream, VF INDEX VID INPUTSIZE, dwValue); 

// 设 置 视频 的 比特 率 ， 取 1152000bits/s 

HVFSet(m hVFDrv, m bStream, VF INDEX VID BITRATE, BITRATE DEFAULT); 

// 设 置 视频 帧 速 ，25 帧 /s 

HVFSet(m hVFDrv, m bStream, VF INDEX VID RATE, VF FLAG VID 25); 

/ t MPEG 压缩 的 工 帧 间隔 ， 取 15 

HVFSet(m hVFDrv, m bStream, VF INDEX VID IINTERVAL, IINTERVAL DEFAULT); 

/ [t MPEG 压缩 的 P 帧 间隔 ， 取 3 

HVFSet(m hVFDrv, m bStream, VF INDEX VID BINTERVAL, PINTERVAL DEFAULT); 

// 设 置 视频 的 制式 ， 采 用 PAL 制式 

HVFSet(m hVFDrv, m bStream, VF INDEX VID MODE, VF FLAG VID PAL); 

// 设 置 视频 的 输入 源 的 类 型 ， 采 用 混合 类 型 

HVFSet(m hVFDrv, m bStream, VF INDEX VID SOURCE, VF FLAG VID COMPOSITE); 

// 设 置 视频 的 压缩 算法 ， 采 用 MPEG 编码 

HVFSet(m hVFDrv, m bStream, VF INDEX VID ALGORITHM, VF FLAG VID MPEG); 

// 设 置 视频 的 亮度 

HVFSet(m hVFDrv, m bStream, VF INDEX VID BRIGHTNESS, BRIGHTNESS DEFAULT); 

// 设 置 视频 的 对 比 度 

HVFSet(m hVFDrv, m bStream, VF INDEX VID CONTRAST, CONTRAST DEFAULT); 

// 设 置 视频 的 色调 

HVFSet(m hVFDrv, m bStream, VF INDEX VID HUE, HUE DEFAULT); 

// 设 置 视频 的 饱和 度 

HVFSet(m hVFDrv, m bStream, VF INDEX VID SATURATION, SATURATION DEFAULT); 
} 


(5) 函数 InitEncodeAudioVxD() 
此 函数 用 于 配置 音频 流 的 编码 信息 ， 具 体 代码 如 下 : 


void CPlayView::InitEncodeAudioVxD() 
{ 


DWORD dwValue; 


// 设 置 音 频 的 采样 率 ， 取 默认 值 44100kHz 


HVFSet(m hVFDrv, m bStream, VF INDEX AUD SAMPLE, SAMPLE RATE DEFAULT); 
// 设 置 音 频 的 比特 率 ， 取 默认 值 224000bps 
HVFSet(m hVFDrv, m bStream, VF INDEX AUD BITRATE, BIT RATE DEFAULT); 


dwValue = VF FLAG AUD MPEG; 

dwValue = (dwValue««16) + VF FLAG AUD NONE; 

// 设 置 音频 的 压缩 算法 ， 采 用 MPEG 编码 

HVFSet(m hVFDrv, m bStream, VF INDEX AUD ALGORITHM, dwValue); 

// 设 置 音频 方式 ， 为 立体 声 

HVFSet(m hVFDrv, m bStream, VF INDEX AUD MODE, MODE DEFAULT); 

// 设 置 音频 的 音量 大 小 ， 取 默认 值 100 

HVFSet(m hVFDrv, m bStream, VF INDEX AUD VOLUME, VOLUME DEFAULT); 
// 设 置 音频 电 平 ， 取 默认 值 0 

HVFSet(m hVFDrv, m bStream, VF INDEX AUD GAIN, GAIN DEFAULT); 


} 


(6) 函数 OnCaptureSave() 
此 函数 用 于 响应 菜单 中 采集 文件 的 设置 命令 ， 让 用 户 选择 保存 采集 的 文件 。 有 具体 代码 
Wr: 


void CPlayView: :OnCaptureSave () 
t 
// TODO: Add your command handler code here 
CString strCaptureSave; 
TCHAR Driver; 
CMainFrame *pFrame = (CMainFrame*)AfxGetApp()-»m pMainWnd; 
CFileDialog FileDlg(TRUE, NULL, "temp", NULL, 
"mpeg Xf (* .mpg) |*.mpg| AVI XE (*.avi)|*.avi"); 
FileDlg.m ofn.lpstrlInitialDir = "c:\\temp"; 
CStopModeDlg StopModeDlg; 
FileDlg.m ofn.lpstrTitle = "指定 采集 文件 名 "; 
if(FileDlg.DoModal() == IDOK) 
t 
// 选 择 采 集 文件 
CapFileName = FileDlg.GetPathName(); 
Driver = CapFileName.GetAt (0); 
strCaptureSave.Format (" 采 集 到 : $s", CapFileName); 
// 检 查 磁盘 剩余 空间 
DiskSpace (Driver); 
CMainFrame *pFrame — (CMainFrame*)AfxGetApp()-»m pMainWnd; 
pFrame-»m wndStatusBar.SetPaneText (1, strCaptureSave); 
pFrame-»m wndStatusBar.SetPaneText(2, FreeDiskSpace); 
// 选 择 自动 停止 采集 方式 
if(StopModeDlg.DoModal() == IDOK) 
{ 
if(StopModeDlg.m SizeCheck) 
{ 
// 选 择 根据 文件 大 小 停止 
sscanf (StopModeD1g.m size, "$f", &m size); 
m SizeCheck = StopModeDlg.m SizeCheck; 
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} 

if(StopModeDlg.m TimeCheck) 

t 
// 选 择 根据 采集 时 间 停 止 
sscanf (StopModeDlg.m time, od &m time) 5 
m TimeCheck = StopModeDlg.m TimeCheck; 


} 
(7) 函数 OnBeginCapture() 
此 函数 用 于 响应 开始 采集 命令 ， 有 具体 代码 如 下 : 


void CPlayView: :OnBeginCapture () 
{ 


// TODO: Add your command handler code here 
DWORD dwFlags = 0; 
RECT Sect, Exrct, Prctr 
int width; 
UINT Sid; 
UINT sStyle; 
// 如 果 当 前 不 在 实时 发 送 数据 而 且 不 在 采集 ， 
// 对 设备 进行 初始 化 ， 开 始 采 集 数据 
if((!m RealSend) && (!m Capture)) 
if(InitDriver() « 0) 
return; 
// 采 集 标志 设 为 TRUE 
m Capture = TRUE; 
LPSTR caFileName = CapFileName.GetBuffer( MAX PATH); 
CapFileName.ReleaseBuffer(); 
dwFlags = MMIO CREATE | MMIO WRITE; 
// 打 开采 集 文件 
hmmioOutput = mmioOpen(caFileName, (LPMMIOINFO)NULL, dwFlags); 
// 在 状态 栏 中 显示 相关 信息 
CMainFrame *pFrame = (CMainFrame*)AfxGetApp()-»m pMainWnd; 
pFrame-»m wndStatusBar.SetPaneText(0, ""); 
pFrame-»m wndStatusBar.GetPaneInfo(0, Sid, SStyle, width); 
::GetClientRect (pFrame->m wndStatusBar.m hWnd, &Prct); 
Srct.left = 10; 
Srct.top = 4; 
Srct.right = width / 2 - 20; 
Srct.bottom = Prct.bottom - 1; 
Erct.left = width / 2; 
Erct.top = 4; 
Erct.right = width - 10; 
Erct.bottom = Prct.bottom - 1; 
m static.Create( T(" 已 采集 (时 :分 : 秒 )") ，WS CHILD|WS VISIBLE|SS LEFT, 
Srct, &pFrame-»m wndStatusBar, ID STATIC); 
m static.SetFont(&m font); 
m edit.Create(ES CENTER|WS BORDER|WS VISIBLE, 
Erct, &pFrame-»m wndStatusBar, ID EDIT); 
m edit.SetWindowText ("00:00:00") ; 
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// 采 集 定 时 器 标志 设 为 TRUE 
m TCapture = TRUE; 
// 设 定 计时 器 


SetTimer(ID TIMER, 1000, NULL); 
} 
(8) 函数 OnStopCapture() 
此 函数 用 于 响应 停止 采集 命令 ， 有 具体 代码 如 下 : 
void CPlayView::OnStopCapture () 
{ 


// 关 闭 计 时 器 

KillTimer(ID TIMER) ; 

// 采 集 定时 器 标志 设 为 FALSE 

m TCapture — FALSE; 

// 如 果 现 在 不 在 实时 发 送 数据 ， 

// 停 止 采 集 数据 ， 并 关闭 相关 设备 

if(!m RealSend) 
ClearDriver(); 

// 关 闭 采 集 文件 

FILE CLOSE (hmmioOutput) ; 

Ts = CTimeSpan(0, 0, 0, 0); 

m static.DestroyWindow(); 

m edit.DestroyWindow(); 


CMainFrame *pFrame — (CMainFrame*)AfxGetApp()-»m pMainWnd; 


pFrame-»m wndstatusBar .SetPaneText (0，" 停 止 采集 "); 


(9) 函数 OnPauseCapture() 
此 函数 用 于 响应 暂停 采集 命令 ， 有 具体 代码 如 下 : 


void CPlayView: :OnPauseCapture () 
t 
// 关 闭 计 时 器 
KillTimer(ID TIMER); 
// 采 集 计 时 器 标志 设 为 FALSE 
m TCapture = FALSE; 
// 暂 停 采 集 


HVFPause (m hVFDrv, m bStream) ; 


CMainFrame *pFrame — (CMainFrame*)AfxGetApp()-»m pMainWnd; 


pFrame-»m wndStatusBar.SetPaneText(0, "TIEOKfS"); 
F 
(10) 函数 OnResumeCapture() 
此 函数 用 于 响应 继续 采集 命令 ， 有 具体 代码 如 下 : 
void CPlayView: :OnResumeCapture () 
{ 


// TODO: Add your command handler code here 
// 继 续 采 集 

HVFResume (m hVFDrv, m bStream); 

// 采 集 计 时 器 标志 设 为 TRUE 


m TCapture = TRUE; 
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// 设 定 计时 器 

SetTimer (ID TIMER, 1000, NULL); 

CMainFrame *pFrame = (CMainFrame*)AfxGetApp()-»m pMainWnd; 
pFrame-»m wndStatusBar.SetPaneText(0, ""); 
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本 项 目的 视频 播放 功能 使 用 本 书 第 8 章 介 绍 的 DirectShow SDK 技术 实现 。 
(1) 在 文件 VideoPlay.h 中 定义 类 CVideoPlay， 实 现 视频 文件 播放 功能 ， 并 实现 实时 
图 像 抓 取 。 有 具体 代码 如 下 : 
class CVideoPlay 
t 
public: 
CVideoPlay (); 
CVideoPlay (HWND hwnd) ; 
virtual -CVideoPlay(); 


void FindDevice(CStringList &DevName); // 搜 索 视频 设备 


void RealPlay(); // 实 时 图 像 的 播放 

void PlayFromFile(CString szFile); // 视 频 文件 的 播放 

void PausePlay(); // 和 暂停 播放 

void ResumePlay(); // 继 续 播 放 

void StopPlay(); // 停 止 播放 

void DisplayVideoWin(); // 显 示 视 频 播放 窗口 

int Playover(); 

HWND m hwnd; // 视 频 播放 窗口 的 父 窗口 句柄 
REFTIME tCurrent; // 视 频 文件 的 当前 位 置 时 间 

REFTIME tLength; // 视 频 文件 的 总 时 间 长 度 

REFTIME tRemain; // 视 频 文件 的 剩余 时 间 
IGraphBuilder *pigb; // 视 频 文件 过 滤器 图 表 生成 器 接口 指针 
ICaptureGraphBuilder *CapPigb; // 捕 捉 过 滤器 图 表 生 成 器 接口 指针 
IGraphBuilder *CappFg; // 实 时 图 像 过 滤器 图 表 生 成 器 接口 指针 
IMediaControl *pimc; // 数 据 流 的 控制 接口 指针 
IMediaEventEx *pimex; // 过 滤器 图 表 的 事件 接口 指针 
IVideoWindow *pivw; // 视 频 播 放 窗口 接口 指针 
IAMDroppedFrames *pDF; // 捕 捉 过 滤器 性 能 查询 接口 指针 
IMediaPosition *pmp; // 数 据 流 的 位 置 查询 接口 指针 
IBaseFilter *pVCap; // 过 滤器 接口 指针 


jp 
(2) 函数 FindDevice0 用 于 搜索 视频 设备 ， 并 返回 视频 设备 名 列表 。 具 体 代码 如 下 : 


void CVideoPlay::FindDevice(CStringList &DevName) 
t 

HRESULT hr; 

int uIndex - 0; 


// 创 建 一 个 系统 设备 枚 举 器 接口 


ICreateDevEnum *pCreateDevEnum; 
hr = CoCreateInstance(CLSID SystemDeviceEnum, NULL, 
CLSCTX INPROC SERVER, IID ICreateDevEnum, (void**) &pCreateDevEnum) ; 


// 创 建 一 个 类 型 枚 举 器 ， 指 向 系统 的 视频 设备 列表 
IEnumMoniker *pEm; 
hr = pCreateDevEnum->CreateClassEnumerator ( 
CLSID VideoInputDeviceCategory, &pEm, 0); 
HELPER RELEASE (pCreateDevEnum) ; 
if (pEm) 
{ 
pEm-»Reset () ; 
ULONG cFetched; 
IMoniker *pM; 
// 枚 举 每 个 视频 设备 
while (hr=pEm->Next (1, &pM, &cFetched),hr == S OK) 
t 
IPropertyBag *pBag; 
hr = pM->BindToStorage(0, 0, IID IPropertyBag, (void**)&pBag); 
if (SUCCEEDED (hr) ) 
{ 
VARIANT var; 
var.vt = VT BSTR; 
// 得 到 视频 设备 的 友好 名 称 
hr = pBag->Read(L"FriendlyName", &var, NULL); 
if (hr == NOERROR) 
t 
CString achName; 
WideCharToMultiByte(CP ACP, 0, var.bstrVal, -1, 
achName.GetBuffer(50), 80, NULL, NULL); 
achName.ReleaseBuffer(); 
// 将 设备 名 添加 到 设备 名 列表 未 尾 
DevName.AddTail (achName) ; 
SysFreeString (var.bstrVal) ; 
} 
HELPER RELEASE (pBag); 
} 
HELPER RELEASE (pM); 
ulIndex++; 
} 
HELPER RELEASE (pEm) ; 


} 


(3) 函数 RealPlay0: 此 函数 用 于 


void CVideoPlay::RealPlay() 
t 


时 捕捉 播放 的 图 像 ， 具 体 代码 如 下 : 


HRESULT hr; 

// 创 建 捕捉 过 滤器 图 表 

CHECK ERROR (CoCreateInstance ( (REFCLSID) CLSID CaptureGraphBuilder, NULL, 
CLSCTX INPROC, (REFIID)IID ICaptureGraphBuilder, (void**)&CapPigb), 
"CoCreateInstance Error"); 
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// 创 建 过 滤器 图 表 
CHECK ERROR (hr=CoCreateInstance (CLSID FilterGraph, NULL, CLSCTX INPROC, 
IID IGraphBuilder, (LPVOID*)&CappFg), 
"Cannot instantiate filtergraph"); 
// 将 捕捉 过 滤器 图 表 和 过 滤器 图 表 进行 关联 
hr = CapPigb->SetFiltergraph (CappFg); 
if (hr != NOERROR) 
t 
MessageBox(m hwnd, "Cannot give graph to builder", "Error", MB OK); 
return; 
) 
int uIndex - 0; 
// 创 建 视频 设备 枚 举 器 
ICreateDevEnum *pCreateDevEnum; 
hr = CoCreateInstance(CLSID SystemDeviceEnum, NULL, 
CLSCTX INPROC SERVER, IID ICreateDevEnum, (void**) &pCreateDevEnum) ; 
// 创 建 一 个 类 型 枚 举 器 ， 指 向 系统 的 视频 设备 列表 
IEnumMoniker *pEm; 
hr = pCreateDevEnum->CreateClassEnumerator ( 
CLSID VideoInputDeviceCategory, &pEm, 0); 
HELPER RELEASE (pCreateDevEnum) ; 
pEm->Reset () ; 
ULONG cFetched; 
IMoniker *pM; 
// 枚 举 每 个 视频 设备 
while (hr=pEm->Next (1, &pM, &cFetched),hr == S OK) 
t 
// 生 成 并 初始 化 管理 该 设备 的 过 滤器 
hr = pM->BindToObject (0, 0, IID IBaseFilter, (void**)&pVCap); 
if (pvCap == NULL) 
{ 
MessageBox (m hwnd, "Cannot get the capture filterr", 
"Error", MB OK); 
return; 
} 
HELPER RELEASE (pM) ; 
ulIndex++; 
} 
HELPER RELEASE (pEm) ; 


if (pVCap) 

hr = CappFg-»AddFilter(pVCap, NULL); // 添 加 过 滤器 到 Filter Graph 中 
if (hr != NOERROR) 
t 

MessageBox(m hwnd, "Cannot add vidcap to filtergraph", 

"Error", MB OK); 

return; 
} 
// 连 接 源 过 滤器 和 提交 过 滤器 
hr = CapPigb->RenderStream(&PIN CATEGORY PREVIEW, pVCap, NULL, NULL); 
if (hr !- S OK) 
t 


MessageBox(m hwnd, "This graph cannot preview properly", 
"Error", MB OK); 
return; 


} 
// 在 过 滤器 图 表 中 查找 一 个 与 捕 提 有 关 的 接口 
hr = CapPigb->FindInterface (&PIN CATEGORY PREVIEW, pVCap, 
IID IVideoWindow, (void**)&pivw); 
if (hr != NOERROR) 
t 
MessageBox (m hwnd, 
"cannot find Video Window properly", "Error", MB OK); 
return; 
) 
else 
t 
DisplayVideoWin(); // 显 示 视 频 播放 窗口 


// 查 询 数据 流 控制 接口 

hr = CappFg-»QueryInterface(IID IMediaControl, (void**) &pimc) ; 

if (SUCCEEDED (hr) 

{ 
hr = pimc->Run(); // 播 放 视频 

) 

else 

t 
MessageBox(m hwnd, "Cannot run preview graph", "Error", MB OK); 
return; 


) 


(4) 函数 PlayFromFile 用 于 播放 采集 的 视频 文件 ， 具 体 代码 如 下 : 


void CVideoPlay::PlayFromFile(CString szFile) 
t 

WCHAR wFile[MAX PATH]; 

HRESULT hr; 

MultiByteToWideChar(CP ACP, 0, szFile.GetBuffer( MAX PATH), 
-1, wFile, MAX PATH); 

SzFile.ReleaseBuffer(); 

// 创 建 过 滤器 图 表 生 成 器 接口 

CHECK ERROR(::CoCreateInstance(CLSID FilterGraph, NULL, 
CLSCTX INPROC SERVER, IID IGraphBuilder, (void**)&pigb), 
"CoCreateInstance Error"); 

// 查 询 数据 流 控制 接口 

pigb->QueryInterface(IID IMediaControl, (void**)&pimc); 

// 查 询 过 滤器 图 表 事件 接口 

hr = pigb->QueryInterface (IID IMediaEventEx, (void**)&pimex); 

// 查 询 视频 播放 窗口 接口 

pigb-»QueryInterface(IID IVideoWindow, (void**)&pivw); 

// 查 询 数据 流 位 置 接口 

hr = pigb->QueryInterface (IID IMediaPosition, (void**)&pmp); 

// 为 指定 的 多 媒体 文件 创建 一 个 过 滤器 图 表 进 行 处 理 


hr = pigb-»RenderFile (wFile, NULL); 
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// 得 到 视频 文件 的 播放 时 间 
if (SUCCEEDED (hr) ) 
hr = pmp->get Duration (&tLength); 
// 显 示 视 频 播放 窗口 
DisplayVideoWin(); 
if (SUCCEEDED (hr)) 
pimc-»Run(); // 播 放 
pimex-»SetNotifyWindow((OAHWND)m hwnd, WM PLAYOVER, 0); 
} 


(5) 函数 ResumePlay0 用 于 继续 播放 采集 的 视频 文件 ， 具 体 代 码 如 下 : 


void CVideoPlay: :ResumePlay() 
t 
HRESULT hr; 
// 得 到 当前 播放 位 置 
hr = pmp-»get CurrentPosition (&tCurrent); 
if (SUCCEEDED (hr)) 
t 
// 如 果 已 在 播放 文件 的 最 后 (播放 时 间 剩 下 不 到 1 分 钟 ) ， 当 前 位 置 回 到 文件 头 
if ((tRemain-tLength-tCurrent) < 1) 
pmp-»put CurrentPosition (0); 
// 不 在 文件 尾 ， 当 前 位 置 不 变 
else 
pmp-»put CurrentPosition (tCurrent) ; 
) 
if (pimc) 
pimc-»Run(); // 继 续 播 放 文件 
j 


(6) 函数 PausePlayO 用 于 暂停 播放 采集 的 视频 文件 ， 具 体 代 码 如 下 ; 


void CVideoPlay::PausePlay() 
{ 
if (pimc) 
pimc->Pause () ; 
} 


(7) 函数 StopPlay0 用 于 停止 播放 采集 的 视频 文件 ， 具 体 代码 如 下 : 


void CVideoPlay::StopPlay() 
{ 
if (pimc) 
{ 
// 停 止 播放 视频 
pimc-»Stop(); 
HELPER RELEASE (pimc) ; 
H 
if (pivw) 
{ 
// 关 闭 视频 播放 窗口 
pivw-»put Visible (OAFALSE) ; 
pivw-»put Owner (NULL); 
HELPER RELEASE (pivw); 
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} 
HELPER RELEASE (CapPigb) ; 
HELPER RELEASE (CappFg); 
HELPER RELEASE (pVCap); 

} 


(8) 函数 DisplayVideoWin0 用 于 显示 视频 播放 窗口 ， 具 体 代 码 如 下 : 


void CVideoPlay::DisplayVideoWin() 
t 
RECT grc; 
if (pivw) 
t 
// 设 置 窗口 所 有 者 
pivw-»put Owner((OAHWND)m hwnd); 
// 设 置 窗口 尺寸 
pivw-»put WindowStyle(WS CHILD|WS CLIPSIBLINGS|WS CLIPCHILDREN); 
// 设 置 窗口 位 置 
::GetClientRect (m hwnd, &grc);; 
pivw-»SetWindowPosition(grc.left, grc.top, grc.right, grc.bottom); 
// 显 示 窗 口 
pivw-»put Visible (OATRUE) ; 


123.3 ”数据 传递 

监控 主机 通过 视频 数据 发 送 模块 ， 将 现场 采集 到 的 数据 以 IP 组 播 的 形式 通过 计算 机 网 
络 发 送出 去 。 发 送 过 来 的 视频 数据 运行 在 监控 中 心 主机 端的 视频 数据 接收 播放 模块 。 此 模 
块 首先 将 数据 保存 起 来 便于 以 后 的 查询 和 播放 ， 另 外 还 要 实时 播放 出 来 ， 使 远程 现场 情景 
呈现 在 用 户 面前 ， 以 达到 远程 监控 的 目的 。 

1. 实现 控制 通道 

控制 通道 用 于 在 发 送 端 和 接收 端 之 间 建 立会 话 ， 为 了 提高 会 话 的 可 靠 性 ， 本 项 目的 控 
制 通道 将 采用 面向 连接 的 TCP 技术 。 

(1) 函数 InitSocket(): 此 函数 用 于 监听 Socket， 有 具体 代码 如 下 : 

// 建 立 监听 Socket 


DWORD CPlayApp::InitSocket () 
(i 


SOCKADDR IN send sin; 

int status; 

CMainFrame *pFrame; 

pFrame = (CMainFrame*)m pMainWnd; 
HWND m hwndRec = pFrame-»m hWnd; 
pFrame-»m bAutoMenuEnable - FALSE; 


// 创 建 一 个 Socket 
Lsock = socket (AF INET, SOCK STREAM, 0); 
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if (Lsock == INVALID SOCKET) 
{ 
ErrMsg(m hwndRec, "Socket failed"); 
return -1; 
} 
send sin.sin port = htons (1500); 
send_sin.sin_family = AF_INET; 
send sin.sin addr.s addr = INADDR ANY; 
/ [DEAS ds 3E BUE Sg E 
if (bind(Lsock, (struct sockaddr FAR*)&send sin, sizeof (send sin)) 
== SOCKET ERROR) 
t 
ErrMsg(m hwndRec, "bind failed"); 
closesocket (Lsock); 
return -1; 


} 

// 设 置 端口 状态 为 监听 

if (listen(Lsock,10) < 0) 

t 
ErrMsg(m hwndRec, "Listen failed"); 
closesocket (Lsock); 
return -1; 


} 
// 设 定 服务 器 响应 的 网 络 事件 为 FPD_ACCEPT， 即 程序 想 要 接收 数据 
// 产 生 相应 传递 给 窗口 的 消息 为 WSA_ACCEPT 
if ((status=WSAAsyncSelect (Lsock,m hwndRec,WSA ACCEPT,FD ACCEPT)) > 0) 
t 
ErrMsg(m hwndRec, "Error on WSAAsyncSelect () "); 
closesocket (Lsock); 
return -1; 
} 
return 0; 
} 


(2) 函数 OnAcceptO 用 于 响应 消息 WSA_ACCEPT， 接 受 连接 请 求 ， 与 接收 端 建立 连 
接 。 具 体 代码 如 下 : 


LRESULT CMainFrame::OnAccept (WPARAM wParam, LPARAM lParam) 
{ 
int acsock; 
int status; 
if (WSAGETSELECTERROR (lParam)) 
return -1; 
if (WSAGETSELECTERROR(lParam) — 0) 
{ /* Success */ 
int req sin len = sizeof (req sin); 


// 接 受 客户 的 连接 请 求 
acsock = accept (Lsock, (struct sockaddr FAR*)&req sin, 
(int FAR*)&req sin len); 
if (acsock « 0) 
{ 
MessageBox ("Cant Accepted a connection!"); 
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return -1; 


H 
// 设 定 服务 器 响应 的 网 络 事件 为 FD READ BRED CLOSE， 即 读 取 数据 或 关闭 socket 
// 产 生 相应 传递 给 窗口 的 消息 为 WSA_READ 
if ((status-WSAAsyncSelect (acsock, m hWnd, 
WSA READ,FD READ|FD CLOSE)) < 0) 
t 
MessageBox ("Error on WSAAsyncSelect ()"); 
closesocket (acsock) ; 
return -1; 
) 


) 
return 0; 


) 


(3) 函数 OnRead0 用 于 响应 消息 WSA_READ， 对 网 络 事件 FD READ fil FD CLOSE 
进行 处 理 。 具 体 代码 如 下 : 


LRESULT CMainFrame: :OnRead (WPARAM wParam, LPARAM lParam) 
t 
int status; 
char szRev[80]; 
char szBuff[80]; 
char szSend[80]; 
strcpy(szSend, MULTIDESTADDR) ; 
strcat(szSend, strDESTPORT) ; 
if (WSAGETSELECTERROR (lParam) ) 
return -1; 
if (WSAGETSELECTEVENT (lParam) == FD READ) 
{// 网 络 事件 为 FD_READ 
// 接 收 数据 
status = recv(wParam, szRev, 80,0); 
if (status) 
{ 
// 如 果 客 户 端 请 求 发 送 数据 ， 将 组 播 地 址 和 端口 发 送 给 客户 端 
if (strcmp(szRev, "请 发 送 数据 ") == 0) 
t 
sprintf(szBuff, "KA$%s 请 求 数据 "， inet ntoa(req sin.sin addr)); 
MessageBox(szBuff, "Client Request Data", MB OK); 
// 发 送 组 播 地 址 和 端口 给 客户 端 
send(wParam, szSend, sizeof(szSend), 0); 
) 
} 
else 
if (status == 0) 
MessageBox ( 
"Connection was closed by client", "Server", MB_OK); 
} 
else 
{ // 网 络 事件 为 FED CLOSE 
// 表 示 对 方 已 接收 到 地 址 信息 
MessageBox (" 可 以 发 送 数据 "， "success", MB OK); 
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// 关 闭 socket 
closesocket ( (SOCKET) wParam) ; 


} 
return 


0; 


2. 实现 数据 通道 


数据 通道 上 


协议 的 。 


于 实现 视频 流 数据 通信 ， 在 此 使 用 IP 组 播 技术 实现 ， 此 技术 是 基于 UDP 


(1) 函数 InitMultiSocket0) 用 于 初始 化 人 P 组 播 套 接 字 ， 具 体 代码 如 下 : 


int CPlayApp::InitMultiSocket () 


t 


int SendBuf; 


DWORD cbRet; 

int status; 

BOOL bFlag; 

SOCKADDR IN SrcAddr; 

CMainFrame *pFrame = (CMainFrame*)m pMainWnd; 
HWND m hwnd = pFrame-»m hWnd; 


// 创 建 一 个 IP 组 播 套 接 字 
MultiSock = WSASocket(AF INET, SOCK DGRAM, IPPROTO UDP, 
(LPWSAPROTOCOL INFO)NULL, 0, 
WSA FLAG MULTIPOINT C LEAF | WSA FLAG MULTIPOINT D LEAF); 
if (MultiSock == INVALID SOCKET) 


{ 


ErrMsg(m hwnd, "WSASocket Error"); 
return -1; 


} 
// 设 置 套 接 字 为 可 重用 端口 地 址 
bFlag = TRUE; 


Status 


= setsockopt ( 
MultiSock, 

SOL SOCKET, 

SO REUSEADDR, 
(char*) &bFlag, 
sizeof (bFlag)); 


if (status == SOCKET ERROR) 


{ 


ErrMsg(m hwnd, "setsockopt Error"); 
return -1; 


} 


// 将 套 接 字 绑扎 到 用 户 指定 端口 及 默认 的 接口 
SrcAddr.sin family = AF INET; 
SrcAddr.sin port - htons (DESTPORT); 
SrcAddr.sin addr.s addr = INADDR ANY; 


status 


= bind( 

MultiSock, 

(struct sockaddr FAR *) &SrcAddr, 
sizeof (struct sockaddr) ); 
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if (status == SOCKET ERROR) 
{ 
ErrMsg(m hwnd, "bind Error"); 
return -1; 
} 
DIP TTL = 2; ”// 允 许 跨 网 传播 
// 设置 多 址 广播 数据 报 传播 范围 ， 允 许 跨 网 传播 
status = WSRAIoct1 (MultiSock, 
SIO MULTICAST SCOPE, 
&nIP TTL, 
sizeof (nIP TTL), 
NULL, 
0, 
&cbRet, 
NULL, 
NULL); 
if (status) 
t 
ErrMsg(m hwnd, "WSAIoctl Error"); 
return -1; 


} 
// 允许 内 部 回 送 (LOOPBACK) 
bFlag = TRUE; 
status = WSAIoctl (MultiSock, 
SIO MULTIPOINT LOOPBACK, 
&bFlag, 
sizeof (bFlag), 
NULL, 
0, 
&cbRet, 
NULL, 
NULL); 
if (status) 
{ 
ErrMsg(m hwnd, "WSAIoctl Error"); 
return -1; 


} 
// 设 定 发 送 缓冲 区 为 64KB 
SendBuf = 65536; 
status = setsockopt ( 
MultiSock, 
SOL SOCKET, 
SO SNDBUF, 
(char*) &SendBuf, 
sizeof (SendBuf) ) ; 
if (status == SOCKET ERROR) 
{ 
ErrMsg(m hwnd, "setsockopt Error"); 
return -1; 
} 
// 测 试 设 定 的 发 送 缓冲 区 是 否 为 64KB 


int ASendBuf; 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


Socket */ 

LoopBack on or off */ 
input */ 

size */ 

output */ 

size */ 

bytes returned */ 
overlapped */ 
completion routine */ 
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int SLen = sizeof (ASendBuf); 
status = getsockopt (MultiSock, SOL SOCKET, 
SO SNDBUF, (char*)&ASendBuf, &SLen); 


if (status — SOCKET ERROR) 
t 
ErrMsg(m hwnd, "setsockopt Error"); 
return -1; 
} 
if (status == 0) 
{ 
if (ASendBuf != 65536) 
return -1; 
} 
DestAddr.sin family = AF INET; 
DestAddr.sin port = htons (DESTPORT) ; 
DestAddr.sin addr.s addr = inet addr (MULTIDESTADDR) ; 
return 0; 
} 


(2) 函数 SendData0 用 于 发 送 组 播 数据 ， 具 体 代 码 如 下 : 


DWORD SendData (LPWSABUF stWSABuf) 
{ 

CString msg; 

DWORD cbRet; 


cbRet = 0; 
CPlayApp *pApp = (CPlayApp*) AfxGetApp () ; 
// 向 指定 地 址 发 送 数据 
int status = WSASendTo(MultiSock,  /* socket */ 
StWSABuf, /* output buffer structure */ 
5 /* buffer count */ 
&cbRet, /* number of bytes sent */ 
0, /= flags */ 
(struct sockaddr FAR *)&DestAddr, /* destination address */ 
sizeof (DestAddr) , /* size of addr structure */ 
NULL, /* overlapped structure */ 
NULL) ; /* overlapped callback function */ 


if (status == SOCKET ERROR) 


{ 
AfxMessageBox ("WSASendTo() Error"); 
return -1; 


} 
return cbRet; 


} 

(3) FileSendThread() 是 视频 文件 发 送 线程 ，OnPopFileSend0 用 于 OnPopFileSend(). E 
述 两 个 函数 的 具体 实现 代码 如 下 : 

// 视 频 文件 发 送 线程 


UINT FileSendThread(LPVOID pParam) 


t 
CFile hFile; 


DWORD dwFlags; 

DWORD SendLen; 

DWORD dwReadLength; 
DWORD dwBytesRead; 

int status; 

WSABUF SendBuf; 
dwReadLength = BUFSIZE; 


// 分 配 发 送 缓冲 区 
SendBuf.buf = (char*)malloc (BUFSIZE); 


status - hFile.Open(SendFilePath, CFile::modeRead); 
dwFlags = MMIO CREATE | MMIO WRITE; 
if(status == 0) 
t 
// 释 放 发 送 缓冲 区 
free (SendBuf.buf); 
return -1; 
} 
else 
{ 
while (1) 
{ 
// 每 次 读数 据 32KB 
dwBytesRead = hFile.Read(SendBuf.buf, dwReadLength); 
if(dwBytesRead == 0) 
{// 发 送 完 成 


// 关 闭 文件 
hFile.Close(); 
// 释 放 发 送 缓冲 区 
free (SendBuf .buf) ; 
AfxMessageBox (" 发 送 完成 ") ; 
break; 

} 

SendBuf.len = dwBytesRead; 

// 发 送 数据 

SendLen = SendData (&SendBuf); 


if(::WaitForSingleObject(g eventFileStopSend,0) == WAIT OBJECT 0 
t 
hFile.Close(); 
free (SendBuf.buf); 
AfxMessageBox (" 停 止 发 送 ") ; 
break; 
H 
Sleep (250) ; 
} 


} 

// 文 件 发 送 标志 置 为 FALSE 
m FileSend = FALSE; 
return 0; 


E 
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// 响 应 发 送 视频 文件 命令 
void CPlayView: :OnPopFileSend () 
i 
// TODO: Add your command handler code here 
CFileDialog dlg(TRUE, NULL, NULL, NULL, 
"mpeg 文 件 (* mpg) | * mpg] AVI Xf (*.avi)|*.avi"); 
dlg.m ofn.lpstrTitle = "打开 多 媒体 文件 "; 
if(dlg.DoModal() == IDOK) 
{ 
SendFilePath = dlg.GetPathName (); 
m FileSend = TRUE; 
// 开 始 文件 发 送 线程 
AfxBeginThread (FileSendThread, NULL); 
CMainFrame *pFrame = (CMainFrame*)AfxGetApp()-»m pMainWnd; 
pFrame->m_wndStatusBar.SetPaneText (1，" 在 发 送 文件 数据 ") ; 


) 


(4) 函数 OnReadyRealSend0 用 于 响应 WM. READYSEND 消息 ， 启 动 发 送 线程 。 有 具体 
代码 如 下 : 
LRESULT CPlayView: :OnReadyRealSend (WPARAM wParam, LPARAM lParam) 
t 
LPWSABUF stWSABuf; 
StWSABuf = (LPWSABUF)GlobalAllocPtr (GHND, sizeof (WSABUF) ) ; 
stWSABuf-»buf = (char*)malloc (BUFSIZE); 
if (g pBuffer) 
g pBuffer-»PopOut ((LPSTR)stWSABuf-»buf, BUFSIZE); 
StWSABuf-»len = BUFSIZE; 
::WaitForSingleObject(g eventRealSend, INFINITE); 
AfxBeginThread (RealSendThread, stWSABuf); 
return 0; 
} 


(5) 函数 OnPopRealSend0) 用 于 响应 实时 发 送 命令 ， 具 体 代码 如 下 : 


void CPlayView: :OnPopRealSend() 
t 
DWORD dwFlags; 
// 如 果 视 频 流 缓冲 区 尚未 建立 ， 分 配 视频 流 缓冲 区 
if (!g pBuffer) 
g pBuffer = new CAV8Buffer(BLOCKNUM, BLOCKLEN); 
// 如 果 当 前 不 在 实时 采集 数据 ， 启 动 视频 采集 卡 采集 数据 
if((!m RealSend) && (!m Capture) 
t 
if(InitDriver() « 0) 
return; 
} 
// 打 开 一 个 本 地 存放 文件 
dwFlags = MMIO CREATE | MMIO WRITE; 
hmmioSendOutput = mmioOpen("temp.mpg", (LPMMIOINFO)NULL, dwFlags); 
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// 实 时 发 送 标志 置 为 TRUE 

m RealSend = TRUE; 

// 设 置 实时 发 送 事件 就 绪 

g eventRealSend.SetEvent () ; 

CMainFrame *pFrame — (CMainFrame*)AfxGetApp()-»m pMainWnd; 
pFrame->m_wndStatusBar.SetPaneText (1，" 在 发 送 实时 数据 ") ; 


12.3.4 数据 接收 


数据 接收 是 本 项 目 中 的 一 个 重要 模块 ， 本 项 目的 数据 接收 模块 是 一 个 多 路 解码 模块 ， 
支持 接收 多 录 视 频数 据 。 接 下 来 开始 讲解 本 项 目 中 数据 接收 模块 的 具体 实现 流程 。 
(1) 函数 OnRequestO0 用 于 响应 “接收 请 求 ” 命 令 。 有 具体 代码 如 下 : 


void CMainFrame: :OnRequest () 


t 


) 


// TODO: Add your command handler code here 

RECT rect; 

CRevPlayMDIChildWnd *pRevPlayMDIChildWnd = new CRevPlayMDIChildWnd; 

GetClientRect (&rect) ; 

// 调 用 子 框架 窗口 的 创建 函数 

if (!pRevPlayMDIChildWnd-»Create( T(" 接 收 播放 ") ，rect，this) ) 
return; 


Q) 函数 Create0 用 于 调用 子 窗口 的 创建 函数 。 有 具体 代码 如 下 : 


BOOL CRevPlayMDIChildWnd::Create(LPCTSTR szTitle, const RECT &rect, 


t 


} 


CMDIFrameWnd *parent) 


if (menu.m hMenu == NULL) 
menu. LoadMenu (IDR REVPLAY) ; 

m hMenuShared = menu.m hMenu; 

// 创 建 子 窗口 

if (!CMDIChildWnd::Create(NULL, szTitle, 

WS CHILD | WS VISIBLE | WS OVERLAPPEDWINDOW, rect, parent)) 

return FALSE; 

// 生 成 UI 线程 对 象 

CRevPlayThread *pRevPlayThread = new CRevPlayThread (m hWnd); 

// 创 建 线程 

pRevPlayThread-»CreateThread(); 

return TRUE; 


(3) 函数 InitInstance 用 于 实现 初始 化 工作 ， 有 具体 代码 如 下 : 


BOOL CRevPlayThread::InitInstance() 


{// 创 建 接收 播放 窗口 


CWnd *pParent = CWnd::FromHandle (m hwndParent); 
CRect rect; 

CoInitialize (NULL); 

pParent-»GetClientRect (&rect); 


// 创 建 接收 播放 窗口 
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BOOL bReturn = m wndRevPlay.Create (_T ("接收 播放 ") E 
WS CHILD | WS VISIBLE, rect, pParent); 
72:3 m pMainWnd 设置 为 新 创建 的 CRevPlaywnd 窗口 
// 保 证 当 CRevPlayWnd 窗口 被 删除 时 ， 线 程 被 自动 删除 
if (bReturn) 
m pMainWnd = &m wndRevPlay; 
return bReturn; 
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(4) 函数 Connect( 一 一 当 在 连接 对 话 框 中 输入 发 送 端 IP 地 址 并 单 击 “ 确 定 ”按钮 时 


= 


此 函数 ， 该 函数 的 具体 代码 如 下 : 
int CRevPlayWnd::Connect(HWND hwnd, const char *Addr, 
short Port, int &sock) 
t 
SOCKADDR IN send sin; 
int status; 
// 创 建 一 个 socket 
Sock = socket (AF INET, SOCK STREAM, 0); 


if (sock == INVALID SOCKET) 
t 
MessageBox ("Socket Error"); 
closesocket (sock) ; 
return -1; 
} 
else 
{ 
send sin.sin family = AF INET; 
send sin.sin addr.s addr = inet_addr (Addr) ; 
send sin.sin port = htons (Port); 
// 设 置 响应 的 网 络 事件 为 FD CONNECT， 即 建立 连接 
// 发 送 WSA CONNECT 消息 给 窗口 
Status = WSAAsyncSelect(sock, hwnd, WSA CONNECT, FD CONNECT); 


if(status « 0) 

{// 连 接 建 立 失败 ， 关 闭 Socket 
MessageBox ("Error on WSAAsyncSelect ()"); 
WSAAsyncSelect (sock, hwnd, 0, 0); 
closesocket (sock) ; 
return -1; 


H 


// 连 接 发 送 端 
connect (sock, (struct sockaddr FAR *)&send sin, sizeof (send sin)); 
int error = WSAGetLastError(); 
// 有 阻塞 ， 弹 出 等 待 对 话 框 
if (error — WSAEWOULDBLOCK) 
WaitDlg.DoModal (); 
return 0; 


(5) 函数 OnConnect0O 用 于 响应 WSA_CONNECT 消息 ， 具 体 代 码 如 下 : 


LRESULT CRevPlayWnd::OnConnect (WPARAM wParam, LPARAM lParam) 
t 
int status; 
int SendLen; 
int socket; 
char szRev[80]; 
char szBuff[80]; 
char Msg[] = "请 发 送 数据 "7 
u long block = 0; 
Socket = (SOCKET) wParam; 
if (WSAGETSELECTERROR (lParam) ) 
{// 建 立 连 接 失败 
MessageBox (" 不 能 连接 服务 器 "， "连接 失败 "，MB_OK) ; 
if (WaitDlg) 
WaitDlg.EndDialog (IDCANCEL) ; 
// 关 闭 Socket 
closesocket (socket) ; 
return -1; 
} 
if (WSAGETSELECTEVENT (lParam) == FD CONNECT) 
{// 成 功 建立 连接 
if (WaitDlg) 
WaitDlg.EndDialog (IDCANCEL) ; 
// 发 送 请 求 发 送 数据 命令 给 发 送 端 
SendLen = send(socket, Msg, sizeof(Msg), 0); 
if(SendLen != sizeof (Msg) ) 
{// 请 求 数据 发 送 失败 
MessageBox (" 请 求 错误 "， "Send"); 
closesocket (socket) ; 
return -1; 
} 
if (SendLen == sizeof (Msg) ) 
{ 
WSAAsyncSelect (socket, m hWnd, 0, 0); 
status = ioctlsocket (socket, FIONBIO, &block); 
if (status == SOCKET ERROR) 
{ 
sprintf(szBuff, "Err: $d", WSAGetLastError()); 
MessageBox (szBuff) ; 
return -1; 


} 

// 接 收 数据 

Status = recv(socket, szRev, sizeof(szRev), 0); 

if (status) 

t 
// 得 到 组 播 IP 地 址 和 端口 
sscanf (szRev, "%s%d", strDestAddr, &DestPort); 
sprintf(szBuff，" 请 加 入 组 :ss, 端口 :$d"，strDestAddr, DestPort); 
MessageBox(szBuff, "接收 请 求 ") ; 
sprintf (szBuff，" 接 收 播放 :组 :$s, 端 口 :$d"， 
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} 
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strDestAddr, DestPort); 
::SetWindowText (GetParent ()->m hWnd, szBuff); 
/ KH Socket 
closesocket (socket) ; 
) 
if(status == 0) 
t 
MessageBox (" 对 方 关闭 连接 ") ; 
closesocket (socket) ; 
return T 


) 
return 0; 


(6) 函数 InitMultiSock0 用 于 建立 一 个 组 播 套 接 字 ， 根 据 控制 通道 达到 的 发 送 端 组 播 
IP 地 址 和 端口 加 入 到 该 组 播 组 。 具 体 实现 代码 如 下 : 


void CRevPlayWnd: : InitMultiSock () 


{ 


int RevBuf; 
int status; 
BOOL bFlag; 
CString ErrMsg; 
SOCKADDR IN stLocalAddr; 
SOCKADDR IN stDestAddr; 
SOCKET hNewSock; 
int RevLen = sizeof (RevBuf) ; 
// 创 建 一 个 IP 组 播 套 接 字 
MultiSock = WSASocket (AF INET, SOCK DGRAM, IPPROTO UDP, 
(LPWSAPROTOCOL INFO)NULL, 0, 
WSA FLAG MULTIPOINT C LEAF | WSA FLAG MULTIPOINT D LEAF); 
if (MultiSock == INVALID SOCKET) 
{ 
MessageBox ("WSASocket () failed"); 
return; 


} 

// 人 允许 对 同一 地 址 bind 多 次 
bFlag = TRUE; 

Status = setsockopt( 


MultiSock, /* socket */ 

SOL_SOCKET, /* socket level */ 
SO REUSEADDR, /* socket option */ 
(char*) &bFlag, /* option value */ 
sizeof (bFlag) ); /* size of value */ 


if (status == SOCKET ERROR) 

{ 
ErrMsg.Format ("set SO REUSEADDR failed, Err: %d", WSAGetLastError()); 
MessageBox (ErrMsg) ; 
return; 
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// 将 套 接 字 绑 定 到 用 户 指定 端口 
stLocalAddr.sin family = AF INET; 
// stLocalAddr.sin port = htons(DestPort) ; 
stLocalAddr.sin port = htons(201); 
stLocalAddr.sin addr.s addr = INADDR ANY; 
status = bind( 
MultiSock, 
(struct sockaddr FAR *) &stLocalAddr, 
sizeof (struct sockaddr) ); 


if (status == SOCKET_ERROR) 
{ 
ErrMsg.Format ("Bind(socket: %d, port: %d) failed, Err: $d", 
MultiSock, DestPort, WSAGetLastError()); 
MessageBox (ErrMsg) ; 


} 

// 设 定 接收 缓冲 区 为 64KB 
RevBuf = 65536; 
status = setsockopt ( 


MultiSock, /* socket */ 

SOL SOCKET, /* socket level */ 
SO RCVBUF, /* socket option */ 
(char*) &RevBuf, /* option value */ 
sizeof (RevBuf) ) ; /* size of value */ 


if (status == SOCKET ERROR) 

{ 
MessageBox ("set SO_REVBUF error") ; 
return; 

} 


// 加 入 组 播 组 

stDestAddr.sin family = PF INET; 

stDestAddr.sin port = htons (201); 

stDestAddr.sin addr.s addr - inet addr("234.5.6.7"); 

hNewSock = WSAJoinLeaf (MultiSock, /* socket */ 
(PSOCKADDR)&stDestAddr, /* multicast address */ 


sizeof (stDestAddr), /* length of addr struct */ 
NULL, /* caller data buffer */ 

NULL, /* callee data buffer */ 

NULL, /* socket QOS setting */ 

NULL, /* socket group QOS */ 


JL RECEIVER ONLY); /* do both: send *and* receive */ 
if (hNewSock == INVALID SOCKET) 


{ 
ErrMsg. Format ("WSAJoinLeaf() failed, Err: $d", WSAGetLastError()); 


MessageBox (ErrMsg); 


} 


stWSABuf 中 。 具 体 代 码 


xl 


(7) 函数 ReceiveData(0 用 于 接收 组 播 数据 ， 并 存放 到 缓冲 
如 下 : 


int CRevPlayWnd: :ReceiveData() 


$ 
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{// 接 收 组 播 数据 
Cstring msg; 
int status; 
DWORD cbRet; 
DWORD dFlag; 
int iLen; 
SOCKADDR IN stSrcAddr; 
cbRet = 0; 
iLen = sizeof (stSrcAddr) ; 
dFlag = 0; 
// 接 收 组 播 数据 ， 存 放 到 缓冲 区 stWSABuf 中 
status = WSARecvFrom(MultiSock, /* socket */ 


&stWSABuf, /* input buffer structure */ 

qi /* buffer count */ 

&cbRet, /* number of bytes recv'd */ 
&dFlag, 7* flags */ 

(struct sockaddr *)&stSrcAddr, /* source address */ 
&iLen, /* size of addr structure */ 

NULL, /* overlapped structure */ 

NULL); /* overlapped callback function */ 


if (status == SOCKET ERROR) 

t 
BRER, FRB BOM 1 
m LostBlock++; 
msg.Format ("WSARecvFrom() failed, Err:%d", WSAGetLastError()); 
MessageBox (msg) ; 
return -1; 

} 

return cbRet; 

} 


(8) 定义 类 CMemStream, jt CAsyncStream 的 子 类 ， 使 用 DirectShow 提供 的 MPEGI 
来 解码 所 有 的 Filter。 类 CMemStream 的 具体 实现 代码 如 下 : 


class CMemStream : public CAsyncStream 
t 
public: 
CRevPlayWnd *pwnd; // 接 收 播放 窗口 指针 
public: 
BOOL PeekAndPump(); 
CMemStream(LPBYTE pbData, LONGLONG llLength, 
DWORD dwKBPerSec-INFINITE) : 
m pbData (pbData), 
m llLength (llLength), 
m llPosition(0), 
m dwKBPerSec (dwKBPerSec) 
t 
m dwTimeStart = timeGetTime(); 


} 

// 设 置 当 前 位 置 

HRESULT SetPointer(LONGLONG 11Pos) 
{ 
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} 
// 当 MPEG1 Stream Splitter 请 求 数据 时 ， 由 Read 函数 提供 
HRESULT Read(PBYTE pbBuffer, 

DWORD dwBytesToRead, 

BOOL bAlign, 

LPDWORD pdwBytesRead) 


{ 


if (11Pos<0 || 11Pos>m llLength) ( 
return S FALSE; 

) else ( 
m 11Position = 11Pos; 
return S OK; 


} 


CAutoLock lck(&m csLock) ; 
DWORD dwReadLength, cbRet; 
DWORD dwTime = timeGetTime(); 
// 如 果 要 求 读 取 的 字 节 数 大 于 剩余 的 字 节 数 ， 则 只 直接 读 取 剩 余 的 字 节 
if (m 11Position+dwBytesToRead > m llLength) 
t 
dwReadLength = (DWORD) (m llLength - m llPosition); 
} 
else 
t 
dwReadLength = dwBytesToRead; 


DWORD dwTimeToArrive = 
((DWORD)m llPosition + dwReadLength) / m dwKBPerSec; 
if (dwTime-m dwTimeStart « dwTimeToArrive) ( 
Sleep(dwTimeToArrive - dwTime * m dwTimeStart); 
ii 
static int rwIndex = 0; 
static int Block = pWnd->Block; 
int temp = pWnd->rIndex; 
// 将 存放 接收 的 数据 缓冲 区 数组 中 的 数据 拷贝 到 pbBuffer 中 ， 传 给 splitter 
CopyMemory ( (PVOID) pbBuffer, 
(PVOID) (pWnd-»pRevMem[rwIndex]), pWnd->RevLen) ; 
rwIndex = (rwIndex + 1) % 100; 
TRACE1 ("Read Addr = $dWMn", rwIndex); 
cbRet = pWnd->RevLen; 


/* 

else 

t 
if (Block — 0) 
t 


CopyMemory ((PVOID)pbBuffer, (PVOID) (m pbData), 
dwReadLength) ; 
Block ++; 

} 

else 
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CopyMemory ( (PVOID) pbBuffer, 
(PVOID) (m pbData + dwReadLength), dwReadLength); 
Block = 0; 
} 
CbRet = dwReadLength; 
} 
oy 


// 当 前 位 置 向 后 移 读 出 的 字 节 数 
m llPosition += cbRet; 
*pdwBytesRead - cbRet; 
if (cbRet !- dwReadLength) 

m llLength - m llPosition; 
return S OK; 


} 
// 得 到 当前 的 数据 总 长 度 
LONGLONG Size(LONGLONG *pSizeAvailable) 
t 
LONGLONG llCurrentAvailable = 
Int32x32To64((timeGetTime() - m dwTimeStart),m dwKBPerSec); 
*pSizeAvailable = min(m llLength, llCurrentAvailable); 
return m llLength; 
) 
DWORD Alignment () 
t 
// 按 1 字 节 对 齐 
return 1; 
} 
void Lock() 
t 
m csLock.Lock(); 
} 
void Unlock() 
{ 
m csLock.Unlock(); 
} 


} 


(9) 函数 InitGraphOH T-FJ££ Filter Graph。 首 先 创 建 Source Filter， 然 后 创建 Filter 
Graph 组 件 ， 并 将 Source Filter 加 入 到 Filter Graph 中 ， 最 后 获得 需要 的 接口 。 函 数 


InitGraphO 的 具体 实现 代码 如 下 : 


int CRevPlayWnd: :InitGraph () 

{//ti# Filter Graph 
HRESULT hr; 
hr = S OK; 
// 设 置 媒 体 类 型 ， 为 MPEG1 数据 流 
mt.majortype — MEDIATYPE Stream; 
mt.subtype = MEDIASUBTYPE MPEG1System; 
//8]& Source Filter 
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m pStream = new CMemStream(achInBuf, 0x80000000, INFINITE); 
m pStream-»pWnd = this; 
m rdr = new CMemReader (m pStream, &mt, &hr); 


if(FAILED(hr) || m_rdr==NULL) 

t 
MessageBox ("CMemReader Error"); 
return -1; 


m rdr -> AddRef(); 

// 创 建 Filter Graph 

CHECK ERROR(CoCreateInstance(CLSID FilterGraph, NULL, CLSCTX INPROC, 
IID IFilterGraph, (void**)&m pifg), "CoCreateInstance Error") ; 

// 将 Source Filter 加 入 到 Filter Graph 中 

CHECK ERROR(m pifg->AddFilter(m rdr,NULL), "AddFilter Error"); 

// 查 询 IGraphBuilder 接口 

CHECK_ERROR (m_pifg->QueryInterface (IID IGraphBuilder, 
(void**)&m pigb), "QueryInterface(IGraphBuilder) Error"); 

m pigb-»AddRef(); 

// 查 询 IMediacontrol 接口 

CHECK_ERROR (m_pigb->QueryInterface (IID IMediaControl, 
(void**)&m pimc), "QueryInterface(IMediaControl) Error"); 

m pimc-»AddRef () ; 

// 查 询 TVideoWindow 接口 

CHECK_ERROR (m_pigb->QueryInterface (IID_IVideoWindow, 
(void**)&m pivw), "QueryInterface(IVideoWindow) Error"); 

m_pivw->AddRef () ; 

// 查 询 IMediaPosition 接口 

CHECK_ERROR (m_pigb->QueryInterface (IID_IMediaPosition, 
(void**)&m ppos), "QueryInterface(IMediaPosition) Error"); 

m ppos-»AddRef () ; 

return 0; 


) 


(10) 函数 OnRevPlay0 用 于 响应 “接收 并 播放 ”命令 ， 具 体 实现 代码 如 下 : 


void CRevPlayWnd: :OnRevPlay() 
ü 
// TODO: Add your command handler code here 
int status; 
// 建 立 组 播 Socket， 加 入 组 播 组 
InitMultiSock(); 
// 设 置 响应 的 网 络 事件 为 FD READ， 即 读数 据 
// 发 送 WSA READ 消息 给 窗口 
status = WSAAsyncSelect (MultiSock, m hWnd, WSA READ, FD READ); 
if(status « 0) 
t 
MessageBox("Error on WSAAsyncSelect ()"); 
closesocket (MultiSock); 
return; 


} 
// 初 始 化 存放 接收 数据 的 缓冲 区 


$ 


} 
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for (int i=0; i<100; i++) 
pRevMem[i] = new BYTE[BUFSIZE]; //32KB 
m Receive = TRUE; 


(11) 函数 OnRead0 用 于 响应 WSA READ 消息 ， 调 用 函数 ReceiveData() 以 接收 组 播 数 
据 ， 并 将 接收 的 数据 存放 到 缓冲 区 stWSABuf 中 。 函 数 OnRead0 的 具体 实现 代码 如 下 : 


LRESULT CRevPlayWnd::OnRead(WPARAM wParam, LPARAM lParam) 


{ 


DWORD dwRet; 
REFTIME fTime; 
REFERENCE TIME llClock; 
HRESULT hr; 
RECT rect; 
// 接 收 组 播 数 据 ， 存 放 到 缓冲 区 stWSABuf 中 
RevLen = ReceiveData(); 
// 将 缓冲 区 stwsABuf 中 的 数据 拷贝 到 存放 接收 的 数据 的 数组 pRevMem rh, 
// 以 供 Directshow 读 取 
CopyMemory ( (PVOID) pRevMem[rIndex], (PVOID)stWSABuf.buf, RevLen); 
rlIndex = (rIndex + 1) $ 100; 
// 将 接收 到 的 数据 保存 到 文件 中 
if (hmmioSave) 
mmioWrite(hmmioSave, stWSABuf.buf, RevLen); 
if(m FirstRead) 
{// 如 果 是 第 一 次 接收 到 数据 ， 启 动 DirectShow 
fTime = 0.0; 
dwRet Parse((PBYTE)stWSABuf.buf, stWSABuf.len, &llClock); 


fTime = 11Clock / 90000.0; 
if(dwRet == 0) 

return -1; 
if(InitGraph() == -1) 


return -1; 
if (abs(dwRet-2048000) <= 16000) ( 
RenderFrom((PBYTE)achInBuf, "2mpal.dat"); 


if (abs(dwRet-1152000) «- 16000) ( 
RenderFrom((PBYTE)achInBuf, "lmpal.dat") ; 


if (abs (dwRet-512000) <= 16000) { 
RenderFrom((PBYTE)achInBuf, "512pal.dat"); 


if (abs(dwRet-256000) <= 16000) ( 
RenderFrom((PBYTE)achInBuf, "256pal.dat"); 
H 
Block = 0; 
// 使 用 智能 连接 ， 将 Source Filter 的 输出 Pin 连 出 去 
if (FAILED (hr=m pigb->Render (m rdr-»GetPin(0)))) 
{ 
if (hr!=VFW S AUDIO NOT RENDERED 
&& hr!-VFW E NO AUDIO HARDWARE) 
{ 
MessageBox ("Render Error"); 


WSAAsyncSelect(MultiSock, m hWnd, WSA READ, 0); 
HELPER RELEASE (m pifg); 

HELPER RELEASE (m pigb); 

HELPER RELEASE (m pimc); 

HELPER RELEASE (m pivw) ; 

HELPER RELEASE (m ppos); 

return -1; 


} 


) 
m RenderOk = true; 
// 设 置 视频 窗口 属性 
m pivw->put Owner ( (OAHWND)m hWnd); 
m pivw-»put WindowStyle( 
WS CHILD | WS CLIPSIBLINGS | WS CLIPCHILDREN); 
GetClientRect (&rect) ; 
m pivw-»SetWindowPosition( 
rect.left, rect.top, rect.right, rect.bottom); 
// 开 始 播放 
m pimc-»Run(); 
m ppos-»put CurrentPosition(fTime + 0.4); 
m Stop = TRUE; 
) 
m FirstRead = FALSE; 
return 0; 
) 


到 此 为 止 ， 整 个 项 目 中 的 核心 模块 已 经 介绍 完毕 ， 至 于 其 他 次 要 部 分 的 代码 ， 建 议 读 
者 参考 本 书 附带 光盘 中 的 源 代码 。 执 行 之 后 的 效果 如 图 12-2 所 示 。 
FT I 
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12-2 ”执行 效果 
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| 网 络 电 话 系 统 = 


网 络 普及 给 人 们 的 生活 带 来 了 巨大 的 变化 ， 视 频 聊天 、 远 程 会 
议 、 远 程 监控 等 应 用 逐渐 走 进 了 人 们 的 日 常生 活 和 商务 应 用 中 。 我 
们 知道 电话 通信 需要 花费 一 定 的 通信 费用 ， 为 了 节约 通信 成 本 ， 可 
基于 网 络 开发 一 个 话 系统 ， 用 电脑 实现 通话 功能 。 在 本 : 


Tt \ X X 
Visual CH 网 络 编程 开发 与 实战 


13.1 网 络 电话 系统 基础 


在 介绍 项 目 实现 之 前 ， 很 有 必要 讲解 与 网 络 电话 系统 相关 的 基础 知识 ， 这 些 知 识 将 为 
读者 步 入 本 章 后 面 知识 的 学 习 打 下 基础 。 


13.1.1 什么 是 网 络 电话 


网 络 电话 又 称 为 VOIP 电话 ， 是 通过 互联 网 直接 拨打 对 方 的 固定 电话 和 手机 ， 包 括 国 
内 长 途 和 国际 长 途 ， 而 且 资费 比 用 传统 电话 拨打 便宜 5 到 10 倍 。 从 宏观 上 讲 ， 可 以 分 为 
软件 电话 和 硬件 电话 。 软 件 电话 就 是 在 电脑 上 下 载 软 件 ， 然 后 购买 网 络 电话 卡 ， 通 过 耳麦 
实现 与 对 方 ( 固 话 或 手机 ) 通 话 ; 硬件 电话 比较 适合 公司 、 话 吧 等 使 用 ， 首 先 要 有 一 个 语音 
网 关 ， 网 关 一 边 接 到 路 由 器 上 ， 另 一 边 接 到 普通 的 话机 上 ， 然 后 普通 话机 即 可 直接 通过 网 
络 自由 呼出 了 。 


13.1.2 网络 电话 原理 


网 络 电话 通过 把 语音 信号 经 过 数字 化 处 理 压缩 编码 打包 ， 经 过 网 络 传输 ， 然 后 解压 ， 
把 数字 信号 还 原 成 声音 ， 让 通话 对 方 听 到 。 话 音 从 源 端 到 达 目 的 端的 基本 过 程 如 下 。 

(1) 声 电 转换 : 通过 压 电 陶瓷 等 类 似 装 置 将 声波 变换 为 电信 号 。 

Q) 量化 采样 : 将 模拟 电信 号 按照 某 种 采样 方法 (比如 脉冲 编码 调制 ， 即 PCM) 转 换 成 
数字 信号 。 

(3) 封包 : 将 一 定时 长 的 数字 化 之 后 的 语音 信号 组 合 为 一 帧 ， 随 后 ， 按 照 国 际 电 联 
(GTU-D 的 标准 ， 这 些 话音 帧 被 封装 到 一 个 RTP( 即 实时 传输 协议 ，Realtime Transport 
Protocol) 报 文中 ， 并 被 进一步 封装 到 UDP 报 文 和 他 报 文中 。 

(4) 传输 : IP 报 文 在 IP 网 络 由 源 端 传递 到 目的 端 。 

(5) 语音 网 关 : 使 普通 电话 能 够 通过 网 络 进行 通话 的 电子 设备 。 根 据 使 用 电话 的 部 数 
有 一 口语 音 网 关 、 两 口语 音 网 关 、 四 口语 音 网 关 、 八 口语 音 网 关 等 。 


13.1.3 ”实现 方式 


网 络 电话 实现 方式 有 如 下 3 种 。 

(1) PC to PC: 这 种 方式 适合 那些 拥有 多 媒体 电脑 (声卡 须 为 全 双 工 的 ， 配 有 麦 殉 风 ) 并 
且 可 以 连 上 互联 网 的 用 户 ， 通 话 的 前 提 是 双方 电脑 中 必须 安装 有 同 套 网 络 电话 软件 。 

这 种 网 上 点 对 点 方式 的 通话 ， 是 IP 电话 应 用 的 雏形 ， 它 的 优点 是 相当 方便 与 经 济 ， 但 
缺点 也 是 显而易见 的 ， 即 通话 双方 必须 事先 约定 时 间 同 时 上 网 ， 而 这 在 普通 的 商务 领域 中 
就 显得 相当 麻烦 ， 因 此 这 种 方式 不 能 商用 化 或 进入 公众 通信 和 领域 。 

(2) PC to Phone: Bt IP 电话 的 优点 逐步 被 人 们 认识 ， 许 多 电信 公司 在 此 基础 上 进行 
了 开发 ， 从 而 实现 了 通过 计算 机 拨打 普通 电话 。 作 为 呼叫 方 的 计算 机 ， 要 求 具备 多 媒体 功 
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E， 能 连接 上 因特网 ， 并 且 要 安装 了 P 电话 的 软件 。 拨 打从 电脑 到 市 话 类 型 的 电话 的 好 处 是 
显而易见 的 ， 被 叫 方 拥 有 一 台 普 通电 话 即 可 ， 但 这 种 方式 除了 付 上 网 费 和 市 话费 用 外 ， 还 
必须 向 IP 电话 软件 公司 付费 。 目 前 这 种 方式 主要 用 于 拨打 到 国外 的 电话 ， 但 是 这 种 方式 仍 
旧 十 分 不 方便 ， 无 法 满足 公众 随时 通话 的 需要 。 

(3) Phone to Phone: 这 种 方式 即 “电话 拨 电 话 ”， 需 要 IP 电话 系统 的 支持 。IP 电话 
系统 一 般 由 三 部 分 构成 电话 、 网 关 和 网 络 管理 者 。 电 话 是 指 可 以 通过 本 地 电话 网 连 到 
本 地 网 关 的 电话 终端 ; 网关 是 Internet 网 络 与 电话 网 之 间 的 接口 ， 同 时 它 还 负责 进行 语音 
压缩 ! 网 络 管理 者 负责 用 户 注册 与 管理 ， 具 体 包括 对 接 入 用 户 的 身份 认证 、 呼 叫 记录 及 详 
细 数 据 ( 用 于 计 费 ) 等 。 现 在 各 电信 营运 商 纷 纷 建立 了 自己 的 P 网 络 来 争夺 国内 市 场 ， 它 们 
均 以 电话 记 账 卡 的 方式 实现 从 普通 电话 机 到 普通 电话 机 的 通话 。 这 种 方式 在 充分 利用 现在 
电话 线路 的 基础 上 ， 满 足 了 用 户 随 时 通信 的 需要 ， 是 一 种 比较 理想 的 人 P 电话 方式 。 


13.2 设计 界面 


实例 功能 使 用 Visual C++ 开发 一 个 简单 的 网 络 电话 


源码 路 径 3¢4%\yuanma\13\NETPHONE 


13.21 准备 素材 


为 了 使 界面 美观 大 方 ， 提 前 准备 好 需要 的 素材 图 片 ， 使 用 这 些 素材 图 片 作为 项 目的 背 
景 和 操作 按钮 。 本 项 目的 素材 图 片 保存 在 “RES” 目 录 下 ， 如 图 13-1 所 示 。 
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13-1 ”素材 图 片 


13.2.2 ”创建 工程 


打开 Visual C++ 6.0， 创 建 一 个 名 为 “NETPHONE” 的 MFC 工程 ， 然 后 分 别 创建 如 下 
两 个 窗 体 。 


(1) ID 为 “IDD ABOUTBOX” 的 窗 体 ， 如 图 13-2 所 示 。 
(2) ID Jj *IDD NETPHONE DIALOG” 的 窗 体 ， 如 图 13-3 所 示 。 


图 13-2 IDD ABOUTBOX 图 13-3 IDD_NETPHONE_DIALOG 


(3) 在 创建 的 工程 中 添加 Windows 多 媒体 库 的 支持 ， 方 法 是 依次 单 击 Visual C++ 6.0 
菜单 中 的 Project Add To Project 一 Components and Controls 选项 ， 如 图 13-4 Br. 


13-4 添加 Windows 多 媒体 库 的 支持 


(4) 选择 Windows Multimedia library， 然 后 单 击 Insert 按钮 ， 这 样 就 在 工程 中 添加 了 
对 Windows 多 媒体 库 的 引用 ， 如 图 13-5 所 示 。 


图 13-5 选择 Windows Multimedia library 
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13.3 具体 编码 


了 解 了 网 络 电话 系统 的 原理 和 实现 方式 ， 并 设计 好 窗 体 之 后 ， 接 下 来 开始 步 入 正式 编 
码 阶 段 。 在 本 节 的 内 容 中 ， 将 详细 讲解 本 实例 的 编码 过 程 。 


13.3.1 定义 公共 变量 


在 文件 NetPhoneDlg.cpp 中 定义 系统 中 经 常 使 用 的 公共 变量 ， 例 如 缓冲 区 大 小 和 录音 
句柄 等 。 具 体 代码 如 下 : 


#include "stdafx.h" 

#include "NetPhone.h" 

#include "NetPhoneDlg.h" 

#include "mmsystem.h" // 音频 相关 函数 所 需 头 文件 
#include "SocketServer.h" 

#include "SocketClient.h" 


#ifdef DEBUG 

#define new DEBUG NEW 

#undef THIS FILE 

static char THIS FILE[] = FILE ; 
#endif 


define INP BUFFER SIZE 4096 // 缓冲 区 大 小 


#define WM Nc 1001 // 最 小 到 系统 托盘 区 时 自 定义 消息 
$define IDC NC 1002  // 托 构 区 NOTIFYICONDATA 结构 对 应 资源 号 


static HWAVEIN hWaveIn ; // 录音 设备 句柄 
static HWAVEOUT hWaveOut ; // 播放 设备 句柄 
static PBYTE pBufferIn[2]; // 用 于 接收 和 播放 的 两 块 缓冲 区 
static PBYTE pBufferout[2];  // 用 于 发 送 和 录音 的 两 块 缓冲 区 


static PWAVEHDR è pWaveHdrIn[2];  // 用 于 录音 的 PWAVEHDR 结构 数组 
static PWAVEHDR ”pWaveHdrout[2]; // 用 于 播放 的 PWAVEHDR 结构 数组 


static WAVEFORMATEX waveform ; // 用 于 打开 音频 设备 的 WAVEFORMATEX 结构 
int nIn = 0; // pBufferIn[2] 中 ， 当 前 播放 缓冲 区 号 

int nout = 0; // pBufferout [2] 中 ， 当 前 录音 缓冲 区 号 

int nComState = 1; // 用 于 显示 通话 状态 信息 的 变量 

BOOL bDisconnectState = TRUE;  // 是 否 处 于 未 连接 状态 

BOOL bBtnConnectDown = FALSE; // “连接 ”按钮 是 否 被 按 下 

BOOL bServerState = FALSE; // 是 否 处 于 服务 器 端 状态 

BOOL bClientstate = FALSE; // 是 否 处 于 客户 端 状态 

BOOL bMinistate = FALSE; // 是 否 处 于 最 小 化 状态 


CSocketServer Socket Server; // 接收 套 接 字 
CSocketClient Socket Client; // 发 送 套 接 字 
CSocketServer Socket Listen; // 侦 听 套 接 字 
CString LocalIP; // 本 机 rp 地 址 
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CString sRemoteIP; // 远 端 主机 IP 地 址 
Cstring sAck; // 储存 远 端 机 器 应 答 信息 
char cAck[15]; // 储存 远 端 机 器 应 答 信息 


在 文件 NetPhoneDlg.h 中 定义 了 CDialog 类 的 子 类 CNetPhoneDlg， 然 后 规划 初始 化 处 
理 函 数 ， 并 定义 系统 中 需要 的 各 个 变量 。 具 体 实现 代码 如 下 : 
class CNetPhoneDlg : public CDialog 
t 
// Construction 
public: 
void InitBitmapButton(); // 初始 化 按钮 控件 变量 函数 
void SetupRegion(CDC *pDC, UINT BackBitmapID, UINT MaskBitmapID, 
COLORREF TransColor); // 区 域 处 理 函 数 
BOOL InitAudioDevice(); // 初始 化 音频 设备 函数 


void RecordBegin(); // 开始 录音 函数 
void OnReceive(); 
CNetPhoneDlg (CWnd *pParent=NULL) ; // standard constructor 


//{{AFX DATA (CNetPhoneDlg) 
enum ( IDD = IDD NETPHONE DIALOG }; 
CStatic m staInformation;// 用 于 显示 通话 状态 信息 的 IDC_STATIC_RECEIVE 控件 变量 


CString m sServerIP; // 被 呼叫 主机 1p 地 址 

BOOL m bFirstMini; // 程序 开始 运行 时 是 否 处 于 最 小 化 状态 
BOOL m bFirstRunBitmap; // 是 否 运行 过 SetupRegion () 
BOOL m bFirstRunAudio; // 是 否 运行 过 InitAudioDevice () 
int m Left; // 窗口 左上 角 X 方 向 坐标 

int m Top; // 窗口 左上 角 工 方向 坐标 

int m Width; // 背景 位 图 宽度 

int m Height; // 背景 位 图 高 度 

UINT m BackBitmapID; // 背景 (模板 ) 位 图 ID (本 例 程 中 背景 位 图 和 模板 位 图 用 同一 幅 图 像 ) 
UINT m FrameWidth; // 窗口 边框 宽度 

UINT m CaptionHeight; // 窗口 标题 栏 高 度 

UINT m MaskLeftoff; // 模板 处 理 区 域 与 窗口 左边 框 距离 
UINT m MaskRightOff; // 模板 处 理 区 域 与 窗口 右边 框 距离 
UINT m MaskTopOff; // 模板 处 理 区 域 与 窗口 上 边框 距离 


UINT m MaskBottomoff; // 模板 处 理 区 域 与 窗口 下 边框 距离 


CBitmapButton *m pBtnConnect; // “连接 ”按钮 控件 变量 
CBitmapButton *m pBtnCommunicate; // “通话 ”按钮 控件 变量 
CBitmapButton *m pBtnDisconnect;  // “ 断 开 ”按钮 控件 变量 
CBitmapButton *m pBtnHelp; // “帮助 ”按钮 控件 变量 
CBitmapButton *m pBtnExit; // “退出 ”按钮 控件 变量 
CBitmapButton *m pBtnMinimize; // “最 小 化 ”按钮 控件 变量 


13.3.2 ”创建 窗口 函数 


(1) 重 载 系统 默认 背景 擦 除 函 数 
重 载 系统 默认 背景 擦 除 函数 其 实 就 是 添加 WM_ERASEBKGND 消息 处 理 函 数 ， 函 数 
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OnEraseBkgnd() 的 具体 实现 代码 如 下 : 


// WM ERASEBKGND 消息 处 理 函数 
BOOL CNetPhoneD1g: :OnEraseBkgnd (CDC *pDC) 
t 
CRect rect; 
CDC memDC; 
CBitmap cBitmap; 
CBitmap *pOldMemBmp=NULL; 
// 得 到 窗口 区 域 
GetWindowRect (&rect) ; 
// 加 载 背景 位 图 
cBitmap.LoadBitmap (m BackBitmapID); 
memDC.CreateCompatibleDC (pDC); 
pOldMemBmp = memDC.SelectObject (&cBitmap) ; 


// 将 背景 位 图 复制 到 窗口 客户 区 
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pDC->BitB1lt (0, 0, rect.Width(), rect.Height(), &memDC, 0, 0, SRCCOPY); 


if (pOldMemBmp) 
memDC.SelectObject (poldMemBmp) ; 
return TRUE; 
// 删除 系统 默认 的 OnEraseBkgnd () 函数 功能 
// return CDialog::OnEraseBkgnd (pDC) ; 
5 


// WM NCHITTEST 消息 响应 函数 ， 当 鼠标 移动 、 按 下 或 者 放 开 时 此 消息 被 发 送 给 Window 
UINT CNetPhoneD1g: :OnNcHitTest (CPoint point) 
{ 
UINT nHitTest = CDialog: :OnNcHitTest (point); 
return (nHitTest==HTCLIENT) ? HTCAPTION : nHitTest; 
// 删除 系统 默认 的 onNCHitTest () 函数 功能 
// return CDialog: :OnNcHitTest (point); 
) 


Q) 添加 去 预 处 理 判断 标志 


当 模 板 位 图 比较 大 时 ， 为 了 避免 重复 处 理 ， 在 函数 OnPaint0 中 添加 一 个 判断 标志 。 函 


A OnPaint0 的 具体 实现 代码 如 下 : 


void CNetPhoneD1g: :OnPaint () 

if (IsIconic()) 

{ 
CPaintDC dc (this); 
SendMessage (WM ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0); 
int cxIcon = GetSystemMetrics (SM CXICON) ; 
int cyIcon = GetSystemMetrics (SM CYICON) ; 
CRect rect; 
GetClientRect (&rect) ; 
nt £ (rect.Width() - cxIcon + 1) / 2; 
int y (rect.Height() - cyIcon + 1) / 2; 
dc.DrawIcon(x, y, m hIcon); 


y 


13.3.3 


else 


// m bFirstRunBitmap 使 得 SetupRegion 只 在 程序 启动 时 被 调用 一 次 
if(m bFirstRunBitmap) 
t 
BeginWaitCursor(); 
// 区 域 处 理 ， 设 置 透明 区 域 颜色 为 黑色 
SetupRegion (GetWindowDC (), IDB BACKBITMAP, 
IDB BACKBITMAP, 0x00000000); 
EndWaitCursor (); 
m bFirstRunBitmap = FALSE; 
} 
CDialog: :OnPaint (); 


设置 音频 设备 


(1) 定义 函数 InitAudioDevice()， 用 于 初始 化 波形 音频 设备 。 具 体 代码 如 下 : 


BOOL CNetPhoneDlg::InitAudioDevice() 


t 


// 初始 化 waveform 


waveform.wFormatTag = WAVE FORMAT PCM ; // 采样 方式 ， PCM (脉冲 编码 调制 ) 
waveform.nChannels = 2; // 双 声 道 
waveform.nSamplesPerSec = 11025; // 采样 率 11.025KHz 
waveform.nAvgBytesPerSec = 11025; // 数据 率 11.025KB/s 
waveform.nBlockAlign = 2; // 最 小 块 单元 , wBitsPerSampleXnChannels/8 
waveform.wBitsPerSample = 8; // 样本 大 小 为 8bit 
waveform.cbSize = 0; // 附加 格式 信息 
// 准备 pWaveHdrIn fll ptaveHdrOut 
for(int HdrNum-0; HdrNum<=1; HdrNum++) 
{ 

// 为 缓冲 区 分 配 内 存 

pBufferIn[HdrNum] - (PBYTE)malloc(INP BUFFER SIZE); 

pBufferOut[HdrNum] = (PBYTE)malloc(INP BUFFER SIZE); 

if (!pBufferIn[HdrNum] || !pBufferOut [HdrNum]) 


t 
if (pBufferIn[HdrNum]) 
free (pBufferIn[HdrNum]); 
if (pBufferOut [HdrNum]) 
free (pBufferIn[HdrNum]); 
AfxMessageBox (_T(" 内 存 分 配 失败 ! "), 
MB ICONINFORMATION|MB OK, NULL); 
} 
pWaveHdrIn[HdrNum] = new WAVEHDR; 
pWaveHdrOut[HdrNum] = new WAVEHDR; 


pWaveHdrOut[HdrNum]-»lpData = (char*)pBufferIn[HdrNum]; 
pWaveHdrOut[HdrNum]-»dwBufferLength = INP BUFFER SIZE; 
pWaveHdrOut [HdrNum]-»dwBytesRecorded = 0; 
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pWaveHdroOut [HdrNum] ->dwUser = 07 

pWaveHdrOut [HdrNum]-»dwFlags — WHDR BEGINLOOP | WHDR ENDLOOP; 
pWaveHdroOut [HdrNum]-»dwLoops = l; 

pWaveHdrOut [HdrNum] ->lpNext = NULL; 

pWaveHdrOut [HdrNum] ->reserved = 0; 

pWaveHdrIn [HdrNum] ->lpData = (char*) pBufferOut [HdrNum]; 
pWaveHdrIn[HdrNum]-»dwBufferLength = INP BUFFER SIZE; 
pWaveHdrIn[HdrNum]-»dwBytesRecorded = 0; 

pWaveHdrIn [HdrNum] ->dwUser = 0; 

pWaveHdrIn [HdrNum] ->dwF lags = IDR BEGINLOOP | WHDR ENDLOOP; 
pWaveHdrIn [HdrNum] ->dwLoops = 17 

pWaveHdrIn HdrNum]-»1pNext - b; 

pWaveHdrIn [HdrNum] ->reserved = 0; 


} 
// 打开 播放 波形 音频 设备 
MMRESULT result; 
result - waveOutOpen(&hWaveOut, WAVE MAPPER, &waveform, 
(DWORD)pDlg-»m hWnd, 0, CALLBACK WINDOW); 
// 打开 录制 波形 音频 设备 
if(result == MMSYSERR NOERROR) 
result = wavelnOpen(&hWaveIn, WAVE MAPPER, &waveform, 
(DWORD)pDlg-»m hWnd, 0, CALLBACK WINDOW); 
// 为 播放 和 录音 准备 
for(int Prepare-0; Prepare<=1; Prepare++) 
{ 
if (result == MMSYSERR NOERROR) 
result = 
waveOutPrepareHeader ( 
hWaveOut, pWaveHdrOut [Prepare], sizeof (WAVEHDR)); 
if (result == MMSYSERR NOERROR) 
result = waveInPrepareHeader ( 
hWaveIn, pWaveHdrIn[Prepare], sizeof (WAVEHDR) ) ; 


} 
// 设置 音量 为 最 大 
if (result == MMSYSERR_NOERROR) 
result = waveOutSetVolume (hWaveOut, 65535); 
// 成 功 返 回 TRUE 
if (result == MMSYSERR_NOERROR) 
{ 
return TRUE; 
} 
else 
{ 
AfxMessageBox ( 
_T(" 打 开 波 形 音频 设备 时 发 生 错 误 ! "), MB ICONINFORMATION | MB OK, NULL); 
return FALSE; 


) 
(2) 定义 用 于 开始 录音 处 理 的 函数 ， 具 体 代码 如 下 : 


Visual C++ 网 络 编程 开发 与 实 上 


void CNetPhoneDlg: :RecordBegin () 
{ 
// 准备 录音 缓冲 区 
wavelnAddBuffer(hWaveIn, pWaveHdrIn[nOut], sizeof (WAVEHDR)); 
// 开始 录音 
waveInStart (hWaveIn); 
d 


(3) 定义 函数 ON MM WIM _ OPENO， 这 是 一 个 MM WIM OPEN 消息 处 理 函 数 ， 
在 开始 录音 时 产生 。 具 体 代码 如 下 : 


void CNetPhoneDlg::ON MM WIM OPEN () 
{ 
} 


(4) 定义 函数 ON MM. WIM DATA0， 这 是 一 个 MM WIM DATA 消息 处 理 函 数 ， 
在 缓冲 区 满 时 产生 。 有 具体 代码 如 下 : 


void CNetPhoneDlg::ON MM WIM DATA() 
t 
// 发 送 缓冲 区 中 录制 的 音频 数据 
Socket Client.Send(pBufferOut[nOut], INP BUFFER SIZE); 
// 缓冲 区 循环 
nOut = 1 - nOut; 
if (bDisconnectState == TRUE) 
t 
waveInClose (hWaveIn); 
} 
else 
{ 
// 开始 下 一 轮 录音 


RecordBegin(); 
) 


(5) 定义 函数 ON_MM_WIM_CLOSEO， 这 是 一 个 MM WIM CLOSE 消息 处 理 函 
数 ， 在 关闭 录音 设备 时 产生 。 具 体 代码 如 下 : 
void CNetPhoneDlg::ON MM WIM CLOSE () 
t 
wavelnUnprepareHeader (hWaveIn, pWaveHdrIn[0], sizeof (WAVEHDR)); 


wavelnUnprepareHeader (hWaveIn, pWaveHdrIn[1], sizeof (WAVEHDR)); 
waveInClose (hWaveIn); 


hWaveIn = NULL; //clear it 
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(6) 定义 函数 ON. MM. WOM _ OPENO， 这 是 一 个 MM. WOM OPEN 消息 处 理 函 数 ， 
在 打开 播放 设备 时 产生 。 有 具体 代码 如 下 : 
void CNetPhoneDlg::ON MM WOM OPEN () 
d 
// 接收 对 方 发 送 过 来 的 音频 数据 


Socket Server.Receive((void*)pBufferIn[nIn], INP BUFFER SIZE); 


$ 
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// 播放 接收 缓冲 区 中 的 音频 数据 
waveOutWrite (hWaveOut, pWaveHdrOut[nIn], sizeof (WAVEHDR) ); 
nīn = 1 -= nin; 
// 显示 通话 状态 
if (nComState == 1) 
::SetDlgItemText (pDlg-»m hWnd, IDC STATIC INFORMATION, "通话 中 ") ; 
else 
::SetDlgItemText (pDlg-»m hWnd, IDC STATIC INFORMATION, ""); 
nComState++; 
if (nComState == 10) 
ncomState = 1; 


13.3.4 网 络 通信 


(1) 在 文件 SocketServer.cpp 中 实现 接受 类 CSocketServer 的 具体 功能 。 
首先 引用 公共 文件 ， 然 后 定义 类 CSocketServer， 具 体 代码 如 下 : 


#include "stdafx.h" 
#include "NetPhone.h" 
#include "SocketServer.h" 
#include "NetPhoneDlg.h" 
#ifdef DEBUG 

#define new DEBUG NEW 
#undef THIS FILE 

static char THIS FILE[] 
#endif 

#define WM NC 1001 


FILE ; 


extern CSocketServer Socket Server; 
extern CSocketServer Socket Listen; 
extern CNetPhoneDlg *pDlg; 

extern BOOL bBtnConnectDown; 
extern BOOL bServerState; 

extern BOOL bClientState; 

extern BOOL bDisconnectState; 
extern BOOL bMiniState; 

extern CString sRemoteIP; 

extern CString sAck; 

extern char cAck[15]; 
CSocketServer: :CSocketServer () 

{ 

} 


CSocketServer: :~CSocketServer () 
{ 

Close (); 
$ 


然后 开始 编写 各 个 响应 函数 的 具体 实现 ， 先 编写 函数 OnAccept(), ， 这 是 一 个 
FD ACCEPT 网 络 事件 处 理 函数 ， 在 收 到 连接 请 求 时 发 生 。 具 体 代 码 如 下 : 
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void CSocketServer: :OnAccept (int nErrorCode) 
{ 
// Socket Server 套 接 字 接 受 连 接 请 求 
Accept(Socket Server); 
// 错误 信息 处 理 
if (0 != nErrorCode) 
t 
switch( nErrorCode) //nErrorCode 为 错误 码 
t 
case WSANOTINITIALISED: 
AfxMessageBox("A successful AfxSocketInit must occur before using 
this API.\n"); 
break; 
case WSAENETDOWN: 
AfxMessageBox("The Windows Sockets implementation detected that 
the network subsystem failed.\n"); 
break; 
case WSAEFAULT: 
AfxMessageBox("The lpSockAddrLen argument is too small.\n"); 
break; 
case WSAEINPROGRESS: 
AfxMessageBox (" 
A blocking Windows Sockets call is in progress. n"); 
break; 
case WSAEINVAL: 
AfxMessageBox("Listen was not invoked prior to accept. Wn"); 
break; 
case WSAEMFILE: 
AfxMessageBox("The queue is empty upon entry to accept and there 
are no descriptors available. Wn"); 
break; 
case WSAENOBUFS: 
AfxMessageBox("No buffer space is available. Mn"); 
break; 
case WSAENOTSOCK: 
AfxMessageBox("The descriptor is not a socket. An"); 
break; 
case WSAEOPNOTSUPP: 
AfxMessageBox("The referenced socket is not a type that supports 
connection-oriented service. Mn"); 
break; 
case WSAEWOULDBLOCK: 
AfxMessageBox("The socket is marked as nonblocking and no 
connections are present to be accepted. Win"); 
break; 
default: 
TCHAR szError[256]; 
wsprintf(szError, "OnAccept error: $d", nErrorCode); 
AfxMessageBox(szError, MB ICONINFORMATION | MB OK, NULL); 
break; 
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// 若是 被 呼叫 端 ，“ 连 接 ” 按 钮 未 被 按 下 ， 即 bBtnconnectDown=FALSE 
// 收 到 连接 请 求 时 ， 播 放 铃声 并 显示 通知 信息 通知 被 呼叫 端 用 户 
if(bBtnConnectDown — FALSE) 
t 
UINT RemotePort = 5000; 
// 得 到 呼叫 端 ITP 地 址 及 端口 
Socket Server.GetPeerName (sRemoteIP, RemotePort); 
// 播放 铃声 
PlaySound("PhoneIn.wav", NULL, SND SYNC); 
// 设置 各 个 按钮 状态 
pDlg-»GetDlgItem(IDC BUTTON COMMUNICATE) -»EnableWindow (TRUE) ; 
pDlg-»GetDlgItem(IDC BUTTON DISCONNECT)-»EnableWindow (TRUE); 
pDlg-»SetDlgItemText(IDC BUTTON DISCONNECT, " 拒 $E"); 
// 在 对 话 框 IDC STATIC INFORMATION 控件 中 显示 通知 信息 
::SetDlgItemText (pDlg-»m hWnd, IDC STATIC INFORMATION, 
sRemoteIP + "有 电话 呼叫 您 ") ; 
} 


// 程序 是 否 处 于 最 小 化 状态 ， 是 的 话 ， 最 大 化 程序 窗口 ， 通 知 用 户 有 呼叫 进入 
if(bMinistate == TRUE) 
t 
::SendMessage (pDlg-»m hWnd, WM NC, 0, WM LBUTTONDBLCLK) ; 
) 
CAsyncSocket : :OnAccept (nErrorCode) ; 
} 


编写 函数 OnReceive0， 这 是 一 个 FD READ 网 络 事件 处 理 函 数 ， 在 有 数据 到 达 时 发 
生 。 有 具体 代码 如 下 : 


void CSocketServer::OnReceive (int nErrorCode) 
t 
// 错误 信息 处 理 
if (0 != nErrorCode) 
t 
Switch( nErrorCode) //nErrorCode 为 错误 码 
{ 
case WSANOTINITIALISED: 
AfxMessageBox ("A successful AfxSocketInit must occur before using 
this API.\n"); 
break; 
case WSAENETDOWN: 
AfxMessageBox("The Windows Sockets implementation detected that 
the network subsystem failed.\n"); 
break; 
case WSAENOTCONN: 
AfxMessageBox("The socket is not connected. An"); 
break; 
case WSAEINPROGRESS: 
AfxMessageBox("A blocking Windows Sockets operation is in 
progress. Mn"); 
break; 
case WSAENOTSOCK: 
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AfxMessageBox ("The descriptor is not a socket.\n"); 
break; 
case WSAEOPNOTSUPP: 
AfxMessageBox ("MSG OOB was specified, but the socket is not of 
type SOCK _STREAM.\n"); 
break; 
case WSAESHUTDOWN: 
AfxMessageBox ("The socket has been shut down. in"); 
break; 
case WSAEWOULDBLOCK: 
AfxMessageBox ("The socket is marked as nonblocking and the 
Receive operation would block.\n"); 
break; 
case WSAEMSGSIZE: 
AfxMessageBox ("The datagram was too large to fit into the 
specified buffer and was truncated.\n"); 
break; 
case WSAEINVAL: 
AfxMessageBox("The socket has not been bound with Bind. Wn"); 
break; 
case WSAECONNABORTED: 
AfxMessageBox("The virtual circuit was aborted due to timeout or 
other failure. Mn"); 
break; 
case WSAECONNRESET: 
AfxMessageBox ( 
"The virtual circuit was reset by the remote side. \n"); 
break; 
default: 
TCHAR szError[256]; 
wsprintf(szError, "OnReceive error: %d", nErrorCode) ; 
AfxMessageBox (szError) ; 
break; 
} 


} 
// 若是 呼叫 端 ， 则 “连接 ”按钮 被 按 下 ， 自 动 进 入 客户 端 状态 ， 
// 即 bBtnConnectDown=TRUE H. bClientState-TRUE 
// 接收 到 来 自 被 呼叫 端的 应 答 信息 ， 判 断 是 否 电话 被 接听 
if(bBtnConnectDown--TRUE && bClientState--TRUE && bServerState--FALSE) 
t 
// 接收 15 个 字 节 信息 
Receive(cAck, 15); 
SAck.Format("$s", cAck); 
// 如 果 接 收 到 的 被 呼叫 端 发 送 的 15 个 字 节 信息 为 “ABCDEFGHIJKLMNO”， 表 示 电 话 被 接听 
if(sAck == "ABCDEFGHIJKLMNO") 
{ 
bServerState = TRUE; 
::SetDlgItemText (pDlg-»m hWnd, 
IDC STATIC INFORMATION, "恭喜 恭喜 ， 电 话 被 接听 ") ; 
::SendMessage (pDlg-»m hWnd, 
WM COMMAND, IDC BUTTON COMMUNICATE, 0); 


else 
t 


::SetDlgItemText (pDlg-»m hWnd, 
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IDC STATIC INFORMATION, "不 好 意思 ， 对 方 拒 接 电话 ") ; 


bServerState = FALSE; 
) 


} 

// 如 果 用 户 同时 处 于 通话 状态 (客户 端 状态 十 服务 器 端 状 态 ) ， 
// 则 调用 对 话 框 的 onReceive () 函数 播放 接收 到 的 音频 数据 
if(bClientState--TRUE && bServerState--TRUE) 


t 


if(bDisconnectState == FALSE) 


pDlg-»OnReceive|(); 
} 


CAsyncSocket : :OnReceive (nErrorCode); 


} 


(2) 在 文件 SocketClient.cpp 中 实现 发 送 类 CSocketClient 的 具体 功能 。 首 先 引用 公共 
文件 ， 具 体 代 码 如 下 : 


#include "stdafx.h" 
#include "NetPhone.h" 
#include "SocketClient.h" 
#include "NetPhoneDlg.h" 
#ifdef  DEBUG 

#define new DEBUG NEW 
fundef THIS FILE 


static char THIS FILE[] = _ FILE ; 


#endif 


// CSocketClient 
CSocketClient: :CSocketClient () 
{ 

} 

CSocketClient: :~CSocketClient () 
{ 

Close (); 
} 


然后 定义 函数 OnConnect(int nErrorCode)， 这 是 一 个 FD_CONNECT 网 络 事件 处 理 函 


在 连接 成 功 时 发 生 。 有 具体 代码 如 下 : 


void CSocketClient::OnConnect (int nErrorCode) 


{ 
if (0 != nErrorCode) 
{ 
switch (nErrorCode) 
{ 
case WSAEADDRINUSE: 


AfxMessageBox ("The specified address is already in use.\n"); 


break; 
case WSAEADDRNOTAVAIL: 


AfxMessageBox ("The specified address is not available from the 


local machine. Wn"); 


break; 
case WSAEAFNOSUPPORT: 
AfxMessageBox("Addresses in the specified family cannot be used 


with this socket.\n"); 


break; 
case WSAECONNREFUSED: 
AfxMessageBox ( 
"The attempt to connect was forcefully rejected.\n"); 
break; 
case WSAEDESTADDRREQ: 
AfxMessageBox ("A destination address is required.\n"); 
break; 
case WSAEFAULT: 
AfxMessageBox ("The lpSockAddrLen argument is incorrect.\n"); 
break; 
case WSAEINVAL: 
AfxMessageBox ("The socket is already bound to an address.\n"); 
break; 
case WSAEISCONN: 
AfxMessageBox ("The socket is already connected. Wn"); 
break; 
case WSAEMFILE: 
AfxMessageBox ("No more file descriptors are available.\n"); 
break; 
case WSAENETUNREACH: 
AfxMessageBox ( 


"The network cannot be reached from this host at this time.\n"); 


break; 
case WSAENOBUFS: 


AfxMessageBox ("No buffer space is available. The socket cannot be 


connected. Wn") ; 


break; 
case WSAENOTCONN: 
AfxMessageBox("The socket is not connected. n"); 
break; 
case WSAENOTSOCK: 
AfxMessageBox("The descriptor is a file, not a socket. Wn"); 
break; 
case WSAETIMEDOUT: 
AfxMessageBox("The attempt to connect timed out without 


establishing a connection. Mn"); 


} 


break; 

default: 
TCHAR szError[256]; 
wsprintf(szError, "OnConnect error: %d", nErrorCode) ; 
AfxMessageBox (szError, MB ICONINFORMATION | MB OK, NULL); 
break; 


CAsyncSocket: :OnConnect (nErrorCode) ; 
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接 下 来 定义 函数 OnSend(int nErrorCode)， 这 是 一 个 FD WRITE 网 络 事件 处 理 函 数 ， 
在 有 数据 发 送 时 发 生 。 有 具体 代码 如 下 : 
void CSocketClient::OnSend(int nErrorCode) 
t 
if (0 != nErrorCode) 
t 
switch(nErrorCode) //Send Error 
{ 
case WSANOTINITIALISED: 
AfxMessageBox ( 
"A successful AfxSocketInit must occur before using this API.\n"); 
break; 
case WSAENETDOWN: 
AfxMessageBox ("The Windows Sockets implementation detected that 
the network subsystem failed.\n"); 
break; 
case WSAEACCES: 
AfxMessageBox ("The requested address is a broadcast address, but 
the appropriate flag was not set.\n"); 
break; 
case WSAEINPROGRESS: 
AfxMessageBox ( 
"A blocking Windows Sockets operation is in progress.\n"); 
break; 
case WSAENETRESET: 
AfxMessageBox ("The connection must be reset because the Windows 
Sockets implementation dropped it.\n"); 
break; 
case WSAENOBUFS: 
AfxMessageBox ("The Windows Sockets implementation reports a 
buffer deadlock.\n"); 
break; 
case WSAENOTCONN: 
AfxMessageBox ("The socket is not connected. Mn"); 
break; 
case WSAENOTSOCK: 
AfxMessageBox ("The descriptor is not a socket.\n"); 
break; 
case WSAEOPNOTSUPP: 
AfxMessageBox ("MSG OOB was specified, but the socket is not of 
type SOCK STREAM. Nn"); 
break; 
case WSAESHUTDOWN: 
AfxMessageBox ("The socket has been shut down.\n"); 
break; 
case WSAEWOULDBLOCK: 
AfxMessageBox ("The socket is marked as nonblocking and the 
requested operation would block.\n"); 
break; 
case WSAEMSGSIZE: 
AfxMessageBox ("The socket is of type SOCK DGRAM, and the datagram 
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is larger than the maximum supported by the Windows Sockets implementation. 
Mn"); 


break; 
case WSAEINVAL: 
AfxMessageBox("The socket has not been bound with Bind. Wn"); 
break; 
case WSAECONNABORTED: 
AfxMessageBox("The virtual circuit was aborted due to timeout or 
other failure.\n"); 
break; 
case WSAECONNRESET : 
AfxMessageBox ( 
"The virtual circuit was reset by the remote side. \n"); 
break; 
default: 
TCHAR szError[256]; 
wsprintf(szError, "OnSend error: $d", nErrorCode) ; 
AfxMessageBox (szError, MB ICONINFORMATION | MB OK, NULL); 
break; 


) 
CAsyncSocket : :OnSend (nErrorCode) ; 


13.3.5 BHF Mle ER ET 
在 文件 NetPhoneDlg.cpp 中 基于 套 接 字 实现 各 按钮 的 信息 响应 函数 ， 具 体 代码 如 下 
// “连接 ”按钮 被 按 下 的 消息 处 理 函数 


void CNetPhoneD1g: :OnButtonConnect () 
{ 
UpdateData (TRUE) ; 
// “连接 ”按钮 被 按 下 
bBtnConnectDown = TRUE; 
bClientState = TRUE; 
// 连接 被 呼叫 主机 ， 端 口 5000 
Socket Client.Connect (m sServerIP, 5000); 
GetDlgItem(IDC BUTTON CONNECT) -»EnableWindow (FALSE); 


// “通话 ”按钮 被 按 下 的 消息 处 理 函 数 ， 只 有 被 呼叫 时 该 按钮 才 有 效 

void CNetPhoneDlg: :OnButtonCommunicate () 

{ 
// 设置 各 个 按钮 状态 
GetDlgItem(IDC BUTTON DISCONNECT)-»EnableWindow (TRUE); 
GetDlgItem(IDC BUTTON COMMUNICATE) -»EnableWindow (FALSE) ; 
GetDlgItem(IDC BUTTON CONNECT) -»EnableWindow (FALSE); 
// 处 于 连接 状态 ， 所 以 bpisconnectState=FRLSE 
bDisconnectState = FALSE; 
// 程序 运行 后 ， 只 初始 化 一 次 音频 设备 
if(m bFirstRunAudio == TRUE) 
t 
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if(InitAudioDevice()) 
m bFirstRunAudio = FALSE; 

else 

{ 
AfxMessageBox( T ("初始化 波形 音频 设备 失败 ! ") ， 

MB ICONINFORMATION | MB OK, NULL); 

return; 

} 


) 
// “通话 ”按钮 按 下 之 前 ， 程 序 不 处 于 客户 端 状态 ， 即 bclientState=FALSE 
if(bClientState == FALSE) 


t 


} 


// 连接 呼叫 主机 ， 端 口 5000 

Socket Client.Connect (sRemoteIP, 5000); 
Sleep (100); 

// 发 送 “ABCDEFEGHITJKLMNO” 给 呼叫 主机 ， 表 示 同 意 通话 
Socket Client.Send("ABCDEFGHIJKLMNO", 15); 
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: :SetD1gItemText (pDlg-»m hWnd, IDC STATIC INFORMATION, sRemoteIP); 


// 此 时 被 呼叫 端 同意 通话 ， 进 入 通话 状态 (客户 端 状 态 十 服务 器 端 状 态 ) 
bClientState = TRUE; 

bServerState TRUE; 

// 开始 录音 


RecordBegin(); 


else 


{ 


} 


RecordBegin () ; 


// “上 断 开 ”按钮 被 按 下 的 消息 处 理 函数 
void CNetPhoneDlg: :OnButtonDisconnect () 


{ 


// 被 呼叫 方 发 送 “NOo” 给 呼叫 方 ， 表 示 不 接听 电话 
if(bBtnConnectDown == FALSE) 


Socket Client.Send("NO", 15); 


// 通话 中 一 方 断 开 电 话 


else 

{ 
// 还 原状 态 字 
bDisconnectState = TRUE; 
bServerState — FALSE; 
bClientState = FALSE; 
bBtnConnectDown = FALSE; 
// 关闭 套 接 字 


Socket Server-ShutDown () ; 
Socket Client .ShutDown (); 
Socket Listen.ShutDown(); 
Socket Server.Close(); 
Socket Listen.Close(); 
Socket Client.Close(); 
Sleep (100); 


$ 


) 


市 


// 设置 按钮 状态 

GetDlgItem(IDC BUTTON COMMUNICATE) -»EnableWindow (FALSE); 
GetDlgItem(IDC BUTTON DISCONNECT) ->EnableWindow (FALSE); 
GetDlgItem(IDC BUTTON CONNECT) —>EnableWindow (TRUE); 
GetDlgItem(IDC BUTTON CONNECT) ->SetFocus (); 

//Socket 初始 化 

if (!AfxSocketInit()) 


t 

AfxMessageBox("Windows sockets initialization failed."); 
} 
Socket Listen.Create (5000, SOCK STREAM); 
Socket_Listen.Bind(5000, LocalIP); 
Socket Listen.Listen(); 
Socket Client.Create(5001, SOCK STREAM); 


} 
// “帮助 ”按钮 被 按 下 的 消息 处 理 函 数 
void CNetPhoneD1g: :OnHelp () 


CAboutDlg Dlg; 
Dlg.DoModal|(); 


到 此 为 止 ， 整 个 项 目 中 的 核心 模块 已 经 介绍 完毕 ， 至 于 其 他 次 要 部 分 代码 ， 请 读者 参 
考 本 书 附 


光盘 中 的 源 代 码 。 执 行 之 后 的 效果 如 图 13-6 所 示 。 


图 13-6 ”执行 效果 


a BT 系统 = 


在 本 书 前 面 第 10 章 的 内 容 中 ， 已 经 讲解 了 电驴 系统 的 基本 知 
识 。 其 实在 国内 ， 除 了 电驴 工具 比较 受 青 睐 之 外 ，BT 工具 也 十 分 流 
行 。 在 本 章 的 内 容 中 ， 将 详细 讲解 BT 系统 的 基本 知识 ， 并 简要 训 
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14.1 BT 协议 


是 Bit Torrent 的 简称 ， 有 “比特 洪流 ”之 意 ， 是 一 个 文件 分 发 协议 ， 它 通过 URL 
识别 内 容 并 且 与 网 络 无 颖 结合 。 它 在 HTTP 平台 上 的 优势 在 于 ， 同 时 下 载 一 个 文件 的 下 载 
者 在 下 载 的 同时 不 断 互 相 上 传 数据 ， 使 文件 源 可 以 在 很 有 限 的 负载 增加 的 情况 下 ， 能 够 支 


持 大 量 下 载 者 同时 下 载 。 在 本 节 的 内 容 中 ， 将 简要 讲解 BT 协议 的 基本 知识 。 


14.1.1 


a) 
© 
© 
® 


ADR 
架设 一 个 BT 服务 器 的 基本 步骤 如 下 。 
开始 运行 Tracker( 已 运行 的 跳 过 这 一 步 )。 
开始 运行 普通 网 络 服务 器 端 程序 ， 如 Apache( 已 运行 的 跳 过 这 一 步 )。 


在 网 络 服务 器 上 将 .torrent 文件 关联 到 Mimetype 类 型 application/x-bittorrent( 已 关 


联 的 跳 过 这 一 步 )。 


ROOGA 


G660G00 


用 要 发 布 的 完整 文件 和 Tracker 的 URL 创建 一 个 元 信息 文件 (torrent 文件 )。 
将 元 信息 文件 放置 在 网 络 服务 器 上 。 

在 网 页 上 发 布 元 信息 文件 (.torrent 文件 ) 链 接 。 

原始 下 载 者 提供 完整 的 文件 (原本 )。 

通过 BT 进行 下 载 的 基本 步骤 如 下 。 

安装 BT 客户 端 程序 (已 安装 的 跳 过 这 一 步 )。 

上 网 。 

点 击 一 个 链 到 .torrent 文件 的 链接 。 

选择 本 地 存储 路 径 ， 选 定 下 载 的 文件 (对 有 选择 下 载 功能 的 BT 客户 端 用 户 )。 
等 待 下 载 完 成 。 

用 户 退 出 下 载 (之 前 下 载 者 不 停止 上 传 )。 


14.1.2 分 析 BT 协 议 
1. BT 系统 的 组 成 结构 
BT 系统 由 如 下 5 个 部 分 组 成 。 


OOOOO 


N 


普通 的 Web 服务 器 : 例如 Apache 或 IIS 服务 器 。 

一 个 静态 的 种 子 文件 ， 即 .Torrent 文件 ， 采 用 Bencoding 编码 。 
Tracker 服务 器 ; 用 于 追踪 下 载 同 一 文件 的 用 户 。 

终端 用 户 的 Web 浏览 器 : 用 于 下 载 种 子 文件 。 

BT 客户 端 例如 BitCommet、BitSpirit。 


- 种 子 文件 


(1) 格式 介绍 
BT 种 子 文件 采用 Bencoding 编码 ， 整 个 文件 包含 以 下 关键 字 。 
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announce: Tracker 服务 器 的 URL 字符 串 )。 
announce-list( 可 选 ): 备用 Tracker 服务 器 列表 (列表 )。 
creation date( 可 选 ): 种 子 创建 的 时 间 。 
comment( 可 选 ): 备注 (字符 串 )。 
created by( 可 选 ): 创建 人 或 创建 程序 的 信息 (字符 串 )。 
Info: 这 是 一 个 字典 结构 ， 里 面包 含 了 文件 的 主要 信息 ， 分 两 种 情况 ， 分 别 是 单 
文件 结构 或 多 文件 结构 。 
其 中 单 文件 的 结构 如 下 。 
> length: 文件 长 度 ， 单 位 字 节 (整数 )。 
> md5sum( 可 选 ): 长 32 个 字符 的 文件 的 MDS 校 验 和 ，BT 不 使 用 这 个 值 ， 只 
是 为 了 兼容 一 些 程序 所 保留 (字符 串 )。 
> Name: 文件 名 (字符 串 )。 
>  Piecelength: 每 个 块 的 大 小 ， 单 位 字 节 (整数 )。 
» Pieces: 每 个 块 的 20 个 字 节 的 SHAT Hash 的 值 (二 进 制 格式 )。 
多 文件 的 结构 如 下 。 
» fils: 一 个 字典 结构 。 
» Length: 文件 长 度 ， 单 位 字 节 (整数 )。 
> md5sum( 可 选 ); 与 单 文件 结构 中 相同 。 
> Path: 文件 的 路 径 和 名 字 ， 是 一 个 列表 结构 ， 例 如 “test\test.txt” 列 表 为 
* ]4:test8test.txte" 。 
> Name: 最 上 层 的 目录 名 字 ( 字 符 串 )。 
> Piece length: 与 单 文件 结构 中 的 相同 。 
> Pieces: 与 单 文件 结构 中 的 相同 。 
(2) Bencoding 编码 规则 
Bencoding 有 4 条 编码 规则 ， 具 体 说 明 如 下 。 
Q 字符 串 编 码 : 
< 字符 串 长 度 >:< 字 符 串 > 
例如 字符 串 spam 被 编码 为 4:spam。 
Q 整数 编码 : 
这 整数 >e 
例如 数字 23 表示 为 23e，-23 AH i-23e, 0 为 i0e。 
© 列表 编码 : 
1<Bencoding 编码 类 型 >e 
例如 14:spam4:eggse 表示 两 个 字符 串 “spam”、 “eggs”。 
© 字典 编码 : 
d<Bencoding 字符 串 ><Bencoding 编码 类 型 >e。 


OOOOO DO 
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例如 : 
d3:cow3:moo4:spam4:eggse #27 ("cow"—"moo", "spam"-"eggs"] - 
d4:path3:C:\8: filename8:test.txte XZR {“path’="C:\”, “filename”=“test.txt”} 。 


3. BT 系统 的 通信 过 程 


在 此 我 们 只 讲解 没有 采用 DHT 时 的 通信 过 程 。BT 客户 端 通过 种 子 文件 获得 相关 信 
息 ， 在 下 载 过程 中 定期 与 Tracker 服务 器 交互 (通过 HTTP 协议 或 者 HTTPS 协议 )。Tracker 
定期 从 下 载 者 处 接受 信息 ， 并 返回 一 个 Peers 列表 。 

下 载 者 周期 性 地 向 Tracker 登记 ，Tracker 根据 各 个 下 载 者 的 登记 信息 不 断 更 新 Peers 
列表 。 因 此 BT 客户 端 定时 地 向 Tracker 发 出 获取 Peers 列表 的 请 求 ， 以 便 客 户 端 能 获得 更 
快 、 更 多 的 Peers， 使 得 它 的 下 载 速度 更 快 。 

BT 客户 端 之 间 根 据 Peers 列表 的 信息 ， 向 相应 的 BT 客户 端 发 起 连接 ， 下 载 需要 的 部 
分 ， 从 而 实现 了 各 个 客户 端 之 间 的 相互 通信 。 这 种 连接 是 基于 TCP 的 BT 对 等 协议 。 

4. Tracker 查 询 


BT 中 的 Tracker 是 指 运行 于 服务 器 上 的 一 个 程序 ， 这 个 程序 能 够 追踪 到 底 有 多 少 人 同 
时 在 下 载 同一 个 文件 。Tracker 也 可 以 理解 为 一 种 用 来 创作 电子 音乐 的 程序 ， 它 们 创造 的 音 
乐 叫 做 模块 音乐 。 其 工作 方式 类 似 于 MIDI 软 波 表 ， 用 于 记录 下 音乐 序列 以 供 播放 器 还 
原 。 但 Tracker 创造 出 的 音乐 文件 中 还 含有 采样 一 一 也 就 是 一 些 很 短 的 波形 ， 播 放 器 根据 
序列 中 的 记载 找 出 合适 的 波形 和 频率 然后 播放 。 
Tracker 通过 HTTP 的 GET 命令 的 参数 来 接收 信息 ，BT 客户 发 送 给 Tracker 服务 器 
GET 请 求 ， 包 含 了 下 面 的 关键 字 。 
Q Info hash: 种 子 文 件 中 info 部 分 的 SHA-1(Secure Hash Algorithm 1), 20 字 节 长 。 
每 一 个 片段 都 采用 SHA-1， 当 BT 客户 端 每 下 载 完 一 个 片段 时 ， 都 需要 验证 数据 
的 正确 性 。 

O Peerd: 下 载 者 的 ID， 一 个 20 字 节 长 的 字符 串 。 每 个 下 载 者 在 开始 一 次 新 的 下 
载 之 前 ， 随 机 创建 一 个 ID。 

口 “ 卫 (可 选 ): 给 出 了 Peer 的 IP 地 址 。 

Q Port: Peer 所 监听 的 端口 。 下 载 者 通常 在 6881 端口 上 监听 ， 如 果 该 端口 被 占用 ， 
就 会 尝试 6882， 如 果 还 被 占用 ， 那 么 会 一 直 尝 试 到 6889， 如 果 都 被 占用 ， 那 么 
就 放弃 监听 。 

Q Uploaded: 已 经 上 传 的 数据 大 小 。 

a Downloaded: 已 经 下 载 的 数据 大 小 。 

Q Left: 该 Peer 还 有 多 少数 据 没 有 下 载 完 。 

口 “Event( 可 选 ): 值 可 以 为 started、completed 或 stopped 之 一 。 


5. Tracker 响 应 
BT 客户 端 向 Tracker 查询 后 ，Tracker 会 发 出 响应 。 响 应 是 用 Bencoding 编码 的 字典 。 
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在 响应 时 ， 遵 循 如 下 原则 。 

(1) 如 果 响 应 中 有 关键 字 failure reason， 则 表示 查询 失败 ， 其 值 为 一 个 字符 串 ， 解 释 
失败 原因 。 不 再 有 其 他 关键 字 。 

Q) 否则 有 如 下 两 个 关键 字 。 

Q Interval: 两 次 发 送 请 求 的 时 间 间 隔 。 

O Peers: 一 个 字典 的 列表 ， 每 个 字典 包括 关键 字 Peer Id. IP 和 Port， 分 别 对 应 Peer 

所 选择 的 ID AI IP 地址。 

6. 对 等 协议 

对 等 协议 是 基于 TCP 的 应 用 层 协议 ， 用 于 Peer 之 间 交 换 信息 。 连 接 后 两 个 Peer 之 间 
是 对 称 的 ， 数 据 可 以 双向 传送 。 当 一 个 Peer 下 载 完 一 个 片段 后 ， 就 会 向 所 有 Peer 宣布 它 
拥有 了 这 个 片段 。 

包括 了 下 面 的 消息 : 
Handshake 
Bitfield 


Have 


Request 
Cancel 
Choke 


Interested 


[= = 


Q  keep-alive 

在 没有 采用 DHT(Distributed Hash Table 或 Dynamic Hash Table) 技 术 时 ， 对 等 体 之 间 的 
互相 发 现 需要 通过 Tracker 服务 器 ， 因 此 如 果 没 有 Tracker 服务 器 ，BT 客户 端 就 不 会 获得 
新 加 入 的 用 户 的 信息 ， 速 度 会 受 很 大 影响 ， 甚 至 根本 无 法 下 载 。 现 在 很 多 BT 软件 采用 
DHT 技术 的 Kad 算法 ， 可 以 不 通过 服务 器 实现 对 等 体 之 间 的 相互 定位 与 发 现 ， 例 如 电驴 
就 采用 了 Kad 网 络 。 


14.3 ”BT 源 代码 分 析 


要 学 习 BT 开发 技术 ， 并 掌握 BT 协议 的 知识 ， 最 好 的 方法 是 看 源 代码 。 但 是 BT 的 源 
代码 基本 都 是 用 Python 编写 的 ， 对 于 不 常用 Python 的 C++ 程序 员 来 说 比较 麻烦 。 对 于 初 
学 者 来 说 ， 建 议 从 开源 入 手 。 以 下 推荐 的 两 个 开源 项 目 对 于 想 了 解 BT 协议 和 想 了 解 P2P 
原理 的 读者 很 有 参考 价值 。 

(1) 开源 BT 服务 器 一 一 http://sourceforge.net/projects/bnbteasytracker 

这 是 一 个 比较 明确 和 简单 的 BT Tracker， 可 以 很 快 地 配置 。 

(2) BT 下 载 器 一 一 http:/www.int64.org/arctic html 

这 是 一 个 比较 简单 的 BT 下 载 器 ， 没 有 太 多 的 逻辑 和 界面 ， 我 们 可 以 比较 容易 地 找到 


zii 


aA N : 
Visual C++ 


网 络 编程 开发 与 实战 


核心 部 分 代码 。 已 经 包括 了 所 需要 的 东西 。 但 是 这 个 开源 项 目 用 到 了 Boost C++. Inno 
Setup, libtorrent, zlib 等 开源 的 项 目 。 


14.3 分 析 BitTorrent 源 码 


为 了 使 广大 读者 快速 了 解 BT 技术 ， 在 本 节 的 内 容 中 ， 将 分 析 开 源 BT 项 目 ， 希 望 读 
者 能 掌握 里 面 的 核心 功能 。 

我 们 分 析 的 开源 代码 可 以 从 http://int64.org/projects/arctic-torrent 下 载 获取 ， 其 核心 代 
码 使 用 了 LibTorrent Æ> FJM Visual Studio NET 打开 ， 在 “解决 方案 资源 管理 器 ”中 
的 界面 效果 如 图 14-1 所 示 。 


日 - Header Files 司 
|B] common. h 
in) configuration. h 
in) resource. h 
in) stdafx. h 

国 Resource Files 

国 Source Files 

B libtorrent 
Ld Header Files 
国 Source Files 
&- Ga ai 

国 Header Files 

日 - [Eg Source Files 
C+) adler32.c 
€] compress. c 
€^ erc32. c 
G+) deflate. c 
CÌ gzio. c 
+) infback. c 
C+ inffast.c 
C+) inflate. c 
C+) inftrees. c 
€] trees. c 
CÌ uncompr. c. 
CÌ zutil. c 

- 


ae... GMa. Se. 


图 14-1 解决 方案 资源 管理 器 


14.3.1 LibTorrent 库 


LibTorrent 库 是 用 C++ 编写 的 BitTorrent 库 ， 也 是 一 个 开源 项 目 。LibTorrent 库 的 性 能 
优秀 ， 在 高 带宽 的 情况 下 ， 使 用 LibTorrent 开发 的 客户 端 可 以 比 Python 开发 的 客户 端 快 3 
倍 以 上 。 

LibTorrent 的 头 文件 结构 如 图 14-2 所 示 ，cpp 文件 结构 如 图 14-3 所 示 。 

此 项 目的 类 视图 结构 如 图 14-4 所 示 。 
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libtorrent 
[gy Header Files ls 
alert. hpp 辐 BRB arctic’ 
alert, types. hpp E arctic 
allocate_resources. hpp a libtorrent 
async_gethostbyname. hpp 图 
bencode. hpp | E GW Source Files 

debug. hpp €] dert cpp 

entry. hpp €] allocate_resources. cpp 
escape_string. hpp CÌ async_gethostbyname. cpp 
file. hpp entry. cpp 

fingerprint. hpp C) escape_string. cpp 
hasher. hpp Ci) file vin. cpp 
http_settings hpp ej http. tracker, connection cp 有 
http tracker, connection. a ce cpp 
identi fy_client. hpp ip_filter. opp 


peer. connection. cpp 
invariant check hpp 3 piece picker. cpp 


G THE) 


(EA EA EA EA EM 


[EA 


(EA EAEAN EA EA EA EA 


BE 


jh] io. hpp e 
: policy. cpp 
in) ip_filter. hpp session. cpp 
in] peer. hpp CÌ) shal. cpp 
in] peer connection hpp €] socket. cpp 
ih) peer id.hpp CF stat. cpp 
jh] peer_info. hpp €] storage. cpp 
|h) peer. request. hpp €] torrent. cpp 
in) piece, block progress. hpp CÌ torrent, handle. cpp 
|h) piece_picker. hpp CÌ torrent, info. cpp 
in) policy. hpp C) tracker, manager. cpp 
[B] resource request. hpp C] ud, tracker, connection. cpp 
in) session. hpp s- G anit 
in) size type. hpp 
四 E ol 


IURE 
S SRA 


AddDebuglessageData 
Configuration 


HI)" anonynous-nanespace" 
E- È} libtorrent 
SHALCTY 
SHAL_CTX 
m O std 
eg ait 
至 宏和 常量 
站 全 局 Typedef 
9 全 局 函数 和 变量 
config s 
> et data s 
ex header s 
Er_strem 
inflate state 
internal state 
internal state 
internal state 
internal state 
static tree desc 
static tree desc x 
treo, desc s 


$ 


14.3.2 ”客户 端 代码 分 析 


LibTorrent 的 开源 代码 可 以 在 http://www.rasterbar.com/products/libtorrent/index.html 免 


费 下 载 获 取 。 


(1) 文件 main.cpp 
在 Arctic 中 的 文件 main.cpp 是 程序 入 口 函 数 ， 是 Arctic 程序 的 框架 所 在 。Arctic 不 是 
MFC 开发 的 ， 而 是 用 Win32 API 开发 的 。 文 件 main.cpp 的 主要 实现 代码 如 下 : 


#include "stdafx.h" 
#include "resource.h" 


using std::wstring; 


static void InitMainClass() { 


WNDCLASSEX wc = {0}; 

wc.cbSize = sizeof (WNDCLASSEX); 

wc.lpfnWndProc = Main WndProc; 

wc.hInstance = GetModuleHandle (NULL); 

wc.hCursor - LoadCursor(NULL, IDC ARROW); 

wc.hbrBackground = (HBRUSH) (COLOR WINDOW-1); 

wc.lpszClassName = L"ArcticMain"; 

wc.lpszMenuName = MAKEINTRESOURCE (IDR MAINMENU) ; 

wc.hlIcon = (HICON) LoadImage (GetModuleHandle (NULL), 
MAKEINTRESOURCE (IDI ARCTIC), IMAGE ICON, 32, 32, LR SHARED); 

wc.hlIconSm = (HICON) LoadImage (GetModuleHandle (NULL), 
MAKEINTRESOURCE (IDI ARCTIC), IMAGE ICON, 16, 16, LR SHARED); 

RegisterClassEx (&wc) ; 


} 
// 初 始 化 调试 窗口 的 WNDCLASSEX 结构 
static void InitDebugClass() ( 


WNDCLASSEX wc = (0); 

wc.cbSize = sizeof (WNDCLASSEX) ; 

wc.lpfnWndProc = Debug WndProc; 

wc.hInstance = GetModuleHandle (NULL); 

wc.hCursor = LoadCursor(NULL, IDC ARROW); 

wc.hbrBackground = (HBRUSH) (COLOR WINDOW + 1); 

wc.lpszClassName = L"ArcticDebug"; 

wc.hlIcon = (HICON) LoadImage (GetModuleHandle (NULL), 
MAKEINTRESOURCE (IDI_ARCTIC), IMAGE ICON, 32, 32, LR SHARED); 

wc.hlconSm = (HICON)LoadImage (GetModuleHandle (NULL), 
MAKEINTRESOURCE (IDI_ARCTIC), IMAGE ICON, 16, 16, LR SHARED); 

RegisterClassEx (&wc); 


$ 
// 在 注册 表 中 注册 “ .torrent 文件 ” 


static bool IsAssociated() { 


HKEY key; 

RegCreateKeyEx (HKEY CLASSES ROOT, L".torrent", 0, NULL, 
REG OPTION NON VOLATILE, KEY READ, NULL, &key, NULL); 

wchar t app[128]; 

unsigned long applen = sizeof (app); 
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bool associated = (RegQueryValueEx(key, NULL, NULL, NULL, (LPBYTE)app, 
&applen)--ERROR SUCCESS && !wcscmp(app, L"Arctic.torrent")); 
RegCloseKey (key) ; 
return associated; 
} 
int WINAPI wWinMain(HINSTANCE, HINSTANCE, LPWSTR, int nCmdShow) { 
HWND hwnd; 


{ 
HANDLE mutex = CreateMutex(NULL, TRUE, L"Global\\ArcticTorrent") ; 


if (GetLastError() == ERROR ALREADY EXISTS) { 
hwnd = FindWindow(L"ArcticMain", L"Arctic"); 
if (hwnd) { 


ShowWindow (hwnd, SW SHOWNORMAL) ; 
SetForegroundWindow (hwnd) ; 


} 
return 0; 


} 
CoInitializeEx (NULL, COINIT_APARTMENTTHREADED) ; 
InitCommonControls () ; // 初 始 化 通用 控件 
InitMainClass(); // 初 始 化 注册 主 窗口 的 WNDCLASSEX 类 
InitDebugClass () 7 
if(!conf.Load()) ( 
if(!IsAssociated()) ( 
wstring text = loadstring(IDS ASSOCIATE); 
wstring caption = loadstring(IDS ASSOCIATECAPTION); 
if(MessageBox(NULL, text.c str(), caption.c str(), 
MB ICONQUESTION|MB YESNO) == IDYES) 
Associate(); 
y 
conf.Save(); 


IME X Vr ur Dr 
const RECT &wpos = conf.position; 


if(wpos.top!-0 || wpos.left!=0 
|| wpos.bottom!-0 || wpos.right!-0) { 


X = wpos.left; 
y 7 wpos.top; 
w = wpos.right - wpos.left; 
h = wpos.bottom - wpos.top; 
} 
else { 
RECT rect; 


GetClientRect (GetDesktopWindow(), &rect); 


X = ((rect.right - rect.left) / 2) - 380; 
y = ((rect.bottom - rect.top) / 2) - 100; 
w = 760; 
h = 2007 
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hwnd = CreateWindowEx(WS EX ACCEPTFILES, L"ArcticMain", L"Arctic", 
WS OVERLAPPEDWINDOW, x, y, w, h, NULL, NULL, NULL, NULL); 
if(!hwnd) return -1; 


SendMessage (hwnd, DM REPOSITION, 0, 0); 
ShowWindow (hwnd, nCmdShow); 
UpdateWindow (hwnd) ; 


MSG msg; 

while (GetMessage(&msg,NULL,0,0) > 0) { 
TranslateMessage (&msg) ; 
DispatchMessage (&msg) ; 

} 

return (int)msg.wParam; 


} 


(2) 文件 mainproc.cpp 

文件 mainproc.cpp 最 重要 的 功能 是 定义 了 函数 Main_WndProc(), “4 Windows 向 程序 
发 送信 息 时 ， 程 序 会 调用 函数 Main WndProc0) 来 处 理 消息 。 文 件 mainproc.cpp 的 具体 实现 
流程 如 下 。 

O 设置 系统 需要 的 常量 值 和 全 局 变量 ， 定 义 结构 Torrent。 主 要 代码 如 下 : 


#define IDC LIST 201 
#define IDC STATUS 202 


#define TIMER UPDATE 1 
#define TRAY ARCTIC 1 
#define WM ARCTIC TRAY (WM APP+1) 


static const UINT columns[] = ( 
IDS NAME, IDS SIZE, IDS DOWNLOADED, IDS UPLOADED, 
IDS STATUS, IDS PROGRESS, IDS DOWNSPEED, IDS UPSPEED, 
IDS HEALTH, IDS SEEDS, IDS PEERS 
}; 
static const size t columncount = sizeof (columns) / sizeof (UINT); 
// Torrent 结构 
struct Torrent ( 
std::string file; // 文 件 名 
libtorrent::torrent handle handle; // 使 用 LibTorrent 库 


wstring cols[columncount]; 


bool operator«(const Torrent &t) const ( 
return wcsicmp(cols[0].c str(),t.cols[0].c str()) « 0; 


Configuration conf; // 定 义 全 局 变量 cont 


static libtorrent::session *session = NULL; 
static vector«Torrent» torrents; 


$ 
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static bool allpaused = false; 


HWND main = NULL; 

HWND about — NULL; 
static HWND debug = NULL; 
bool debugopen = false; 


static wstring paused; 
static wstring queued; 
static wstring checking; 
static wstring connecting; 
static wstring downloading; 
static wstring seeding; 
static wstring unknown; 
static wstring bytes; 
static wstring kibibytes; 
static wstring mebibytes; 
static wstring gibibytes; 


static NOTIFYICONDATA nid - (0); 
static unsigned int traycreatedmessage = 0; 


static void Main OnClose(HWND hwnd) ( 
DestroyWindow (hwnd); 


Static wchar t* strsize(double s) ( 

double downloaded; 

const wchar t *units; 

if(s >= 1073741824) ( 
downloaded = s / 1073741824.0; 
units = gibibytes.c str(); 

} 

else if(s >= 1048576) { 
downloaded = s / 1048576.0; 
units = mebibytes.c str(); 

} 

else if(s >= 1024) { 
downloaded = s / 1024.0; 
units = kibibytes.c str(); 

} 

(ime d 
downloaded - s; 
units = bytes.c str(); 

} 

static wchar t buf[64]; 

StringCchPrintf (buf, 64, L"$.1f %s", downloaded, units); 

return buf; 

} 


© 定义 方法 AddTorrent， 用 于 向 系统 中 添加 Torrent 资源 ， 主 要 代码 如 下 : 


static void AddTorrent(HWND hwnd, path file) ( 
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try { 
const path rfile = getmodulepath() /"resume"/file; 
libtorrent::entry metadata = bdecode (file); 
libtorrent::entry resumedata; 


if(boost::filesystem::exists(rfile)) ( 
try ( 
resumedata = bdecode (rfile.leaf()); 
} 
catch(...) { 
wchar 七 text[256], title[128]; 
LoadString (GetModuleHandle (NULL), IDS RESUMEERR, title, 128); 
LoadString (GetModuleHandle (NULL) , 
IDS RESUMEERRTEXT, text, 256); 
MessageBox (hwnd, text, title, MB ICONERROR|MB OK); 
boost: : filesystem: : remove (rfile) ; 


} 
if(!boost::filesystem::exists(getmodulepath() /"torrents") ) 
boost ilesystem::create directory (getmodulepath() /"torrents") 7 
if(!boost::filesystem::exists( 
getmodulepath() /"torrents"/file.leaf())) 
boost::filesystem::copy file( 
file, getmodulepath() /"torrents"/file.leaf()); 
if(!boost::filesystem::exists (conf.savepath)) 
boost::filesystem::create directory (conf.savepath); 
vector«libtorrent::torrent handle»::size type i - torrents.size(); 
Torrent t; 
t.file - file.leaf(); 
t.handle = session-»add torrent (metadata, conf.savepath, resumedata); 
t.handle.set max uploads (conf.maxup); 
t.handle.set max connections (conf.maxcon); 
const libtorrent::torrent info &info = t.handle.get torrent info(); 
t.cols[0] = mbstowcs (info.name()); 
t.cols[1] = strsize((double)info.total size()); 
torrents.push back (t); 
sort (torrents.begin(), torrents.end()); 
if (allpaused) t.handle.pause(); 
HWND list = GetDlgItem(hwnd, IDC LIST); 
ListView SetItemCount (list, torrents.size()); 


} 
catch(exception &ex) { 
wstring text = mbstowcs (ex.what ()); 
wstring caption = loadstring(IDS EXCEPTION); 
MessageBox(hwnd, text.c str(), caption.c str(), MB ICONERROR|MB OK); 


} 
@ 定义 方法 Main OnCommand， 用 于 处 理 Windows 的 消息 ， 主 要 代码 如 下 : 


static void Main OnCommand (HWND hwnd, 
int id, HWND hwndCtl, UINT codeNotify) ( 
switch(id) ( 


$ 


第 14 章 BT 系统 


case ID FILE OPENI: 
t 
wchar t file[MAX PATH] - L""; 
OPENFILENAME ofn = (0); 
ofn.lStructSize = sizeof (OPENFILENAME) ; 
ofn.hwndOwner = hwnd; 
ofn.lpstrFilter = 
L"Torrent Files (*.torrent) \0*.torrent\0All Files (*.*)\0*.*\0"; 
ofn.lpstrFile = file; 
ofn.nMaxFile = MAX PATH; 
ofn.Flags = OFN EXPLORER|OFN HIDEREADONLY|OFN FILEMUSTEXIST; 
ofn.lpstrDefExt = L"torrent"; 
if (GetOpenFileName (&ofn)) AddTorrent (hwnd, wcstombs (file) ); 
} 
break; 
case ID FILE CONFIGURATION: 
if (DialogBox (GetModuleHandle (NULL), MAKEINTRESOURCE (IDD CONFIG), 
hwnd, Config DlgProc) == IDOK) { 
try ( 
session-»set upload rate limit( 
(conf.uplimit!--1) ? conf.uplimit*1024 : -1); 
session-»set download rate limit( 
(conf.downlimit!--1) ? conf.downlimit*1024 : -1); 
session->listen on( 
pair<int, int>(conf.firstport, conf.lastport)); 
for (vector<Torrent>::size type i=0; 
i«torrents.size(); i++) 
torrents[i].handle.move storage (conf.savepath) ; 


} 
catch (exception &ex) ( 
wstring text = mbstowcs (ex.what ()); 
wstring caption = loadstring(IDS EXCEPTION) ; 
MessageBox (hwnd, text.c str(), 
caption.c str(), MB ICONERROR|MB OK); 


} 
break; 
case ID FILE DEBUG: 

if (debugopen) { 
ShowWindow (debug, SW HIDE); 
HMENU menu = GetMenu (hwnd) ; 
CheckMenuItem(menu, ID FILE DEBUG, 

MF BYCOMMAND|MF UNCHECKED) ; 

debugopen = false; 

} 

else { 
ShowWindow (debug, SW SHOWNORMAL) ; 
SetForegroundWindow (debug) ; 
HMENU menu = GetMenu (hwnd) ; 
CheckMenulItem(menu, ID FILE DEBUG, MF BYCOMMAND|MF CHECKED); 
debugopen = true; 

} 

break; 


三 网 络 编程 开发 与 实战 


case ID FILE EXIT: 
case ID TRAY EXIT: 
DestroyWindow (hwnd); 
break; 
case ID ABOUT ABOUT: 
case ID TRAY ABOUT: 
if(!about) about = CreateDialog (GetModuleHandle (NULL), 
MAKEINTRESOURCE (IDD ABOUT), hwnd, About DlgProc); 
else SetForegroundWindow (about) ; 
break; 
case ID CONTEXT OPEN: 
{ 
HWND list = GetDlgItem(hwnd, IDC LIST); 
int index = ListView GetSelectionMark (list); 
if (index -1) { 
path p = torrents[index] .handle.save path() /torrents [index] 
-handle.get torrent info() .name(); 
ShellExecuteA (NULL, "open", 
p.native file string().c str(), NULL, NULL, SW SHOW); 


) 
} 
break; 
case ID CONTEXT ANNOUNCE: 
t 
HWND list = GetDlgItem(hwnd, IDC LIST); 
int index - ListView GetSelectionMark (list); 
if(index != -1) torrents[index].handle.force reannounce(); 
) 
break; 
case ID CONTEXT PAUSE: 
t 
HWND list = GetDlgItem(hwnd, IDC LIST); 
int index - ListView GetSelectionMark (list); 
if (index != -1) torrents [index].handle.pause(); 
) 
break; 
case ID CONTEXT RESUME: 
{ 
HWND list = GetDlgItem(hwnd, IDC LIST); 
int index = ListView GetSelectionMark (list) ; 
if (index != -1) torrents [index] -handle.resume(); 
} 
break; 
case ID CONTEXT REMOVE: { 
HWND list = GetDlgItem(hwnd, IDC LIST); 
int index = ListView GetSelectionMark (list) ; 
if(index != -1) { 
wchar 七 text[512]; 
wstring caption = loadstring(IDS REMOVECAPTION); 
wstring fmt = loadstring(IDS REMOVE); 
string name = 
torrents[index].handle.get torrent info().name(); 
StringCchPrintf (text, 512, fmt.c str(), name.c str()); 
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if(MessageBox(hwnd, text, caption.c str(), 
MB ICONQUESTION|MB YESNO) == IDYES) ( 
ListView DeleteItem(list, index); 
Session-»remove torrent (torrents [index] .handle); 
{ 
try { 
boost: :filesystem: remove ( 
getmodulepath () /"torrents"/torrents [index] . file); 
boost: : filesystem: : remove ( 
getmodulepath () /"resume"/torrents [index] .file) ; 
5 
catch) 
// whatever. 


$ 
torrents.erase(torrents.begin() + index); 


) 
} 
break; 
case ID TRAY OPEN: 
ShowWindow (hwnd, SW_SHOWNORMAL) ; 
SetForegroundWindow (hwnd) ; 
break; 
case ID TRAY PAUSE: 
for (vector<Torrent>::size type i=0; i<torrents.size(); i++) 
torrents [i] .handle.pause() ; 
allpaused = true; 
break; 
case ID TRAY RESUME: 
for (vector<Torrent>::size type i=0; i«torrents.size(); i++) 
torrents[i] .handle. resume () ; 
allpaused = false; 
break; 


} 


@ 定义 方法 Main OnCreate， 这 也 是 一 个 用 于 处 理 Windows 消息 的 方法 ， 在 此 方法 
中 分 别 实现 设置 图 标 、 设 置 状态 栏 、 设 置 列表 显示 控件 ListView. fi] torrent 会 话 和 创建 
调试 窗口 等 功能 。 主 要 代码 如 下 : 
static BOOL Main OnCreate (HWND hwnd, LPCREATESTRUCT lpCreatestruct) { 
/// 设置 图 标 
nid.cbSize = sizeof (NOTIFYICONDATA); 
nid.hWnd = hwnd; 
nid.uID - TRAY ARCTIC; 
nid.uCallbackMessage - WM ARCTIC TRAY; 
nid.uFlags = NIF ICON|NIF MESSAGE|NIF TIP; 
nid.hIcon = (HICON) LoadImage (GetModuleHandle (NULL), 
MAKEINTRESOURCE(IDI ARCTIC), IMAGE ICON, 16, 16, LR SHARED); 
StringCchCopy (nid.szTip, 64, L"Arctic"); 
Shell NotifyIcon(NIM ADD, &nid); 


traycreatedmessage = RegisterWindowMessage (L"TaskbarCreated"); 
CALITATII TASI IIA MM LP Bg LL M M LP B ALL P MM MG MIEL GM7q7 TB 
/// 设置 状态 栏 
HWND status = CreateWindow(STATUSCLASSNAME, NULL, WS CHILD|WS VISIBLE, 
0, 0, 0, 0, hwnd, (HMENU)IDC STATUS, NULL, NULL); 
RECT statusrect; 
GetWindowRect(status, &statusrect); 
int parts[3]; 
parts[0] = std::max(((statusrect.right-statusrect.left)-192), (LONG)O0); 
parts[1] = parts[0] + 96; 
parts[2] = parts[1] + 96; 
SendMessage(status, SB SETPARTS, 3, (LPARAM)parts); 
SendMessage(status, SB SETTEXT, 0|SBT NOBORDERS, (LPARAM)L""); 
SendMessage(status, SB SETTEXT, 1|SBT NOBORDERS, (LPARAM)L""); 
SendMessage(status, SB SETTEXT, 2|SBT NOBORDERS, (LPARAM)L""); 
/// 设置 列表 显示 控件 Listview 
RECT rect; 
GetClientRect (hwnd, &rect); 
HWND list = CreateWindow(WC LISTVIEW, NULL, 
WS CHILD|WS VISIBLE|LVS NOSORTHEADER|LVS OWNERDATA|LVS REPORT 
|LVS SHOWSELALWAYS|LVS SINGLESEL, 0, 0, rect.right-rect.left, 
(rect.bottom-rect.top)- (statusrect.bottom-statusrect.top), 
hwnd, (HMENU)IDC LIST, NULL, NULL); 
ListView SetExtendedListViewStyle (list, 
LVS EX FULLROWSELECT|LVS EX LABELTIP); 
wstring buf; 
LVCOLUMN lvc = (0); 
lvc.mask = LVCF FMT|LVCF WIDTH|LVCF TEXT|LVCF SUBITEM; 
lvc.fmt = LVCFMT LEFT; 
for(size t i-0; i<columncount; i++) ( 
lvc.iSubItem - (int)i; 
lvc.cx = conf.columns [i]; 
buf = loadstring(columns[i]); 
lvc.pszText - (LPWSTR)buf.c str(); 
ListView InsertColumn(list, i, &lvc); 


LHUd"MILGMMIMM Bg MM ML Pg MU MM M MB MM LLL P MM MM ML PL M MgM HL B gMUMUMMBg 
/// 创建 一 个 torrent 会 话 
try { 
session = new libtorrent::session( 
libtorrent::fingerprint("AR", 1, 0, 0, 1), 
pair<int,int>(conf.firstport, conf.lastport)); 
session-»disable extensions (); 
session-»enable extension( 
libtorrent::peer connection::extended metadata message); 
session-»enable extension( 
libtorrent::peer connection::extended peer exchange message); 
session-»enable extension( 
libtorrent::peer connection::extended listen port message); 
session-»set upload rate limit( 
(conf.uplimit!=-1) ? conf.uplimit*1024 : -1); 
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session-»set download rate limit( 
(conf.downlimit!=-1) ? conf.downlimit*1024 : -1); 
Session-»set max connections (conf.maxcon); 
#ifdef DEBUG 
session-»set severity level (libtorrent::alert::debug) ; 
#else 
session-»set severity level (libtorrent::alert::info) ; 
#endif 
} 
catch (exception &ex) ( 
wstring text = mbstowcs (ex.what ()); 
wstring caption = loadstring(IDS EXCEPTION) ; 
MessageBox (hwnd, text.c str(), caption.c str(), MB ICONERROR|MB OK); 
return -1; 
} 
MM MB Bg HL P LM LH M HP M P P MP MM M ML P Bg M HU M gH gal. 
/// 创建 调试 窗口 . 
main = hwnd; 
GetWindowRect (hwnd, &rect); 
wstring caption = loadstring(IDS DEBUG); 
debug = CreateWindowEx (WS EX APPWINDOW, L"ArcticDebug", 
caption.c str(), WS OVERLAPPEDWINDOW, 
rect.left+32, rect.top*32, 512, 160, 
hwnd, NULL, NULL, NULL); 
if(!debug) DestroyWindow (hwnd) ; 
/// 加 载 字符 串 ， 设 置 计时 器 
paused = loadstring(IDS PAUSED); 
queued = loadstring(IDS QUEUED); 
checking = loadstring(IDS CHECKING); 
connecting = loadstring(IDS CONNECTING); 
downloading = loadstring(IDS DOWNLOADING); 
seeding = loadstring(IDS SEEDING); 
unknown = loadstring(IDS UNKNOWN); 
bytes = loadstring(IDS BYTES); 
kibibytes = loadstring(IDS KIBIBYTES); 
mebibytes = loadstring(IDS MEBIBYTES); 
gibibytes = loadstring(IDS GIBIBYTES); 
SetTimer(hwnd, TIMER UPDATE, 1000, NULL); 
KIIL LILII ATIAN MM M MP Bg M M M M M P P MP MEL LL LLL P M M TTT 
/// 从 上 一 次 会 话 中 恢复 torrents 
path p = getmodulepath () /"torrents"; 
WIN32 FIND DATAA finddata = {0}; 
HANDLE find = FindFirstFileA( 
(p/"*.torrent").native file string().c str(), &finddata); 


if(find != INVALID HANDLE VALUE) { 
do AddTorrent (hwnd, p/finddata.cFileName); 
while(FindNextFileA(find, &finddata)) ; 
FindClose (find); 

} 

return TRUE; 


- 网 络 编程 开发 与 实 成 


© 定义 方法 Main OnDestroy 用 于 处 理 关 闭 程序 的 信息 ， 主 要 代码 如 下 : 


static void Main OnDestroy(HWND hwnd) ( 

Shell NotifyIcon(NIM DELETE, &nid); 

path p = getmodulepath () /"resume"; 

CreateDirectoryA(p.native directory string().c str(), NULL); 

for(vector«Torrent»::size type i-0; i«torrents.size(); i++) { 
torrents [i].handle.pause(); 
libtorrent::entry e = torrents[i].handle.write resume data(); 
bencode (p/torrents[i].file, e); 


} 
delete session; 
HWND list = GetDlgItem(hwnd, IDC LIST); 
for(int i=0; i<columncount; i++) 
conf.columns[i] = ListView GetColumnWidth (list, i); 
conf .Save(); 
PostQuitMessage (0); 


static void Main OnDropFiles (HWND hwnd, HDROP hdrop) { 
char file[MAX PATH]; 


unsigned int amount = DragQueryFileA(hdrop, OxFFFFFFFF, 0, 0); 
while (amount--) { 
DragQueryFileA(hdrop, amount, file, MAX PATH); 
AddTorrent (hwnd, file); 
} 
DragFinish (hdrop) ; 
) 


© 定义 方法 Main_OnSize， 用 于 处 理 调整 窗口 大 小 的 消息 ， 主 要 代码 如 下 : 


static void Main OnSize(HWND hwnd, UINT state, int cx, int cy) ( 
if(state--SIZE MINIMIZED) ShowWindow(hwnd, SW HIDE); 
else ( 
HWND status = GetDlgItem(hwnd, IDC STATUS); 
SendMessage (status, WM SIZE, 0, 0); 


RECT statusrect; 
GetWindowRect (status, &statusrect); 


int parts[3]; 
parts[0] = 
std::max(((statusrect.right-statusrect.left)-192), (LONG)0); 
parts[1] = parts[0] + 96; 
parts[2] = parts[1] + 96; 


SendMessage(status, SB SETPARTS, 3, (LPARAM)parts); 


MoveWindow(GetDlgItem(hwnd, IDC LIST), 0, 0, cx, 
cy-(statusrect.bottom-statusrect.top), TRUE); 


if (state == SIZE RESTORED) { 


E 


第 14 章 BT 系统 


RECT rc; 
GetWindowRect (hwnd, &rc); 


if(rc.left»-0 && rc.top»-0 && rc.right»-0 && rc.bottom»-0) 
conf.position - rc; 


} 


C) 定义 方法 Main OnTimer， 用 于 定时 更 新 状态 栏 和 更 新 ListView 中 的 数据 ， 主 要 
代码 如 下 : 


static void Main OnTimer(HWND hwnd, UINT id) ( 
if(id == TIMER UPDATE) ( 
ORAL 
/// 更 新 状态 栏 
wchar t buf[32]; 
HWND status = GetDlgItem(hwnd, IDC STATUS); 
libtorrent::session status s = session-»status(); 
StringCchPrintf (buf, 32, L"D: $s/s", strsize(s.download rate)); 
SendMessage(status, SB SETTEXT, 1|SBT NOBORDERS, (LPARAM)buf); 
StringCchPrintf (buf, 32, L"U: $s/s", strsize(s.upload rate)); 
SendMessage(status, SB SETTEXT, 2|SBT NOBORDERS, (LPARAM)buf); 
HWND list = GetDlgItem(hwnd, IDC LIST); 
for (vector<Torrent>::size type i-0; i«torrents.size(); i++) ( 
try ( 
Hui HL LM MP M B BM ALAA AAT M M M M P P MM AAA 
/// 更 新 ListView 中 的 数据 
libtorrent::torrent status status = 
torrents [i].handle.status(); 
torrents[i].cols[2] = strsize((double)status.total done); 
torrents[i].cols[3] = strsize((double)status.total upload); 
if (status .paused) 
torrents[i].cols[4] = paused; 
else 
Switch (status .state) ( 
case libtorrent::torrent status::queued for checking: 
torrents[i].cols[4] = queued; 
break; 
case libtorrent::torrent status::checking files: 
torrents[i].cols[4] = checking; 
break; 
case libtorrent::torrent status::connecting to tracker: 
torrents[i].cols[4] = connecting; 
break; 
case libtorrent::torrent status: :downloading: 
case libtorrent::torrent status::downloading metadata: 
torrents[i].cols[4] = downloading; 


break; 

case libtorrent::torrent status::seeding: 
torrents[i].cols[4] = seeding; 
break; 

default: 


战 


torrents[i].cols[4] = unknown; 
break; 


StringCchPrintf (buf, 32, L"$.1f$$", 
(double)status.progress*100.0); 
torrents[i].cols[5] = buf; 


StringCchPrintf (buf, 32, L"%s/s", 
strsize(status.download rate)); 
torrents[i].cols[6] = buf; 


StringCchPrintf (buf, 32, L"%s/s", 
strsize(status.upload rate)); 
torrents[i].cols[7] = buf; 


StringCchPrintf (buf, 32, L"$d$$", 
(int) (status.distributed copies*100.0f)); 
torrents[i].cols[8] = buf; 


torrents[i].cols[9] = itow(status.num seeds, buf, 10); 
torrents[i].cols[10] = _itow(status.num peers, buf, 10); 


InvalidateRect(list, NULL, FALSE); 


LUMléÉMMM M M M MP PM M TTA TALITY 


/// Process alerts 


for(auto ptr«libtorrent::alert» a-session-»pop alert(); 
a.get(); a=session->pop alert()) { 
string timestamp = 
to simple string(a->timestamp().time of day()); 
string message = a-»msg(); 


wstring timestamp wcs = mbstowcs (timestamp); 
wstring message wcs = mbstowcs (message); 


AddDebugMessageData data; 
data.time = (LPWSTR)timestamp wcs.c str(); 
data.message = (LPWSTR)message wcs.c str(); 


SendMessage ( 
debug, WM ARCTIC ADDDEBUGMESSAGE, 0, (LPARAM) &data) ; 


} 
catch(exception &ex) { 
wstring text = mbstowcs (ex.what()); 
wstring caption = loadstring(IDS EXCEPTION) ; 


MessageBox (hwnd, text.c str(), caption.c str(), 
MB ICONERROR|MB OK); 
continue; 
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} 
定义 窗口 回调 函数 Main WndProc， 主 要 代码 如 下 : 


LRESULT CALLBACK Main WndProc (HWND hwnd, UINT msg, WPARAM wParam, 
LPARAM lParam) { 
switch(msg) { 
HANDLE MSG (hwnd, WM CLOSE, Main OnClose); 
HANDLE MSG (hwnd, WM COMMAND, Main OnCommand); 
HANDLE MSG (hwnd, WM CREATE, Main OnCreate); 
HANDLE MSG (hwnd, WM DESTROY, Main OnDestroy); 
HANDLE MSG (hwnd, WM DROPFILES, Main OnDropFiles); 
HANDLE MSG (hwnd, WM ERASEBKGND, Main OnEraseBkgnd); 
HANDLE MSG (hwnd, WM GETMINMAXINFO, Main OnGetMinMaxInfo); 
HANDLE MSG(hwnd, WM NOTIFY, Main OnNotify); 
HANDLE MSG(hwnd, WM SIZE, Main OnSize); 
HANDLE MSG(hwnd, WM TIMER, Main OnTimer); 
case WM DDE INITIATE: 
Main OnDDEInitiate( 
hwnd, (HWND)wParam, LOWORD (lParam), HIWORD(1Param) ); 
return 0; 
case WM DDE EXECUTE: 
Main OnDDEExecute (hwnd, (HWND)wParam, (HGLOBAL) 1Param) ; 
return 0; 
case WM DDE TERMINATE: 
Main OnDDETerminate (hwnd, (HWND) wParam) ; 
return 0; 
case WM ARCTIC TRAY: 
Main OnTray (hwnd, (UINT)wParam, (UINT)1Param) ; 


H 


return 0; 
default: 
if(msg == traycreatedmessage) { 
Shell NotifyIcon(NIM ADD, &nid); 
return 0; 


) 
else return DefWindowProc(hwnd, msg, wParam, lParam); 


} 


(3) 文件 torrent.hpp 

此 处 的 文件 在 LibTorrent 库 代 码 中 ， 在 此 文件 中 定义 了 Torrent 类 ， 这 是 一 个 用 于 保存 
下 载 信息 的 类 。 在 文件 下 载 过 程 中 ，Torrent 对 象 会 更 新 各 个 成 员 变量 。 文 件 torrent.hpp 的 
有 具体 实现 流程 如 下 。 

© 定义 torent 类 ， 然 后 定义 系统 需要 的 构造 函数 和 析 构 函数 。 主 要 代码 如 下 : 

// 定义 类 torrent 

class torrent: public request callback 

i 

// 构 造 函 数 
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torrent ( 
detail::session impl &ses 
, entry const &metadata 
, boost::filesystem::path const &save path 
, address const &net interface 
, bool compact mode 
, int block size); 


// used with metadata-less torrents 
// (the metadata is downloaded from the peers) 
torrent( 
detail::session impl &ses 
, char const *tracker url 
, shal hash const &info hash 
, boost::filesystem::path const &save path 
, address const &net interface 
, bool compact mode 
, int block size); 


^torrent(); // 析 构 函 数 
// this is called when the torrent has metadata. 
// it will initialize the storage and the piece-picker 


void init(); // 初 始 化 函数 


// this will flag the torrent as aborted. The main 
// loop in session impl will check for this state 
// on all torrents once every second, and take 

// the necessary actions then. 

void abort(); 

bool is aborted() const { return m abort; } 

// 每 隔 几 秒 会 调用 这 个 函数 

void second tick(stat &accumulator); 

// debug purpose only 

void print(std::ostream &os) const; 

// peer connection 类 每 收 到 一 块 ，metadata 就 会 调用 此 函数 


void metadata progress(int total size, int received); 


void check files(detail::piece checker data &data, 
boost::mutex& mutex, bool lock session-true); 

stat statistics() const ( return m stat; } 

size type bytes left() const; 

boost::tuple«size type, size type» bytes done() const; 

void pause(); 

void resume(); 

bool is paused() const { return m paused; } 

void filter piece(int index, bool filter); 

void filter pieces (std::vector<bool> const &bitmask); 

bool is piece filtered(int index) const; 

void filtered pieces(std::vector«bool» &bitmask) const; 

//idea from Arvid and MooPolice 

//todo refactoring and improving the function body 

// marks the file with the given index as filtered 
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// it will not be downloaded 
void filter file(int index, bool filter); 
void filter files(std::vector«bool» const &files); 
torrent status status() const; 
void use interface(const char *net interface); 
peer connection& connect to peer(const address& a); 
void set ratio(float ratio) 
t 
assert (ratio >= 0.0f); 
m ratio = ratio; 
} 
float ratio() const 
{ return m ratio; } 


@ 定义 系统 中 需要 的 对 等 点 管理 函数 ， 各 个 函数 的 主要 代码 和 具体 说 明 如 下 : 


void attach peer (peer connection *p); // 调用 此 函数 把 它 与 torrent 类 相关 联 
void remove peer (peer connection *p); //peer connection 对 象 析 构 时 调用 此 函数 
peer connection* connection for(const address &a) 
t 

peer iterator i = m connections.find(a); 

EE ERES m connections.end()) return 0; 

return i-»second; 


} 
// 返回 多 少 用 户 正在 下 载 此 文件 
int num peers() const ( return (int)m connections.size(); } 
int num seeds() const; 
typedef std::map«address, peer connection*»::iterator peer iterator; 
typedef 
std::map<address, peer connection*»::const iterator const peer iterator; 
const peer iterator begin() const ( return m connections.begin(); } 
const peer iterator end() const { return m connections.end(); } 
peer iterator begin() ( return m connections.begin(); } 
peer iterator end() ( return m connections.end(); } 
// 下 面 是 负责 tracker 的 管理 函数 
virtual void tracker response( 
tracker request const &r, 
std::vector<peer entry»& e, 
int interval, 
int complete, 
int incomplete); 
virtual void tracker request timed out(tracker request const &r); 
virtual void tracker request error(tracker request const &r, 
int response code, const std::string &str); 
virtual void tracker warning(std::string const &msg); 
tracker request generate tracker request (); 
// 产生 请 求 信息 
std::string tracker login() const; 
// 返回 下 一 个 tracker announce 的 绝对 时 间 
boost::posix time::ptime next announce() const; 
bool should request (); 
void force tracker request (); 
void force tracker request (boost::posix time::ptime); 


Visual C++ 


~ 人 > 


void set tracker login(std::string const &name, std::string const &pw); 
// the address of the tracker that we managed to 

// announce ourself at the last time we tried to announce 

const address& current tracker() const; 


Ui => 
//IAM 是 负责 数据 块 管理 的 函数 
bool have piece (int index) const 
assert(index»-0 && index< (signed)m have pieces.size()); 
return m have pieces[index]; 


const std::vector«bool»& pieces() const 
{ return m have pieces; } 


int num pieces() const ( return m num pieces; } 


// when we get a have- or bitfield- messages, this is called for every 
// piece a peer has gained. 
void peer has(int index) 
t 
assert (m picker.get ()); 
assert (index>=0 && index<(signed)m have pieces.size()); 
m picker-»inc refcount (index); 


// when peer disconnects, this is called for every piece it had 
void peer lost(int index) 
t 

assert (m picker.get()); 

assert(index»-0 && index<(signed)m have pieces.size()); 

m picker-»dec refcount (index); 


int block size() const ( return m block size; } 


// 告知 哪 一 块 已 经 下 载 完成 


void announce piece(int index); 


void disconnect all(); 
void completed(); 
void finished(); 


bool verify piece(int piece index); 
void piece failed(int index); 


float priority() const 
{ return m priority; } 


void set priority(float p) 
t 


9 


第 14 章 BT 系统 


assert(p»-0.f && p«-1.f); 
m priority = p; 


bool is seed() const 


{ 
return valid metadata() && m num pieces==m_torrent_file.num pieces (); 


boost::filesystem::path save path() const; 
alert manager& alerts() const; 
piece picker& picker() 
t 
assert (m picker.get ()); 
return *m picker; 
} 
policy& get policy() { return *m policy; } 
piece manager& filesystem(); 
torrent info const& torrent file() const { return m torrent file; } 


Std::vector«announce entry» const& trackers() const 
{ return m trackers; } 


void replace trackers (std::vector«announce entry» const &urls); 
torrent handle get handle() const; 


// LOGGING 
#if defined(TORRENT VERBOSE LOGGING) || defined(TORRENT LOGGING) 
logger* spawn logger(const char *title); 


virtual void debug log(const std::string &line); 
#endif 


// DEBUG 

#ifndef NDEBUG 

void check_invariant() const; 
endif 


[J 一- 一 -一 一 一 一- 
// 下 面 是 资源 管理 相关 的 函数 


void distribute resources(); 


resource request m ul bandwidth quota; 
resource request m dl bandwidth quota; 
resource request m uploads quota; 

resource request m connections quota; 


void set upload limit(int limit); 
void set download limit(int limit); 
void set max uploads(int limit); 
void set max connections(int limit); 


k 
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bool move storage (boost::filesystem::path const &save path); 


bool valid metadata() const { return m storage.get() != 0; } 
std::vector<char> const& metadata() const { return m metadata; } 


bool received metadata (char const *buf, int size, int offset, 

int total size); 

到 此 为 止 ， 整 个 开源 项 目 中 的 核心 模块 已 经 介绍 完毕 ， 至 于 其 他 次 要 部 分 代码 ， 请 读 
者 登录 书 中 介绍 的 站 点 来 下 载 开源 项 目 文件 。 下 载 后 务必 仔细 阅读 每 一 行 代码 文件 ， 确 保 
掌握 BT 系统 的 真正 原理 。 


—— Foxmail 转 发 系统 m 


在 本 书 的 第 5 章 中 ， 已 经 介绍 过 邮件 系统 的 实现 过 程 ， 分 别 讲 
解 了 SMTP 协议 和 POP3 协议 的 知识 。 并 且 分 别 以 两 个 具体 实例 的 
实现 过 程 ， 讲 解 了 以 这 两 种 协议 实现 邮件 系统 的 基本 方法 。 但 是 这 
HP diets 并 且 不 具 发 送 功能 。 在 本 章 的 内 容 
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15.1 “Foxmail 基 础 


Foxmail 邮件 客户 端 软件 是 中 国 最 著名 的 软件 产品 之 一 ， 中 文 版 使 用 人 数 超过 400 
万 ， 英 文 版 的 用 户 遍 布 20 多 个 国家 ， 列 名 “十 大 国产 软件 ”， 被 太平 洋 电 脑 网 评 为 五 星 
级 软件 。Foxmail 通过 和 U 盘 的 授权 捆绑 形成 了 安全 邮 、 随 身 邮 等 一 系列 产品 。 现 在 已 经 
发 展 到 Foxmail 6.5. 

Foxmail 是 由 华中 科技 大 学 ( 原 华中 理工 大 学 ) 张 小 龙 开发 的 一 款 优秀 的 国产 电子 邮件 客 
户 端 软件 ，2005 年 3 月 16 日 被 腾讯 收购 。 新 的 Foxmail 具备 强大 的 反 垃圾 邮件 功能 。 它 
使 用 多 种 技术 对 邮件 进行 判别 ， 能 够 准确 识别 垃圾 邮件 与 非 垃圾 邮件 。 垃 圾 邮件 会 被 自动 
分 捡 到 垃圾 邮件 箱 中 ， 有 效 地 降低 了 垃圾 邮件 对 用 户 的 干扰 ， 最 大 限度 地 减少 了 用 户 因 为 
处 理 垃圾 邮件 而 浪费 的 时 间 。 数 字 签名 和 加 密 功 能 在 Foxmail 5.0 中 得 到 支持 ， 可 以 确保 电 
子 邮 件 的 真实 性 和 保密 性 。 通 过 安全 套 接 层 (SSL) 协 议 收发 邮件 ， 使 得 在 邮件 接收 和 发 送 过 
程 中 传输 的 数据 都 经 过 严格 的 加 密 ， 能 有 效 地 防止 黑客 窃听 ， 保 证 数据 安全 。 其 他 改进 包 
括 阅读 和 发 送 国际 邮件 (支持 Unicode)、 地 址 筹 同 步 、 通 过 安全 套 接 层 (SSL) 协 议 收发 邮 
件 、 收 取 yahoo 邮箱 邮件 ， 提 高 收发 Hotmail, MSN 电子 邮件 速度 、 支 持 名 片 (vCard)、 以 
嵌入 方式 显示 附件 图 片 、 增 强 本 地 邮箱 邮件 搜索 功能 等 。 


152 编 5 类 
使 用 Visual C++ 开发 一 个 简单 的 邮件 系统 


源 但 路 径 


类 是 C++ 语言 面向 对 象 的 基础 ， 通 过 类 实现 了 对 项 目的 模块 化 设计 思想 。 在 本 节 的 内 
容 中 ， 将 简要 介绍 本 项 目 中 各 个 类 的 设计 过 程 。 
(1) CAttachmentsDlg 一 一 用 于 操作 附件 的 类 ， 有 具体 代码 如 下 : 


class CAttachmentsDlg : public CDialog 

t 

public: 
CString m strAttachments; 
CAttachmentsDlg (CWnd *pParent-NULL); 
CStringArray m Files; 


protected: 
afx msg void OnButtonAdd(); // 添 加 附件 函数 
afx msg void OnButtonRemove () ; // 删 除 附件 函数 


virtual void OnOK(); 
virtual BOOL OnInitDialog(); 
DECLARE MESSAGE MAP () 
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(2) CMIMECod 一 一 用 于 邮件 编码 解码 的 父 类 ， 专 门 用 于 在 CBase64 类 中 被 重 写 。 具 


体 代码 如 下 : 
Class CMIMECode 
{ 
public: 
CMIMECode () ; 
virtual ~CMIMECode () 7 
virtual int Decode(LPCTSTR szDecoding, LPTSTR szOutput)=0; 
virtual CString Encode(LPCTSTR szEncoding, int nSize)=0; 
u 


(3) CMIMEContentAgent 一 一 用 于 附件 管理 的 抽象 类 ， 在 里 面 实现 了 对 MIME 的 内 容 
代理 。 具 体 代码 如 下 : 


class CMIMEContentAgent 
t 
public: 
CMIMEContentAgent (int nMIMEType); 
virtual ~CMIMEContentAgent () ; 
BOOL QueryType (int nContentType); 
virtual BOOL AppendPart (LPCTSTR szContent, 
LPCTSTR szParameters, 
int nEncoding, 
BOOL bPath, 
CString &sDestination)-0; 
virtual CString GetContentTypeString()-0; 
protected: 
virtual CString build sub header (LPCTSTR szContent, 
LPCTSTR szParameters, 
int nEncoding, 
BOOL bPath)-0; 
private: 
int m nMIMETypelIHandle; 


55 
(4) CSMTPEMailDlg 一 一 用 于 处 理 主 界面 的 对 话 框 ， 并 且 定义 了 9 个 自 定义 变量 。 具 
体 代码 如 下 : 
class CSMTPEMailDlg : public CDialog 
t 
public: 
CSMTPEMailDlg(CWnd *pParent-NULL); 
enum ( IDD = IDD SMTPEMAIL DIALOG ); 
CEdit m ctlFrom; // 开 始 定义 9 个 自 定义 变量 
CEdit m ctlTo; 
CEdit m ctlSmtp; 
CEdit m ctrlEditAttachments; 
CString m strEditBody; 
CString m from; 


CString m smtp; 
CString m subject; 
CString m to; 


protected: 
virtual void DoDataExchange (CDataExchange *pDX); 
protected: 
HICON m hIcon; 
private: 
CStringArray m Files; 
virtual BOOL OnInitDialog(); 
afx msg void OnSysCommand(UINT nID, LPARAM lParam); 
afx msg void OnPaint(); 
afx msg HCURSOR OnQueryDragIcon(); 
virtual void OnOK(); 
afx msg void OnAbout(); 
afx msg void OnSend(); 
afx msg void OnButtonAttachments () ; 
DECLARE MESSAGE MAP() 
F 


(5) CSMTP 一 一 用 于 处 理 SMTP 过 程 的 连接 ， 有 具体 代码 如 下 : 


Class CSMTP 
t 
public: 
CSMTP(LPCTSTR szSMTPServerName, UINT nPort-SMTP PORT); 
virtual ~CSMTP(); 
void SetServerProperties (LPCTSTR szSMTPServerName, 
UINT nPort-SMTP PORT); 
CString GetLastError(); 
UINT GetPort (); 
BOOL Disconnect (); 
BOOL Connect () ; 
virtual BOOL FormatMailMessage (CMailMessage *msg); 
BOOL SendMessage(CMailMessage *msg); 
CString GetServerHostName () ; 
private: 
BOOL get response(UINT response expected) ; 
CString cook body(CMailMessage *msg) ; 
CString m_sError; 


BOOL m bConnected; // 标 识 是 否 连 接 成 功 

UINT m nPort; // 存 储 端 口号 

CString m sSMTPServerHostName; // 服 务 器 地 址 字符 串 

CSocket m wsSMTPServer; / [SMTP 服务 器 
protected: 


virtual BOOL transmit message (CMailMessage *msg); 
struct response code 
t 
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UINT nResponse; 
TCHAR *sMessage; 

n 

enum eResponse 

{ 
GENERIC SUCCESS=0, 
CONNECT SUCCESS, 
DATA SUCCESS, 
QUIT SUCCESS, 
LAST RESPONSE 

u 

TCHAR *response buf; 

static response code response table[]; 

u 


(6) CBase64 一 一 此 类 实现 了 Base64 算法 ， 实 现 了 对 数据 的 编码 和 解码 工作 。 有 具体 代 
码 如 下 : 


class CBase64 : public CMIMECode 
t 
public: 
CBase64(); 
virtual ~CBase64(); 
virtual int Decode(LPCTSTR szDecoding, LPTSTR szOutput); 
virtual CString Encode (LPCTSTR szEncoding, int nSize); 


protected: 
void write bits(UINT nBits, int nNumBts, LPTSTR szOutput, int &lp); 
UINT read bits(int nNumBits, int *pBitsRead, int &lp); 
int m nInputSize; 
int m nBitsRemaining; 
ULONG m 1BitStorage; 
LPCTSTR m szInput; 
static int m nMask[]; 
static CString m sBase64Alphabet; 
private: 
F: 


(7) CMailMessag 一 一 此 类 用 于 实现 邮件 管理 功能 ， 有 具体 代码 如 下 : 


class CMailMessage 
t 
public: 
CMailMessage(); 
virtual -CMailMessage(); 
void FormatMessage(); 
int GetNumRecipients(); 
BOOL GetRecipient(CString &sEmailAddress, CString &sFriendlyName, 
int nIndex-0); 


BOOL AddRecipient (LPCTSTR szEmailAddress, LPCTSTR szFriendlyName-""); 
BOOL AddMultipleRecipients (LPCTSTR szRecipients-NULL); 

UINT GetCharsPerLine(); 

void SetCharsPerLine (UINT nCharsPerLine); 


CString m sFrom; 
CString m sSubject; 
CString m sEnvelope; 
CString m sMailerName; 
CString m sHeader; 
CTime m tDateTime; 
CString m sBody; 
private: 
UINT m nCharsPerLine; 


class CRecipient 
t 
public: 
CString m sEmailAddress; 
CString m sFriendlyName; 
Jn 
CArray <CRecipient, CRecipient&> m Recipients; 
protected: 
virtual void prepare header(); 
virtual void prepare body(); 
virtual void end header (); 
virtual void start header(); 
virtual void add header line(LPCTSTR szHeaderLine) ; 
u 


(8) CAppOctetStream 一 一 此 类 用 于 实现 添加 附件 功能 ， 有 具体 代码 如 下 : 


class CAppOctetStream : public CMIMEContentAgent 
{ 
public: 
virtual CString GetContentTypeString(); 
CAppOctetStream(int nContentType); 
virtual -CAppOctetStream(); 


virtual BOOL AppendPart (LPCTSTR szContent, 
LPCTSTR szParameters, 
int nEncoding, 
BOOL bPath, 
CString &sDestination) ; 


protected: 
virtual void attach file(CStdioFile *pFileAtt, int nEncoding, 
CString &sDestination); 
virtual CString build sub header(LPCTSTR szContent, 
LPCTSTR szParameters, 
int nEncoding, 
BOOL bPath); 
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15.3 设计 界面 
本 实例 使 用 Visual C++ 2010 实现 ， 在 本 节 的 内 容 中 ， 将 详细 介绍 使 用 Visual C++ 
2010 创建 项 目 工程 的 过 程 ， 并 介绍 设计 本 项 目 界面 的 流程 。 


153.1 新建 工 程 
(1) 打开 Visual Studio 2010， 从 菜单 栏 中 选择 “文件 ”一 “新 建 ” 一 “项 目 ” 命 令 ， 


打开 “新 建 项 目 ” 对 话 框 ， 如 图 15-1 所 示 。 


“新 建 项 目 ”对 话 框 

D 在 图 15-1 中 的 左 侧 选择 “MEFC” 子 项 ， 右 侧 模板 中 选择 “MEFC 应 用 程序 ” 子 

项 ， 然 后 命名 项 目 名 为 “SMTPEMail”， 选 择 保存 路 径 。 单 击 “ 确 定 ” 按 钮 后 弹出 “MFC 
应 用 程序 向 导 ” 对 话 框 ， 如 图 15-2 所 示 。 


欢迎 使 用 EC 应 用 程序 向 导 


15-1 


图 15-2 “MFC 应 用 程序 向 导 ” 对 话 框 


il 


(3) 单 击 “ 下 一 步 ” 按 钮 后 进入 “应 用 程序 类 型 ”界面 ， 在 此 设置 应 用 程序 类 型 为 
“基于 对 话 框 ”， 其 他 选项 使 用 默认 值 即 可 ， 如 图 15-3 所 示 。 


15-3 “应 用 程序 类 型 ”界面 


(4) 单 击 “ 下 一 步 ”按钮 后 进入 “用 户 界 面 功 能 ”界面 ， 在 此 设置 对 话 框 标 题 为 
“SMTPEMail”， 如 图 15-4 所 示 。 
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(5) 单 击 “ 下 一 步 ” 按 钮 后 进入 “高 级 功能 ”界面 ， 在 此 使 用 默认 设置 即 可 ， 如 图 
15-5 所 示 。 

(6) 单 击 “ 下 一 步 ” 按 钮 后 进入 “生成 的 类 ”界面 ， 在 此 设置 向 导 生 成 的 类 ， 此 处 使 
用 默认 设置 即 可 ， 如 图 15-6 Pros. 

(7) 单 击 “完成 ”按钮 后 返回 Visual Studio 2010 主 界面 ， 这 就 完成 了 整个 项 目的 界面 
设计 工作 ， 此 时 可 以 查看 项 目的 对 话 框 设计 界面 ， 如 图 15-7 所 示 。 
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15-5 “高 级 功能 ”界面 


15-7 ”对 话 框 设计 界面 


15.32 ”设计 窗 体 


(1) 新 建 一 个 ID 为 “IDD_ ATTACHMENTS” 的 窗 体 ， 如 图 15-8 所 示 。 


图 15-8 MRH 15-9 ŁAW 
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经 过 前 面 内容 的 讲解 ， 已 经 完成 类 编码 设计 和 界面 设计 。 在 接 下 来 的 内 容 中 ， 将 开始 
步 入 正式 编码 阶段 。 希 望 读者 结合 前 面 介 绍 的 内 容 ， 做 到 真正 的 掌握 ， 将 所 学 知识 运用 到 
实践 项 目 当中 。 

(1) 在 文件 Base64.cpp 中 实现 CBase64 类 的 具体 功能 ， 首 先 定 义 编码 函数 Encode(), 
然后 定义 解码 函数 Decode0。 有 具体 代码 如 下 : 


CBase64: :CBase64 () 
t 
} 


CBase64: :~CBaseé4 () 
{ 
} 


CString CBase64::Encode(LPCTSTR szEncoding, int nSize) 
{ 

CString sOutput = T( "" ); 

int nNumBits = 6; 

UINT nDigit; 

int lp = 0; 


ASSERT (szEncoding != NULL); 

if (szEncoding == NULL) 
return sOutput; 

m szInput = szEncoding; 

m nInputSize = nSize; 


m nBitsRemaining = 0; 
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nDigit = read bits(nNumBits, &nNumBits, lp); 
while(nNumBits » 0) 
t 
sOutput += m sBase64Alphabet [ (int) nDigit]; 
nDigit = read bits(nNumBits, &nNumBits, 1p); 
于 
// Pad with '-' as per RFC 1521 
while(sOutput.GetLength()$4 != 0) 
{ 
sOutput += "="; 
} 
return sOutput; 


int CBase64::Decode(LPCTSTR szDecoding, LPTSTR szOutput) 
t 
CString sInput; 
int c, lp-0; 
int nDigit; 
int nDecode [256]; 
ASSERT(szDecoding !- NULL); 
ASSERT(szOutput != NULL); 
if(szOutput — NULL) 
return 0; 
if(szDecoding == NULL) 
return 0; 
sInput = szDecoding; 
if(sInput.GetLength() == 0) 
return 0; 
for(int i=0; i<256; i++) 
nDecode[i] = -2; // Illegal digit 
for (i=0; i<64; i++) 
{ 
nDecode[m sBase64Alphabet [i]] = i; 
nDecode[m sBase64Alphabet[i]|0x80] = i; // Ignore 8th bit 
nDecode['="] = -1; 
nDecode['='|0x80] = -1; // Ignore MIME padding char 


} 
memset (szOutput, 0, sInput.GetLength()+1); 
for (1p=0,i=0; lp«sInput.GetLength(); lp++) 


{ 
c = sInput[lp]; 
nDigit = nDecode[c&0x7F]; 
if (nDigit < -1) 
{ 
return 0; 
} 
else if(nDigit >= 0) 
write bits (nDigit&0x3F, 6, szOutput, i); 
} 
return i; 


} 
UINT CBase64::read bits (int nNumBits, int *pBitsRead, int &lp) 


ULONG lScratch; 
while((m nBitsRemaining<nNumBits) && (lp«m nInputSize)) 
t 


int c = m_szInput[lp++]; 
m lBitStorage ««- 8; 
m lBitStorage |= (c&Oxff); 
m nBitsRemaining += 8; 
} 
if(m nBitsRemaining < nNumBits) 
t 
lScratch = m 1BitStorage << (nNumBits - m nBitsRemaining); 
*pBitsRead = m nBitsRemaining; 
m nBitsRemaining - 0; 
} 
else 
t 
lScratch = m 1BitStorage >> (m nBitsRemaining - nNumBits); 
*pBitsRead = nNumBits; 
m nBitsRemaining -- nNumBits; 
} 
return (UINT)1Scratch&m nMask[nNumBits]; 


void CBase64::write bits(UINT nBits, 
int nNumBits, 
LPTSTR szOutput, 
int &i) 


UINT nScratch; 


m 1BitStorage = (m 1BitStorage<<nNumBits) |nBits; 

m nBitsRemaining += nNumBits; 

while (m nBitsRemaining > 7) 

t 
nScratch - m lBitStorage »» (m nBitsRemaining - 8); 
szOutput [i++] = nScratch&OxFF; 
m_nBitsRemaining -= 8; 


} 
(2) 在 文件 SMTP.cpp 中 完成 连接 类 CSMTP 的 具体 实现 ， 具 体 代码 如 下 : 


CSMTP: :~CSMTP () 
{ 
Disconnect (); 


CString CSMTP: :GetServerHostName () 
t 
return m sSMTPServerHostName; 


} 
// 建 立 连接 函数 
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BOOL CSMTP: :Connect () 
{ 
CString sHello; 
TCHAR local host[80]; 
if (m_bConnected) 
return TRUE; 


try 
{ 
response buf = new TCHAR[RESPONSE BUFFER SIZE]; 


if(response buf == NULL) 

t 
m sError = T("Not enough memory"); 
return FALSE; 


} 
catch (CException *e) 
{ 
response buf = NULL; 
m sError = T("Not enough memory"); 
delete e; 
return FALSE; 


if(!m wsSMTPServer.Create() ) 
{ 
m sError = T("Unable to create the socket."); 
delete response buf; 
response buf = NULL; 
return FALSE; 
} 
if (!m wsSMTPServer.Connect (GetServerHostName(), GetPort())) 
{ 
m sError = T("Unable to connect to server"); 
m wsSMTPServer.Close(); 
delete response buf; 
response buf — NULL; 
return FALSE; 
} 
if(!get response (CONNECT SUCCESS) ) 
{ 
m sError = T("Server didn't respond."); 
m wsSMTPServer.Close(); 
delete response buf; 
response buf = NULL; 
return FALSE; 
} 
gethostname (local host, 80); 
sHello.Format (_T("HELO %s\r\n"), local_host); 
m wsSMTPServer.Send((LPCTSTR)sHello, sHello.GetLength()); 
if(!get response(GENERIC SUCCESS)) 
{ 
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m wsSMTPServer.Close(); 
delete response buf; 
response buf - NULL; 
return FALSE; 


| 
m bConnected = TRUE; 
return TRUE; 


š 
// 断 开 连 接 函 数 
BOOL CSMTP: :Disconnect () 
t 
BOOL ret; 
if(!m bConnected) 
return TRUE; 
CString sQuit = T("QUIT\r\n"); 
m wsSMTPServer.Send((LPCTSTR)sQuit, sQuit.GetLength()); 


ret = get response(QUIT SUCCESS); 
m wsSMTPServer.Close(); 


if(response buf != NULL) 
t 
delete []response buf; 
response buf — NULL; 


m bConnected = FALSE; 
return ret; 


) 
// 获 取 端口 函数 
UINT CSMTP: :GetPort () 
{ 
return m nPort; 


CString CSMTP: :GetLastError() 
{ 
return m sError; 


} 
// 发 送 数据 函数 
BOOL CSMTP: :SendMessage (CMailMessage *msg) 
t 
ASSERT (msg != NULL); 
if(!m bConnected) 
t 
m sError = T("Must be connected"); 
return FALSE; 
H 
if(FormatMailMessage (msg) == FALSE) 
{ 
return FALSE; 


$ 
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if(transmit message (msg) 
t 


FALSE) 


return FALSE; 
) 
return TRUE; 


} 
// 格 式 化 邮件 函数 
BOOL CSMTP::FormatMailMessage (CMailMessage *msg) 
t 
ASSERT (msg != NULL); 
if (msg->GetNumRecipients() == 0) 
{ 
m sError = T("No Recipients"); 
return FALSE; 
} 
msg->FormatMessage () 7 
return TRUE; 
} 


// 设 置 服务 器 属性 函数 
void CSMTP::SetServerProperties (LPCTSTR szSMTPServerName, UINT nPort) 
t 

ASSERT(szSMTPServerName !- NULL); 

// Needs to be safe in non-debug too 

if (szSMTPServerName == NULL) 

return; 
m_sSMTPServerHostName = szSMTPServerName; 
m_nPort = nPort; 


5 
// 字 符 串 替换 函数 
Cstring CSMTP::cook body (CMailMessage *msg) 
{ 
ASSERT (msg != NULL); 
Cstring sTemp; 
CString sCooked = T(""); 
LPTSTR szBad = _T("\r\n.\r\n"); 
LPTSTR szGood = T("\r\n..\r\n"); 
int nPos; 
int nStart = 0; 
int nBadLength - strlen(szBad); 
sTemp = msg-»m sBody; 
if(sTemp.Left(3) == T(".\r\n")) 
sTemp = T(".") + sTemp; 


while ((nPos=sTemp.Find(szBad)) > -1) 
{ 

sCooked = sTemp.Mid(nStart, nPos); 

sCooked += szGood; 

sTemp = sCooked 

+ sTemp.Right (sTemp.GetLength() - (nPos + nBadLength) ); 

} 
return sTemp; 


BOOL CSMTP::transmit message(CMailMessage *msg) 
t 

CString sFrom; 

CString sTo; 

CString sTemp; 

CString sEmail; 


ASSERT (msg != NULL); 
if(!m bConnected) 
t 
m sError - T("Must be connected"); 
return FALSE; 
} 
sFrom.Format ( T("MAIL From: <%s>\r\n"), (LPCTSTR)msg-»m sFrom) ; 
m wsSMTPServer.Send((LPCTSTR)sFrom, sFrom.GetLength () ); 
if(!get response (GENERIC SUCCESS) ) 
return FALSE; 
for(int i=0; i«msg-»GetNumRecipients(); i++) 
{ 
msg->GetRecipient (sEmail, sTemp, i); 
sTo.Format (_T("RCPT TO: <%s>\r\n"), (LPCTSTR) sEmail) ; 
m wsSMTPServer.Send((LPCTSTR)sTo, sTo.GetLength()); 
get response (GENERIC SUCCESS); 
} 
sTemp = T("DATA\r\n"); 
m wsSMTPServer.Send((LPCTSTR)sTemp, sTemp.GetLength()); 
if(!get response(DATA SUCCESS)) 
t 
return FALSE; 
} 
m wsSMTPServer.Send((LPCTSTR)msg-»m sHeader, 
msg-»m sHeader.GetLength()); 
sTemp = cook body (msg); 
m wsSMTPServer.Send((LPCTSTR)sTemp, sTemp.GetLength ()); 


// Signal end of data 
sTemp = T("\r\n.\r\n"); 
m wsSMTPServer.Send((LPCTSTR)sTemp, sTemp.GetLength () ); 
if(!get response (GENERIC SUCCESS) ) 
{ 
return FALSE; 
} 
return TRUE; 


BOOL CSMTP::get response (UINT response expected) 
{ 
ASSERT (response expected >= GENERIC SUCCESS); 
ASSERT(response expected « LAST RESPONSE); 


CString sResponse; 
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UINT response; 
response code *pResp; // Shorthand 


if(m wsSMTPServer.Receive(response buf, RESPONSE BUFFER SIZE) 
== SOCKET ERROR) 


m sError = T("Socket Error"); 
return FALSE; 
i 
sResponse = response buf; 
sscanf ( (LPCTSTR) sResponse.Left (3), T("%d"), &response); 
pResp = &response table[response expected]; 
if (response != pResp->nResponse) 
t 
m sError.Format( T("$d:$s"), response, (LPCTSTR)pResp-»sMessage); 
return FALSE; 
} 
return TRUE; 
} 


(3) 在 文件 MailMessage.cpp 中 实现 邮件 管理 类 的 具体 功能 ， 具 体 代 码 如 下 : 


CMailMessage: :CMailMessage () 

{ 
m sMailerName = T("WC Mail"); 
SetCharsPerLine (76) ; 


CMailMessage: :~CMailMessage () 
{ 


} 

// 添 加 收 件 人 函数 

BOOL CMailMessage: :AddRecipient (LPCTSTR szEmailAddress, 

LPCTSTR szFriendlyName) 

t 
ASSERT(szEmailAddress !- NULL); 
ASSERT(szFriendlyName != NULL); 
CRecipient to; 
to.m sEmailAddress = szEmailAddress; 
to.m sFriendlyName = szFriendlyName; 
m Recipients.Add(to); 
return TRUE; 

} 


// 获取 收 件 人 
BOOL CMailMessage::GetRecipient(CString &sEmailAddress, 
CString &sFriendlyName, int nIndex) 
t 
CRecipient to; 
if (nIndex<0 || nIndex»m Recipients.GetUpperBound|()) 
return FALSE; 
to = m Recipients [nIndex]; 
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sEmailAddress = to.m sEmailAddress; 
sFriendlyName = to.m sFriendlyName; 
return TRUE; 


} 
// 获 取 收 件 人 数量 
int CMailMessage: :GetNumRecipients () 
t 
return m Recipients.GetSize(); 


} 
// 添 加 多 个 收 件 人 
BOOL CMailMessage::AddMultipleRecipients (LPCTSTR szRecipients) 
t 
TCHAR *buf; 
UINT pos; 
UINT start; 
CString sTemp; 
CString sEmail; 
CString sFriendly; 
UINT length; 
int nMark; 
int nMark2; 


ASSERT(szRecipients != NULL); 


length - strlen(szRecipients); 
buf = new TCHAR[length + 1]; // Allocate a work area 
// (don't touch parameter itself) 
strcpy(buf, szRecipients); 
for(pos-0,start-0; pos«-length; pos++) 
t 
if(buf[pos]--';' || buf[pos]==0) 
{ 
// First, pick apart the sub-strings (separated by ';') 
// Store it in sTemp. 
v 
buf[pos] = 0;//Redundant when at the end of string, but who cares. 
sTemp = &buf[start]; 


// Now divide the substring into friendly names 
//and e-mail addresses. 
nMark = sTemp.Find('«'); 
if(nMark »- 0) 
t 
sFriendly = sTemp.Left (nMark); 
nMark2 = sTemp.Find('>'); 
if (nMark2 < nMark) 
{ 
delete []buf; 
return FALSE; 
} 
// End of mark at closing bracket or end of string 
nMark2»-1 ? nMark2=nMark2 : nMark2=sTemp.GetLength ()-1; 
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sEmail = sTemp.Mid(nMark«l, nMark2- (nMark+1)); 
} 
else 
t 
sEmail = sTemp; 
sFriendly = T(""); 
} 
AddRecipient (sEmail, sFriendly); 
start = pos + 1; 


} 
delete []buf; 
return TRUE; 


$ 
// 格 式 化 邮件 处 理 函 数 
void CMailMessage: :FormatMessage () 
t 
start header(); 
prepare header (); 
end header (); 
prepare body (); 


void CMailMessage::SetCharsPerLine(UINT nCharsPerLine) 


i 
m_nCharsPerLine = nCharsPerLine; 


UINT CMailMessage: :GetCharsPerLine() 


{ 
return m nCharsPerLine; 


) 
// 准 备 邮 件 头 格 式 
void CMailMessage::prepare header () 
{ 
CString sTemp; 


sTemp = T(""); 

// From: 

sTemp = T("From: ") + m sFrom; 
add header line ((LPCTSTR) sTemp) ; 


Stemp = 
CString sEmail = T(""); 
CString sFriendly = T(""); 
for(int i=0; i<GetNumRecipients(); i++) 
{ 
GetRecipient (sEmail, sFriendly, i); 
sTemp += (120.2 T(N, n) SE) ie 
sTemp += sFriendly; 
sTemp += T("<"); 
sTemp += sEmail; 


sTemp += T("»"); 


} 

add header line ((LPCTSTR) sTemp) ; 

m tDateTime = m tDateTime.GetCurrentTime() ; 

// Format: Mon, 01 Jun 98 01:10:30 GMT 

sTemp = P("Date: =); 

sTemp += m tDateTime.Format("$a, $d $b ty %H:%M:%S $2"); 
add header line ((LPCTSTR) sTemp) ; 


// 主题 

sTemp = T("Subject: ") + m sSubject; 
add header line((LPCTSTR) sTemp) ; 

sTemp = T("X-Mailer: ") + m sMailerName; 
add header line ((LPCTSTR) sTemp) ; 


) 
// 准 备 邮 件 正文 格式 
void CMailMessage::prepare body () 
{ 
if (m sBody.Right(2) != T("\r\n")) 
m sBody += T("\r\n"); 
) 


// 结 束 正文 
void CMailMessage::start header() 
{ 
m sHeader = T(""); 
} 
// 结 束 邮 件 头 


void CMailMessage::end header () 
{ 
m sHeader += T("\r\n"); 


} 
// 增 加 邮件 头 行 数 
void CMailMessage::add header line(LPCTSTR szHeaderLine) 
{ 
CString sTemp; 
sTemp.Format( T("$s\r\n"), szHeaderLine) ; 
m sHeader += sTemp; 
} 


(4) 在 文件 AppOctetStream.cpp 中 实现 与 附件 处 理 相 关 的 功能 ， 有 具体 代码 如 下 ; 


CAppOctetStream: :CAppOctetStream(int nContentType) 
:CMIMEContentAgent (nContentType) 

{ 

H 


CAppOctetStream::-CAppOctetStream() 
{ 


} 

// 附 件 信息 处 理 函 数 

BOOL CAppOctetStream: :AppendPart (LPCTSTR szContent, 
LPCTSTR szParameters, 
int nEncoding, 
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BOOL bPath, 
CString &sDestination) 


CStdioFile fAttachment; 
ASSERT(szContent != NULL); 
if(szContent == NULL) 
return FALSE; 
if(!fAttachment.Open (szContent, 
(CFile::modeRead|CFile::shareDenyWrite|CFile::typeBinary))) 
return FALSE; 
sDestination += build sub header (szContent, 
szParameters, 
nEncoding, 
TRUE) ; 
attach file(&fAttachment, CMIMEMessage::BASE64, sDestination) ; 
fAttachment.Close(); 
return TRUE; 
) 


// 创 建 附件 信息 的 信息 头 

CString CAppOctetStream::build sub header(LPCTSTR szContent, 
LPCTSTR szParameters, 
int nEncoding, 
BOOL bPath) 


CString sSubHeader; 
CString sTemp; 

TCHAR szFName[ MAX FNAME]; 
TCHAR szExt[ MAX EXT]; 


tsplitpath(szContent, NULL, NULL, szFName, szExt); 
if (bPath) 
sTemp.Format("; file-$s$s", szFName, szExt); 
else 
sTemp = T(""); 
sSubHeader.Format( T("Content-Type: %s%s\r\n"), 
(LPCTSTR) GetContentTypeString(), 
(LPCTSTR) sTemp) ; 
sSubHeader +=  T("Content-Transfer-Encoding: base64\r\n"); 
sTemp.Format( T("Content-Disposition: attachment; filename=%s%s\r\n"), 
szFName, szExt); 
sSubHeader 4- sTemp; 
sSubHeader += T("\r\n"); 
return sSubHeader; 


CString CAppOctetStream: :GetContentTypeString () 
下 

CString s; 

s = T("application/octet-stream"); 

return s; 


// 打开 或 关闭 一 个 文件 

void CAppOctetStream::attach file(CStdioFile *pFileAtt, 
int nEncoding, 
CString &sDestination) 


CMIMECode *pEncoder; 
int nBytesRead; 
TCHAR szBuffer[BYTES TO READ + 1]; 


ASSERT(pFileAtt != NULL); 
if(pFileAtt == NULL) 
return; 
switch (nEncoding) 
t 
default: 
case CMIMEMessage: : BASE64: 
try 
t 
pEncoder - new CBase64; 
) 
catch(CMemoryException *e) 
t 
delete e; 
return; 
) 
) 
if(pEncoder — NULL) 
return; 
do 
t 
try 
{ 
nBytesRead = pFileAtt->Read(szBuffer, BYTES TO READ); 
} 
catch (CFileException *e) 
{ 
delete e; 
break; 
) 
szBuffer[nBytesRead] = 0; // Terminate the string 
sDestination += pEncoder->Encode(szBuffer, nBytesRead); 
sDestination += T("\r\n"); 
} while (nBytesRead == BYTES TO READ); 
sDestination += T("\r\n"); 
delete pEncoder; 
} 


到 此 为 止 ， 整 个 项 目 中 的 核心 模块 已 经 介绍 完毕 ， 至 于 其 他 次 要 部 分 代码 ， 建 议 读者 
参考 本 书 附带 光盘 中 的 源 代 码 。 执 行 之 后 的 效果 如 图 15-10 所 示 ， 附 件 管理 界面 如 图 15-11 
所 示 。 
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See 


15-10 ”执行 效果 15-11 ”附件 管理 界面 
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